[求助]：怎样将所画图形定义为块

lei_na521

我编了一个螺母的程序,那我怎样才能把它定义为块呢,并能够获得它的块名和相关的DXF信息,请哪位高手给一个详细一点的代码,谢谢!!!
(defun lm(/ id)
(setq id (load_dialog "g:/我的程序/lm.dcl"))
(if (not (new_dialog "lm" id))
(exit)
)
(action_tile "accept" "(date_manage)")
(start_dialog)
(unload_dialog id)
(draw1)
(princ)
)
(defun date_manage()
(setq x (atof (get_tile "cpx")))
(setq y (atof (get_tile "cpy")))
(setq cp (list x y))
(setq rd (atof (get_tile "kj")))
(setq rx (atof (get_tile "nb")))
(setq pt1 (polar cp (/ pi 6)(*(/ rd 2)(/ 2 (sqrt 3)))))
(setq pt2 (polar cp (/ pi (- 0 6))(* (/ rd 2)(/ 2 (sqrt 3)))))
(setq pt3 (list x (- y (+ 2 (/ rd 2)))))
(setq pt4 (list x (+ y (+ 2 (/ rd 2)))))
(setq pt5 (list (- x (+ 2 (/ rd 2)))y))
(setq pt6 (list (+ x (+ 2 (/ rd 2)))y))
)
(defun draw1()
(command "line" pt1 pt2 "")
(command "array" "l" "" "p" cp "6" "" "y")
(command "circle" cp "D" rd)
(command "circle" cp "D" rx)
(command "layer" "m" 1 "c" 1 "" "")
(command "line" pt3 pt4 "")
(command "line" pt5 pt6 "")
(command "arc" "c" cp (list (- x (* 0.55 rx)) y)"a" "270.0")
(command "layer" "m" 0 "on" "" "")
)

ysx810210

试用-block

lei_na521

我已在指定位置画好图形了,我现在只是想把他定义为块,好方便后续调用.可用-block还的重新插入,有没有别的好办法

YueFeng

block 以后，再 insert 一下。就这么麻烦？