[求助]：多重引用怎样炸开????

大眼suntao

各位大虾请教多重引用怎样炸开或分解????*-*6

liuzz2004

查看一下多重引用的属性，用LIST，看一下是什么图块，然后用INSERT命令插入这个图块，插入之后就可以炸开了。
另外我想问一下，你怎么会遇见这个问题，是不是你在插入其他图块之后，这个图块就变成了内部引用了呀？如果是这个的话，你可能是中了毒了，最好是杀一下。

大眼suntao

我先说一下不是中毒,另在CAD帮助文件中也说明了块的多重引用不可炸开,但我曾在明经论坛上看到有人讨论过,有一高手说明可以爆开,但他没有说明方法.

momokoo

试一试命令XP，也许可以

brian-lew

碰到过类似的问题,但是最后都是不了了之了.

雪山飞狐(lzh)

用编程解决，获取多重引用的属性，按属性值插入相应个数的块，再将原来的多重引用删除

柔柔

这多半是“加密”游戏，用的当然是匿名块，无法找出原图块插入的。

雪山飞狐(lzh)

[Code]Sub MExplode()
'程序功能：炸开MINSERT 命令插入的块
On Error GoTo ErrHandle
Dim obj As AcadMInsertBlock, pnt, dot
Dim p1(2) As Double, p2
ThisDrawing.Utility.GetEntity obj, pnt
dot = obj.InsertionPoint
For i = 0 To obj.Columns - 1
For j = 0 To obj.Rows - 1
p1(0) = dot(0) + i * obj.ColumnSpacing
p1(1) = dot(1) + j * obj.RowSpacing
p2 = ThisDrawing.Utility.PolarPoint(dot, obj.Rotation + ThisDrawing.Utility.AngleFromXAxis(dot, p1), GetDistance(dot, p1))
ThisDrawing.ModelSpace.InsertBlock p2, obj.Name, obj.XScaleFactor, obj.YScaleFactor, obj.ZScaleFactor, obj.Rotation
Next j
Next i
obj.Delete
ErrHandle:
End Sub
Function GetDistance(ByVal Point1, ByVal Point2)
GetDistance = Sqr((Point2(0) - Point1(0)) ^ 2 + (Point2(1) - Point1(1)) ^ 2)
End Function[/Code]

lyd128

楼上斑竹能发个LISP程序吗？

雪山飞狐(lzh)

Lisp偶可编不出来,：）
好象lisp版有这样的程序，你找找看
或者请maplesu斑竹编一个？

yangjunjie2

别人给你发的,你的电脑中怎么可能有那个插入的块呢?