求助？？？？？？？

yyou · 发表于 2004-4-4 17:16:00

怎样才能获的自动标注如下：请各位大哥帮帮小弟改一下程序？？？？？？？？
(defun c:lsp_52()
   (setq pt1 (getpoint "\n选取图形左下角: "))
(setq ww (getdist pt1 "\n宽度: "))
(if (null ww) (setq ww 100.0)) ;当宽度未赋值时，定义ww为100
(setq hh (getdist pt1 "\n高度: " ))
(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尺寸图层 : "))
   (if (= lay_dim "") (setq lay_dim "DIM"))
   ;(setq lay_txt (getstring "\n文字图层 : "))
   ;(if (= lay_txt "") (setq lay_txt "TXT"))
   ;(setq lay_hat (getstring "\n剖面线图层 : "))
   ;(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)