2010里VBA第一次插入块没有问题，但新建文档后第二次插入就会出问题

GJY · 发表于 2011-4-10 19:06:00

1将此代码复制后粘贴在ThisDrawing 代码下，并且任意制作一个文件放在此目录下C:\WA3.DWG
2回到CAD环境，双击鼠标左键会插入此块
3再新建一文档，双击鼠标左键插入时会出错
具体的错误就是上一个帖子所说的。
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
Dim BlockRef As AcadBlockReference
Dim InsertPoint(0 To 2) As Double
InsertPoint(0) = 0
InsertPoint(1) = 0
InsertPoint(2) = 0
Set BlockRef = ThisDrawing.ModelSpace.InsertBlock(InsertPoint, "WA3.DWG", 1, 1, 1, 0)
Set BlockRef = Nothing
End Sub
高手可以粘贴此代码试试。
问题的所在就是在2010里第一次插入块没有问题，但新建文档后第二次插入就会出问题