;(R)=ARES


;----2024/02/12

;******************* トラバー網作図
(defun C:RunMyTravers ( / SCRyn )
;*******************
    (Setenv "SCRyn" "N")
    ;+++++	
    (setq SCRyn (getstring (strcat "\nトラバー網作図実行しますか？[ Y:はい/N:いいえ ] ")))
    (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:いいえ ] ")))
    (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)
);------------------------------------------------




