属性blo的串联
你好我有一个带有标题栏的图形模板，标题栏包含属性title1、title2、title3、title4、title5、dwg1和dwg2。我需要在TEAMCENTER（PLM软件）中将标题1、标题2、标题3、标题4、标题5映射到标题描述，并将dwg1、dwg2映射到DWgdesc。
因此，我需要编写一个autolisp程序，在绘图模板中创建两个新属性，即titledesc和dwgdesc，并将它们添加到现有的标题栏中。之后，我需要将标题（1到5）连接到titledesc，将dwg（1到2）连接到dwgdesc属性。
请帮助解决这个问题。
(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)
)
“TitleAttribute”=块名
你可以根据自己的需要使用和修改它，尽管不要引用我的话
页:
[1]