alexmai 发表于 2019-3-2 22:10:05

制作不能炸的块

最近碰到某图纸，发现这类标高块都不能炸开，连版主的超级炸都试过。
这些带属性字的块不能炸，用处很大，可以避免很多不必要的误炸。

非常好奇是如何制作的? 请问版主有制作方法吗？

附件：






1291500406 发表于 2019-3-3 10:00:55

本帖最后由 1291500406 于 2019-3-3 10:53 编辑

(defun C:bbINSERTExplodabletrue (/ X)(if (and (setq X (entsel "\n必强提示选择块设置为可分解: "))(setq X (vlax-ename->vla-object (car X))))
(vl-catch-all-apply '(lambda ()(setq X (vla-item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-get-name X)))(vla-put-Explodable X :VLAX-TRUE))))(princ))



(defun C:bbINSERTExplodablefalse (/ X)(if (and (setq X (entsel "\n必强提示选择块设置为不可分解: "))(setq X (vlax-ename->vla-object (car X))))
(vl-catch-all-apply '(lambda ()(setq X (vla-item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-get-name X)))(vla-put-Explodable X :VLAX-false))))(princ))

alexmai 发表于 2019-3-3 11:49:19

mokson 发表于 2019-3-3 08:39
打开块编辑器，将允许分解，改为是，就可以炸开了。

长知识，点赞！点赞！

mokson 发表于 2019-3-3 08:39:08

打开块编辑器，将允许分解，改为是，就可以炸开了。


alexmai 发表于 2019-3-3 11:55:07

1291500406 发表于 2019-3-3 10:00
(defun C:bbINSERTExplodabletrue (/ X)(if (and (setq X (entsel "\n必强提示选择块设置为可分解: "))(set ...

我也没想到会有这种操作，大感谢！

gxlx2007 发表于 2019-3-3 19:17:28

我也没想到会有这种操作,有用处的

菜卷鱼 发表于 2019-3-4 08:51:00

你应该说不能直接X 炸开的块，别的方式还是可以炸开的

lz123456 发表于 2019-3-4 14:19:30

最好能对多个块同时操作 炸开与否属性

dabingrain 发表于 2019-3-4 15:15:10

GOOD，可以搞的神秘一点了

wql 发表于 2021-1-21 11:36:30

长知识，点赞！点赞！
页: [1] 2
查看完整版本: 制作不能炸的块