可以的，看附件。
你好老师在吗，能不能再优化下，提取轴线符号，比如说有7-D,7-E,还有7-1,7-2.我提取的时候输入命令tt，先提取7-D 7-E中间用7-D/7-E,然后右键一下，在提取7-1 7-2，变成7-D/7-E*7-1/7-2 ludaweb 发表于 2016-3-28 21:52 static/image/common/back.gif
可以的，看附件。
老师你好，试下我新传的那个123的图纸附件 (defun c:tt( / ss i str str2 ent entdb)
(vl-load-com)
(princ "\n请选择要连接的轴号")
(setq ss (ssget '((0 . "INSERT") (66 . 1))))
(setq i 0)
(setq str "")
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))
(if (= str "")
(setq str entdb)
(setq str (strcat str "/" entdb))
)
(setq i (1+ i))
)
(princ "\n请再选择要连接的轴号")
(setq ss (ssget '((0 . "INSERT") (66 . 1))))
(setq i 0)
(setq str2 "")
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))
(if (= str2 "")
(setq str2 entdb)
(setq str2 (strcat str2 "/" entdb))
)
(setq i (1+ i))
)
(SET-CLIP-STRING (strcat str "*" str2))
(princ)
)
页:
1
[2]