[编程交流] 属性标记-值-

(defun c:test ( / des ent lst map src )
   (setq map '(("[color="red"]TAG1[/color]" . "[color="red"]TAG2[/color]")))
   (while
       (progn (setvar 'errno 0) (setq ent (car (entsel "\nSelect block: ")))
           (cond
               (   (= 7 (getvar 'errno))
                   (princ "\nMissed, try again.")
               )
               (   (null ent) nil)
               (   (/= "INSERT" (cdr (assoc 0 (entget ent))))
                   (princ "\nThe selected object is not a block.")
               )
               (   (null 
                       (setq lst 
                           (mapcar
                              '(lambda ( x ) (cons (strcase (vla-get-tagstring x)) x))
                               (vlax-invoke  (vlax-ename->vla-object ent) 'getattributes)
                           )
                       )
                   )
                   (princ "\nThe selected block has no attributes.")
               )
               (   (foreach itm map
                       (if (and (setq src (cdr (assoc (car itm) lst)))
                                (setq des (cdr (assoc (cdr itm) lst)))
                                (vlax-write-enabled-p des)
                           )
                           (vla-put-textstring des (vla-get-textstring src))
                       )
                   )
               )
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

; Change attribute value by created position
(vl-load-com)
(setq y 1)
(setq ss1 (car (entsel)))
(setq bname (vla-get-name(vlax-ename->vla-object SS1))) 
(setq x (getint "\nEnter line no to pick")) ; change this line in block
(SETQ newstrblank ".")
(foreach att (vlax-invoke (vlax-ename->vla-object SS1) 'getattributes)
   (if (= y x)
   (progn
   (setq newstr (vla-get-textstring att ))
   (vla-put-textstring att newstrblank)
   )
   )
   (setq y (+ Y 1))
)
(setq y 1)
(setq x (getint "\nEnter line no to move to"))
(foreach att (vlax-invoke (vlax-ename->vla-object SS1) 'getattributes)
   (if (= y x)
   (vla-put-textstring att newstr)
   )
   (setq y (+ Y 1))
)
(princ)