前生版主,你好,关于

spring

前生版主:
   你好,下面是关于<贴附延伸数据到图元>的程序
(defun c:hch ()                               
  (setq ss (ssget))
  (setq en (ssname ss 0))
  (setq lastent (entget en))               
  (regapp "MY_TAG")                       
  (setq        exdata                                       
'((-3
            ("MY_TAG"                       
             (1000 . "This is a new thing!")
            )
           )
          )                                  
)                                  
(setq        newent
         (append lastent exdata)
  )                                                
                                                
  (entmod newent)                          
)
                                               
;;;在上面的延伸资料 "This is a new thing!" 好象不能用变量吧
;;;我现在想用 (subst) 函数将它替换掉
;;;比如 (setq tag “定位块,割,单+0.010”)
;;;然后用 tag 将 "This is a new thing!" 替换掉
;;;我的这种想法可以吗
;;;___________________________________________________
(defun c:h_dim ()
  (setq tag (entget (car (entsel)) '("MY_TAG")))
  (setq tag1 (cdr (cadr (cadr (assoc -3 tag)))))
  (setq t_hight (getstring "\n请指定字高"))
  (setq p1 (getpoint "\ninsertion point"))
  (command "text" p1 t_hight 0 tag1)
  (princ)
)

前生

你好.希望以后问问题,帖子不要这样,否则其他的斑竹或朋友们就不好回答问题了?
我个人的意见是用词典类的东西，方便很多,
看看vlax-ldate-??类的函数