phgcad 发表于 2004-8-28 13:56:00

关于VB中炸开块的问题

我在VB中插入一个块，设定插入比例为X=2 Y=2 Z=1，然后炸开改块。提示出错。但我把比例改为X=1 Y=1 Z=1则没有问题。奇怪。


Dim blkInsPnt(2) As Double<BR>Set BlkRefrence = mspace.InsertBlock(blkInsPnt, "c:\a4.dwg", tzbl, tzbl, 1#, 0)


        BlkRefrence.Explode                       '该语句在比例为1时不出错，其它比例则出错。




<BR>       

mccad 发表于 2004-8-28 18:57:00

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

雪山飞狐_lzh 发表于 2004-8-28 21:44:00

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

phgcad 发表于 2004-8-29 00:14:00

搞定.谢谢老大!
页: [1]
查看完整版本: 关于VB中炸开块的问题