[求助]：如何用VBA方法炸开不等比图块并创建选择集

雨箭风刀

EXPLMODE 系统变量   
     概念     操作步骤     命令   


类型:  整数
保存位置:  不保存
初始值:  1


控制 EXPLODE 命令是否支持按非统一比例缩放 (NUS) 的块。

0
不分解 NUS 块

1
分解 NUS 块

小菜

explode方法似乎不受这个系统变量的控制

highflybird

to : snoopychen
谢谢你提供帮助，我验证了你所说的代码：还是不行
对于等比的可以（直接用vla-explode也可以），但是对于不等比的图块，还是不行。
to : 雨箭风刀
关于系统变量我仔细检查了，
EXPLMODE 是设置为1 的，（默认值）
即使把它的设置加入到lisp程序中还是不行。我想可能不是系统变量的问题。
抑或我的方法不对，能指教么？

具有相同 X、Y、Z 比例的块将分解成它们的部件对象。具有不同 X、Y、Z 比例的块（非一致比例块）可能分解成意外的对象。

当非一致比例块包含有不能分解的对象时，这些不能分解的对象将被收集到一个匿名块（以“*E”为前缀）中并且以非一致比例缩放进行参照。如果这种块中的所有对象都不可分解，则选定的块参照不能分解。非一致缩放的块中的体、三维实体和面域图元不能分解

这是摘抄帮助中的一段话。
另外，2004及以下版本对一个非一致比例缩放的图块，如果这个图块中包含的图元全都是非一致图块的话，-----也就是你做了两次非一致的图块， 不能炸开，即使用command命令也不可以。
----我指的是如果用程序的方式作块！有可能是匿名块。
但对于2006以上版本好像是可以炸开的。