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

GJY

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里第一次插入块没有问题，但新建文档后第二次插入就会出问题

wuliang226

我也遇到同样的问题 请高手指教

GJY

跪求高手指教！！！

yuanhui_hust

没有给出具体的地址吧，试试改成“C:\WA3.DWG”

GJY

没有给出具体的地址吧，试试改成“C:\WA3.DWG”

我已经将WA3.DWG文件放在了atuocad的支持目录底下了