[编程交流] 属性化文本标记

(defun c:attps ( / a b c e i s x )
   (setq a (getstring t "\nSpecify prefix <none>: ")
         b (getstring t "\nSpecify suffix <none>: ")
         c [highlight]"S,V" ;; Attribute Tag - change to suit[/highlight]
   )
   (if (setq s (ssget "_:L" '((0 . "INSERT") (66 . 1))))
       (repeat (setq i (sslength s))
           (setq e (entnext (ssname s (setq i (1- i))))
                 x (entget e)
           )
           (while (= "ATTRIB" (cdr (assoc 0 x)))
               (if (= (cdr (assoc 2 x)) c)
                   (entmod (subst (cons 1 (strcat a (cdr (assoc 1 x)) b)) (assoc 1 x) x))
               )
               (setq e (entnext e)
                     x (entget  e)
               )
           )
       )
   )
   (princ)
)