如何用下面的程序注解成如下格式
如何用下面的程序注解成如下格式:;;;__________________________________________
(defun C:TT1 (/ qq ss count en ed tag t_hight p1 ent)
(setq qq nil)
(setq ss (ssget))
(setq count 0)
(while (> (sslength ss) count)
(setq en (ssname ss count))
(setq count (1+ count))
(setq ed (entget en '("MY_TAG")))
(setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))
(setq qq (cons tag1 qq))
)
(princ "\nText high <")
(setq t_hight (getvar "TEXTSIZE"))
(princ t_hight)
(setq t_hight (getstring ">"))
(setq p1 (getpoint "\ninsert point"))
(setq tag (nth 0 qq))
(command "_.TEXT" p1 t_hight 0 tag)
(setq qq (cdr qq))
(foreach ent qq
(command "_.TEXT" "" ent)
)
(princ)
)
dwg
大虾们，帮帮我啊。
是我說的不詳細呢﹐還是....................... 說的詳細點!必須要加上代號才能加以須別
我現在的tt1命令是可以將”MY_TAG”注觖出來,但是如果現在我的圖上有一個異形孔(PLINE)和一個園孔,而它們的注觖是不一樣的,那我必須要加上代號才能加以須別,可我的的程序現在做不到.如下圖:
如果把h1,h2,v全部都殺掉,那人家怎麼知道旁邊的注解相對應的是哪個圖元.
spring发表于2003-7-16 22:02:00static/image/common/back.gif大虾们，帮帮我啊。
是我說的不詳細呢﹐還是....................... 因为你的代号写的地方没有规则，这样选择了图形再搜索代号是可能会搜索错误的代号，因此你需要说明代号的位置与图形的关系（比如说在图形的左上角或离其中心最近），或者你也可以在选择时按顺序也将代号选进去，这样才可以保证一一对应关系。 meflying发表于2003-7-19 9:51:00static/image/common/back.gif因为你的代号写的地方没有规则，这样选择了图形再搜索代号是可能会搜索错误的代号，因此你需要说明代号的位置与图形的关系（比如说在图形的左上角或离其中心最近），或者你也可以在选择时按顺序
代號在图形的左上角,按顺序也将代号选进去.那這樣子程序要怎么寫呢??? 如果选择时按顺序，那在选择集中取出一个对象读数据后，取下一个对象，这个对象应该就是那个代号，将代号中的文字取出（组码1），
假如文字存如STR，
写文字时这样：
(command "text" "" (strcat str ":" ent))
我回去再研究研究看!!!
页:
[1]
2