LISP初心者で全くわかりません。インターネット上にあるものを申し訳ないのですが
自分に合ったものにしたいと思っています。
下記 LISP どこがだめでそうすればいいのか全くわかりません。
訂正していただければ助かります。よろしくお願い致します。
(defun c:BLKCQ (/ selectionset insertionpoint NAMEBLK TIMEBLK Blockname)
(if (and (setq selectionset (ssget "_:L"))
(setq insertionpoint (getpoint "\n ブロックの挿入基点を指定 :"))
)
(progn
(setq NAMEBLK (getvar "cdate"))
(setq TIMEBLK (getvar "millisecs"))
(Blockname (strcat "TOP" (rtos NAMEBLK)(rtos TIMEBLK)))
(command "_.-Block" Blockname insertionpoint selectionset "")
(command "_.-insert" Blockname insertionpoint "" "" "")
)
(princ)
)
(princ)
)
自動ブロック名、ご教示ください
- 初心者
- 2024/02/24 (Sat) 13:24:06