求助]分解＂不等比例插入的实体块＂

FJQZ456

不等比例插入的实体块＂无法分解，也就无法编辑，谁能帮忙写个分解的程序！ 因为工作的需要,我做了大量能反复使用的图块保存着(墓石部件,全是立体的),如果遇到同样造型的产品,我就直接调出图块把比缩放一下插入就行了,节省了很多的劳动力,但是,有些块插入后对局部要做些小的修改,不能分解就无法对实体进行编辑, 比如说我传上来的那个块,我已经比例缩放到刚好的尺寸了,只要把后边那两个小缺口改小一点就行了,但是不能分解成实体就无法改,如果能分解成实体我只要把那两个小的面拉伸一点点就很OK了,可惜无法分解成实体,我只能是望"块"兴叹啊! 这个问题愁白了我不少的头发,希望大家能找到解决的方案,期待中!!!!

本帖包含附件

	Drawing4[1].dwg ( 142.94 KB，已被下载 0 次 )
	该文件为 AutoCAD 2004 文件，可使用 AutoCAD 2004 及以上版本打

alin

;; By Juerg Menzi
(defun MeExplode (Obj / ExpObj ObjLst TmpEnt)
(setq TmpEnt (entlast)
ExpObj (vla-Copy Obj)
)
(if (vl-cmdf "_.EXPLODE" (vlax-vla-object->ename ExpObj))
(progn (setq TmpEnt (handent (cdr (assoc 5 (entget TmpEnt)))))
(while (setq TmpEnt (entnext TmpEnt))
(setq ObjLst (cons (vlax-ename->vla-object TmpEnt) ObjLst))
)
)
(vla-Delete ExpObj)
)
(reverse ObjLst)
)

FJQZ456

请问老大,如何运行这个程序啊?

alin

对不起，上面的程序只对二维的块有效。AutoCAD的Explode方法对二维的NUS块也不能炸开，所以有人采用这样的方法在程序中炸开NUS块。至于三维的可能要用CopyObject方法将块中对象复制出来，再变换到正确的位置。

FJQZ456

具体如何操作,能否解释的详尽些?谢谢!

alin

先取得对象obj,然后(meExplode obj)



如：(meExplode (vlax-ename->vla-object (car (entsel "\Select the NUS block:"))))


不过3D的不行。如果您只是想编辑它，可以在别处插入一个等比例块，炸开编辑后再Update该块。

无痕

分解可用


ｃ：ｘｐｌｏｄｅ　命令

alin

这是什么命令？

xqyhome

Xplode与explode的核心是一样的 只不过是xplode增加了一些选项，xplode有源程序xplode.lsp,输入选项后调用的还是内部命令explode. 命令: xplode 选择要分解的对象。
选择对象: 找到 1 个 选择对象: 1 个对象已找到。 输入选项 [全部(A)/颜色(C)/图层(LA)/线型(LT)/从父块继承(I)/分解(E)] <分解>

xqyhome

1.   不等比例插入的实体块＂无法分解

复制代码

什么情况下形成的这个块文件呢？我画了一个圆，用WBLOCK写成块文件，再用不同的比例插入到图形中，圆成为了椭圆，但我用Explode命令是可以炸开这个椭圆的呀，这是怎么回事呢？？