“无名块”如何炸开编辑?

jyjtlyj

“无名块”如何炸开编辑?各位大虾，我有一个DWG，不知道为什么，无法炸开和编辑，请教大家，急急急！！！！0 `/

slcs4321

文件设置只读格式　当然无法编辑了

jyjtlyj

不是只读格式，打散时，提示“一个多重插入的快”

清轻的风

我也想知道,帮顶!!!

fgq86233246

多重插入块:设置行数和列数在2以上,设置行距和列距为零,这种块是无法进行编辑的,行列间距设置不为零的块可以编辑
下面传一个自编的LISP文件,你把以下红色部分文字复制在记事本,然后另存为后缀名为.LSP格式的文件
.然后在CAD中,APPLOAD加载这个小程式后--命令行键入EXM123.按命令行提示,
然后就能用REFEDIT和EXPLODE命令了..不信你就试试,如果对你有用的话,留下你的意见.我试了好多,均能炸开.
(DEFUN C:exm123 ()
(setvar "cmdecho" 0);;;保存系统变量.
(SETQ STM (car (ENTSEL "\n点取多重块")));;;选择
(while stm
(setq e (entget stm))
(setq stlx (cdr (assoc 0 e)))
(if (= stlx "INSERT");;;条件判断
(PROGN
(setq r_zm70 (assoc 70 e))
(setq c_zm71 (assoc 71 e))
(setq r_dist_zm44 (assoc 44 e))
(setq c_dist_zm45 (assoc 45 e))
(setq e (subst (cons 44 0) r_dist_zm44 e))
(setq e (subst (cons 45 0) c_dist_zm45 e))
(setq e (subst (cons 70 0) r_zm70 e))
(setq e (subst (cons 71 0) c_zm71 e))
(setq e (subst (list 100  "AcDbBlockReference") (list 100  "AcDbMInsertBlock") e))
(entmake e)
(entdel stm)
))
(SETQ STM (car (ENTSEL "\n点取下一多重块")))
)
(setvar "cmdecho" 1)
)
以下文字是创建多重插入块的过程(CAD中)
命令:
MINSERT 输入块名或 [?] <71.04>:
单位: 毫米   转换:      1.00
指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)]:
输入 X 比例因子，指定对角点，或 [角点(C)/XYZ(XYZ)] <1>: 1
输入 Y 比例因子或 <使用 X 比例因子>: 1
指定旋转角度 <0>:
输入行数 (---) <1>: 2
输入列数 (|||) <1>: 2
输入行间距或指定单位单元 (---): 0
指定列间距 (|||): 0
上传一张做的多重插入块,试用以上做的LISP,就能炸开




[ 本帖最后由 fgq86233246 于 2009-9-10 11:52 编辑 ]

jyjtlyj

首先，感谢楼上的帮助。我在用了你的lsp程序后，文件变为一个块，但如果用打散命令后，图形没有了；如果用在位编辑块来编辑的话，提示“** 无法 REFEDIT 无名块 **”，无法编辑。所以你的程序好想对我的文件作用不大。

fgq86233246

楼主再试着用下面的红色文字按楼一所说的做成一个.lsp文件试试
我在我的电脑上操作没有问题,用下面的试试
(defun c:unlk (/ en ent)
(setq en (entsel "\n请选择多重块的图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
"INSERT"
)
(progn
(setq ent (entmakex
(list '(0 . "INSERT")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(command "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK，解密成功。")
(princ)
)

jyjtlyj

To FGQ86233246：这个lsp程序在有的图纸中可用，在我的图纸中运行后，图形打散后就被删除了，可能供图者还做了一层手脚，不知楼上遇到过没有。

fgq86233246

我碰到的情况是炸开后部分图形消失,并不是全部消失,我试了一下,在我的电脑做也一个多重块,在我
的电脑里用我说的两个程式分解没有问题,用办分室同事的电脑操作,部分图形就消失了,
这可能是制作多重块时,引用的是参照 ,如果找不到源参照文件,分解后就会丢失部分数据,
用这个方法加密文件也是一种保护.我也在研究这个问题.

[ 本帖最后由 fgq86233246 于 2009-9-12 09:05 编辑 ]

jyjtlyj

是的，我试了其他几台电脑，有的打开图形后，没有内容。