;(R)=ARES


;----2024/02/12

  ;******************* トラバー網作図
  (defun C:RunMyTravers ( / SCRyn )
  ;*******************
    ;(Setenv "SCRyn" "N")
    ;+++++	
    (setq SCRyn (getstring (strcat 
          "\nトラバー網作図実行しますか？[ Y:はい/N:いいえ ]<" (Getenv "SCRyn") ">:")))
    (if (= "" SCRyn)
      (setq SCRyn (Getenv "SCRyn"));Enter/空打--->従前値採用
    );if
    (Setenv "SCRyn" SCRyn);<---扱いは文字列（数字は扱えない:NG）
    ;+++++
    (if (Or (equal SCRyn "Y") (equal SCRyn "y"))
      (Command "Script" "C:/MyCANAL/MyScript.scr")
    );if
    ;+++++
    (Command "Grips" "2" "Filedia" "1")
    (princ)
  );-------------


  ;******************* 座標値一覧表作図
  (defun C:DrawTableID ( / SCRyn pt )
  ;*******************
    ;(Setenv "SCRyn" "N")
    (setq pt nil)
    ;+++++
    (setq SCRyn (getstring (strcat
          "\n座標リストを出力しますか？[ Y:はい/N:いいえ ]<" (Getenv "SCRyn") ">:")))
    (if (= "" SCRyn)
      (setq SCRyn (Getenv "SCRyn"));Enter/空打--->従前値採用
    );if
    (Setenv "SCRyn" SCRyn);<---扱いは文字列（数字は扱えない:NG）
    ;+++++
    (if (Or (equal SCRyn "Y") (equal SCRyn "y"))
      (progn
        (setq pt (getpoint "\n<作図基点を指定>"))
        (if (/= pt nil )
          (progn
            (Command "Base" pt "")
            (Command "Script" "C:/MyCANAL/MyScript.scr")
          );progn
        );if
      );progn
    );if
    (Command "Grips" "2" "Filedia" "1")
    (princ)
  );-------------




