[求助]关于将某文件夹下DWG文件当作块插入当前DWG文件

hchm · 发表于 2008-5-2 10:49:00

目的叙述：
将D盘5w.dwg文件当作块插入当前已打开的xyz.dwg文件？
程序内容：
Private Sub Command2_Click()
Dim blockRefObj As AcadBlockReference
Dim Pnt(0 To 2) As Double
Pnt(0) = 2
Pnt(1) = 2
Pnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(Pnt, "D:\5w.dwg", 1#, 1#, 1#, 0)
blockRefObj.Update
End Sub
出现错误：
实时错误：424 要求对象
（对上述红色区域）
问题请教：
1、以上程序错在那里？怎样修改？
2、如果想在插入时打散（炸开），应怎样修改？
谢谢各位。

fjfhgdwfn · 发表于 2008-5-2 17:43:00

炸开 blockRefObj.Explode
可能是你的D盘下没有5W.DWG
我这可以运行。

azjmjsj · 发表于 2008-5-3 04:45:00

代码正确，可以运行
Private Sub CommandButton1_Click()
Dim blockRefObj As AcadBlockReference
Dim Pnt(0 To 2) As Double
Pnt(0) = 2
Pnt(1) = 2
Pnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(Pnt, "D:\5w.dwg", 1#, 1#, 1#, 0)
blockRefObj.Explode
blockRefObj.Update
End Sub

hchm · 发表于 2008-5-3 10:49:00

哦，我忘记告诉大家是在VB中编的，并不是VBA,
请问是不是ThisDrawing出的错？
在VB中当前文件能用ThisDrawing表示吗？
以上代码应怎样修改？盼复！

fjfhgdwfn · 发表于 2008-5-3 11:27:00

看看这个。再在GOOGLE中搜下VBA VB CAD，网上很多的

azjmjsj · 发表于 2008-5-3 12:29:00

Public AcadApp As Object
Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
   Set AcadApp = CreateObject("AutoCAD.Application")
   If Err Then
   MsgBox ("不能运行AutoCAD, 请检查是否安装了AutoCAD")
   Exit Sub
   End If
End If
AcadApp.Visible = True
End sub
Private Sub CommandButton1_Click()
Dim blockRefObj As Object
Dim Pnt(0 To 2) As Double
Pnt(0) = 2#: Pnt(1) = 2#:  Pnt(2) = 0#
Set blockRefObj = AcadApp.Activedocument.ModelSpace.InsertBlock(Pnt,"D:\5w.dwg",1#, 1#, 1#, 0)
blockRefObj.Explode
blockRefObj.Update
End Sub
西北凡人: http://www.abofanyi.com/blog