我怎样才能炸开所有的方块

hosyn · 发表于 2022-7-6 06:00:23

如何使用lisp文件分解图形中的所有块？？

GP_ · 发表于 2022-7-6 06:41:48

尝试


(defun c:TesT ( / qaf a)
   (setq qaf (getvar 'qaflags))
   (setvar 'qaflags 1)
   (setq a (ssget "_X" '((0 . "INSERT"))))
   (command "_explode" a "")
   (setvar 'qaflags qaf)
   (princ)
)

另请参见此处：http://www.cadtutor.net/forum/showthread.php?77625-分解所有块

Tharwat · 发表于 2022-7-6 07:27:53

GP，您可能需要从选择集中排除外部参照块，此外，如果您添加if函数以保证
变量a最终不等于零，这很好

[编程交流] 我怎样才能炸开所有的方块

发表回复

精选推荐