GJY 发表于 2011-4-10 19:06:25

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

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 发表于 2011-4-20 10:18:29

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

GJY 发表于 2011-6-13 13:45:46

跪求高手指教！！！

yuanhui_hust 发表于 2011-6-13 19:32:45

本帖最后由 yuanhui_hust 于 2011-6-13 19:35 编辑

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

GJY 发表于 2011-6-24 16:16:19

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

我已经将WA3.DWG文件放在了atuocad的支持目录底下了
页: [1]
查看完整版本: 2010里VBA第一次插入块没有问题，但新建文档后第二次插入就会出问题