(defun c:Dave ( / ss )
(vl-load-com)
;; Lee Mac~18.05.10
(if
(setq ss
(ssget "_:L"
'((0 . "INSERT") (66 . 1))
)
)
(
(lambda ( i / ent atts tag1 )
(while (setq ent (ssname ss (setq i (1+ i))))
(setq atts nil atts
(mapcar
(function
(lambda ( attrib )
(cons
(strcase
(vla-get-TagString attrib)
)
attrib
)
)
)
(vlax-invoke
(vlax-ename->vla-object ent) 'GetAttributes
)
)
)
(if (and (setq tag1 (cdr (assoc "TAG1" atts)))
(setq tag1 (vla-get-TextString tag1)))
(mapcar
(function
(lambda ( stag dtag / x y s )
(if (and (setq x (cdr (assoc stag atts)))
(setq y (cdr (assoc dtag atts)))
(not (eq "" (setq s (vla-get-TextString x)))))
(vla-put-TextString y (strcat tag1 "-" s))
)
)
)
'("TERM01" "TERM02")
'("F-TERM01" "F-TERM02")
)
)
)
)
-1
)
)
(princ)
)
好极了，李，这正是我（现在）需要的。
尽管有我之前的消息，如果你有机会来霍舍姆，我相信我们可以在皇家橡树酒店找到一杯饮料。 谢谢Dave我很乐意帮忙
很抱歉，我想我没有完全理解这个请求。很高兴李把你摆平了。 当我要求这样做时，这只是一个测试，李的常规动作足以证明这一点。然而，我把electrical推进了一点，现在我发现我向提供的块添加属性的想法有一些局限性。在多极设备上，电气修改了某些标签，有时完全搞砸了我的解决方案。
我现在考虑做的是使我的F-TermXX属性成为它们自己的一个块（让我们称之为“套圈文本”），具有与电路符号相同的基点。在我仔细考虑之前，你认为有没有可能（现在是/否/可能就足够了）从电路图中选择一个符号，并将某些属性值添加到共享同一插入点的套圈文本中？
我目前不需要路由，因为可能还有其他原因不这样做，但我欢迎您的意见。 我以前没有用过电器，但我认为大多数事情都是可能的 那条评论表明你没有用过电器
它内置了很多反应器，所以你可以把一部分做好，在其他地方添加一些东西，整个批次都会自动更新！尤其令人恼火的是，当你意识到你不是故意把那个部件掉在那里的时候。
顺便说一句，pm可能在今天某个时候发出。
：lol：
我可以想象那会有多烦人。。没有办法禁用该功能？
别担心，伙计 是的，它叫vanilla AutoCAD。
电气的很多功能都是非常不精确的，如果你的解决方案接近MCC，那就太棒了。我们的解决方案没有那么接近，所以一直绊倒我。再加上我是唯一一个使用自动取款机的人，我是一个机械工程师，你可以想象我的沮丧！
哈哈，我看到了。。。
页:
1
[2]