[求助]：怎么把所画的图形定义为块

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" "" "")
  )

aeo

既然command一堆就还用command
(command "block" .....)