如何用下面的程序注解成如下格式

spring

如何用下面的程序注解成如下格式:
;;;__________________________________________
(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)
)

spring

spring

是我說的不詳細呢﹐還是.......................

龙龙仔

說的詳細點!

spring

我現在的tt1命令是可以將”MY_TAG”注觖出來,但是如果現在我的圖上有一個異形孔(PLINE)和一個園孔,而它們的注觖是不一樣的,那我必須要加上代號才能加以須別,可我的的程序現在做不到.
如下圖:
如果把h1,h2,v全部都殺掉,那人家怎麼知道旁邊的注解相對應的是哪個圖元.

spring

spring发表于2003-7-16 22:02:00大虾们，帮帮我啊。
是我說的不詳細呢﹐還是.......................

meflying

因为你的代号写的地方没有规则，这样选择了图形再搜索代号是可能会搜索错误的代号，因此你需要说明代号的位置与图形的关系（比如说在图形的左上角或离其中心最近），或者你也可以在选择时按顺序也将代号选进去，这样才可以保证一一对应关系。

spring

meflying发表于2003-7-19 9:51:00因为你的代号写的地方没有规则，这样选择了图形再搜索代号是可能会搜索错误的代号，因此你需要说明代号的位置与图形的关系（比如说在图形的左上角或离其中心最近），或者你也可以在选择时按顺序

代號在图形的左上角,按顺序也将代号选进去.那這樣子程序要怎么寫呢???

meflying

如果选择时按顺序，那在选择集中取出一个对象读数据后，取下一个对象，这个对象应该就是那个代号，将代号中的文字取出（组码1），
假如文字存如STR，
写文字时这样：
(command "text" "" (strcat str ":" ent))

spring