[编程交流] 将属性值复制到anothe

(defun c:test ( / e x a ax v)
   (setq e (car (entsel "\nSelect the titleblock to change : "))
         x (entget e)
   )
       (if
           (and
               (= "INSERT" (cdr (assoc 0 x)) )
               (= "YOURTITLEBLOCKNAME" (cdr (assoc 2 x)) )
           )
               (progn
                   (setq a (entnext e)
                         ax (entget a)
                   )
                       (while
                           (/= "SEQEND" (cdr (assoc 0 ax)) )
                           (if
                               (= "%%UTITLE2" (cdr (assoc 2 ax)) )
                               (setq v (cdr (assoc 1 ax)) )
                           )
                           (if
                               (= "TITLE3" (cdr (assoc 2 ax)) )
                               (entmod
                                   (subst
                                       (cons 1 v)
                                       (assoc 1 ax)
                                       ax
                                   )
                               )
                               (entupd e)
                           )
                         (setq a (entnext a)
                               ax (entget a)
                         )
                       )
               )
               (princ "\nTitleblock not selected!")
       )
 (princ)
)