求助？？？？？？？

yyou

怎样才能获的自动标注如下：请各位大哥帮帮小弟改一下程序？？？？？？？？ (defun c:lsp_52()
(setq pt1 (getpoint "\n选取图形左下角: "))
(setq ww (getdist pt1 "\n宽度<100>: "))
(if (null ww) (setq ww 100.0)) ;当宽度未赋值时，定义ww为100
(setq hh (getdist pt1 "\n高度<50>: " ))
(if (null hh) (setq hh 50.0)) ;当高度未赋值时，定义hh为50
(setq ww3 (/ ww 3))
(setq hh2 (/ hh 2))
;---------------------------à 求得各点坐标
(setq pt2 (polar pt1 0 ww))
(setq pt3 (polar pt2 (/ pi 2) hh))
(setq pt4 (polar pt3 pi ww3))
(setq pt5 (polar pt4 (* pi 1.5) hh2))
(setq pt6 (polar pt5 pi ww3))
(setq pt7 (polar pt6 (/ pi 2) hh2))
(setq pt8 (polar pt7 pi ww3))
(command "pline" pt1 pt2 pt3 Pt4 Pt5 pt6 pt7 pt8 "c")

(setq lay_dim (getstring "\n尺寸图层 <dim>: "))
(if (= lay_dim "") (setq lay_dim "DIM"))
;(setq lay_txt (getstring "\n文字图层 <txt>: "))
;(if (= lay_txt "") (setq lay_txt "TXT"))
;(setq lay_hat (getstring "\n剖面线图层 <hat>: "))
;(if (= lay_hat "") (setq lay_hat "HAT"))
(chklay lay_dim 3 "DIMENSION")
;(chklay lay_txt 6 "TEXT")
;(chklay lay_hat 5 "HATCH")
)
(defun chklay(layname cc layss)
(setq k_lay (tblsearch "layer" layname))
(if (null k_lay) (command "-layer" "n" layname "c" cc layname ""))
(setq ss (ssget "X" (list (cons 0 layss))))
(command "chprop" ss "" "la" layname "")
)

(princ "\n---------->> LSP_52 <<----------")
(prin1)

meflying

要改成什么样呢?

无痕

唉．．．我发现最近明经很多提问的人提问的方式，水平太差，词不达意，或没头没脑，不知所云．


既而要人家帮忙，就应该说清楚问题，要达到什么效果，调试中出现什么错误等等．

yyou

就是能自动把里面的图标注出来