关于VB中炸开块的问题

phgcad

我在VB中插入一个块，设定插入比例为X=2 Y=2 Z=1，然后炸开改块。提示出错。但我把比例改为X=1 Y=1 Z=1则没有问题。奇怪。 Dim blkInsPnt(2) As Double
Set BlkRefrence = mspace.InsertBlock(blkInsPnt, "c:\a4.dwg", tzbl, tzbl, 1#, 0) BlkRefrence.Explode '该语句在比例为1时不出错，其它比例则出错。

mccad

不知是BUG还是故意这样做的。

雪山飞狐_lzh

Public Sub test()
Dim pnt(2) As Double
Set a = ThisDrawing.ModelSpace.InsertBlock(pnt, "A", 2, 2, 2, 0)
a.Explode
End Sub
不等比插入，VBA里是炸不开的

phgcad

搞定.谢谢老大!