【既存】整理中②(簡単)– tag –

(defun c:R1 () (setq sel (ssget))(setq Pt1 (getpoint "\n始点:"))(setq Pt2 (getpoint "\n終点:")) (command "._ROTATE" sel "" Pt1 "R" Pt1 Pt2 pause "" ) ) この...

(defun c:C1 () (command-s "._CIRCLE" "0,0,0" "100" ) ) このコードは、原点から半径 100 の円を作成するための AutoLISP 関数です。 コードの各行の説明は以下の通り...