找到一个块并将其发送到

ronjonp · 发表于 2022-7-5 16:37:18

下面是我如何通过提供的示例来实现这一点。

(defun c:foo (/ s)
 (if (setq s (ssget "_x" '((0 . "insert") (2 . "block##") (8 . "0"))))
   (foreach x (mapcar 'cadr (ssnamex s)) (entmod (append (entget x) '((8 . "FTG-IsoCont")))))
   (print "No Objects Found...")
 )
 (princ)
)

GregGleason · 发表于 2022-7-5 16:40:33

谢谢你，罗恩·琼普！成功了！

所以我可以学习，这和我走的方向有什么不同？

格雷格

ronjonp · 发表于 2022-7-5 16:46:54

格雷格，

代码不依赖于坐标来选择这些对象，也没有命令调用。请注意，如果任何其他块位于层0上，则其层也将更改。

这个问题是如何产生的？您的示例图形看起来像是由某种软件包生成的。

GregGleason · 发表于 2022-7-5 16:52:22

是的，图纸是由另一个软件包生成的。其中一些我们可以在创造之前控制，但有些必须在创造之后处理。

格雷格

[编程交流] 找到一个块并将其发送到

发表回复

精选推荐