[编程交流] 属性blo的串联

(defun c:aaa ( / blkss att val vallst tag a b)
(setq blkss (ssget "_X" '((2 . "TITLEATTRIBUTES"))))
(setq ATT (ssname blkss 0))
(setq ATT (entnext ATT))
   (while (= (cdr (assoc 0 (entget (setq att (entnext att))))) "ATTRIB")
     (setq val (cdr (assoc 1 (entget att)))
    vallst (cons val vallst)))
(setq tag (nth 1 vallst))
(if (=(strlen tag) 1)
(progn
  (setq a (strcat "-0" tag))
))
(if (=(strlen tag) 2)
(progn
  (setq a tag)
))
(if ( = (nth 2 vallst) "1")
(progn
(setq a "-00")
))
(setq b (strcat (nth 53 vallst)a))
(command "-attedit" "n" "n" "" "L-CONDWGNO" "" "-" b)
)