问题多了点,但这个是要救命的,没看到在用B时允许分解没打勾,现在死定啦

龙龙仔

;BY LUCAS
(defun C:TT (/ OBJ)
  (vla-put-explodable
    (vla-item (vla-get-blocks
  (vla-get-activedocument (vlax-get-acad-object))
       )
       (vla-get-name
  (setq OBJ (vlax-ename->vla-object
       (car (entsel "\nSelect Block to explode: "))
     )
  )
       )
    )
    :vlax-true
  )
  (vla-explode OBJ)
  (princ)
)

muwind

以前没用过高版本的软件，不知道怎么解决，不过可以从块里把图形复制出来。进入块编辑器，复制，退出块编辑器，粘贴

另外把文件转化为低版本的比如2004的，在CAD2004下打开也可以炸开

xxxtttxxx

如果不是中毒，那么估计就是匿名块了。

需要通过程序修改块名

caoyin

(vla-explode (vlax-ename->vla-object (car (entsel))))

或者

用vla-put-explodable 将块设为可分解，然后再(command "explode" ...)

caoyin

龙龙仔发表于2008-6-20 8:01:00;BY LUCAS(defun C:TT (/ OBJ)  (vla-put-explodable

1. ....

复制代码

龙版主，好像 vla-explode 直接可以分解，而不需要 vla-put-explodable
块被设置“不可分解”(command "explode" .....)无法分解，而 vla-explode  可以

龙龙仔

liminnet发表于2008-6-20 9:25:00龙大哥,怎么你的程序用了后,块是炸开啦,但为什么有多了两个一样的块在原来的位置啊,郁闷啊...................

VLA-EXPLODE 只是炸開在原位置,我忘了把原塊刪除

lionyoyo

另建一张空白图

在里面重新建块

块名取与原图中块名相同，勾选可分解

将原图全部复制至本图中

忽略同名块

问题解决

很多时候这种问题不一定非要用编程来解决

编程是用来解决通用问题而非疑难杂症的~~