fc2ブログ

座標一覧表を出力 DrawTableID

2024年01月03日
Diesel(アイコンマクロ)&AutoLISP
R-TransmitFlag.lsp
ARES-TransmitFlag.lsp
;*******************
(Defun C:DrawTableID ( / SCRyn pt );作表
;*******************
;--------------------------------------MyScriptを実行
(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
;-------------------
(Princ)
;-------------------
);






関連記事
スポンサーサイト



Gallery担当:山野 ロザリア平久郎
Posted by Gallery担当:山野 ロザリア平久郎