DWG文件插入到DWG文件中的VBA问题

wuliang226

请问我如何在CAD中通过VBA将一个个文件插入到一个已经打开的文件中并另存呢？？我用INSERTBLOCK方法好像不行。比如下面代码：

Sub insertmoban()
Dim pathname As String
Dim pointbase(0 To 2) As Double

pointbase(0) = 0
pointbase(1) = 0
pointbase(2) = 0
pathname = "C:\Program Files\AutoCAD 2002\Support\塔基模板.dwg"

Dim insertedBlock  As AcadBlockReference
ThisDrawing.Application.Documents.Open pathname
Set insertedBlock = ThisDrawing.ModelSpace.InsertBlock(pointbase, "C:\Documents and Settings\Administrator\桌面\试验\1.dwg", 1#, 1#, 1#, 0)
 End Sub

lsyinjiang

我也很想学习一下，
顶上去

johansen

我的也是这样的情况，运行后什么都看不见，我有点怀疑是不是插入图形中有些字体需要代替的原因所以导致动作中断，。x

希望有高手可以帮帮忙

johansen

兄弟，把你的代码改成以下看看，我的成功了，一个小错误。！

Dim inPoint(0 To 2) As Double  
    Dim sca As Double   
    Dim ro As Double    
    Dim bName As String     
    Dim blockObj As AcadBlockReference
    bName = "文件路径"
    inPoint(0) = 0#
    inPoint(1) = 0#
    inPoint(2) = 0#
    sca = 1#
    ro = 0
   
    On Error Resume Next
   
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(inPoint, bName, sca, sca, sca, ro)
     
Unload Me

End Sub

这是插入一个外部图形到已打开的图形中...

wuliang226

我试了还是不行，命令行总是出现：块 1 参照本身，不知何故望高手赐教！谢谢。

Public Sub HH()
    Dim inPoint(0 To 2) As Double
    Dim sca As Double
    Dim ro As Double
    Dim bName As String
    Dim blockObj As AcadBlockReference
    bName = "C:\Documents and Settings\Administrator\桌面\试验\1.DWG"
    inPoint(0) = 0#
    inPoint(1) = 0#
    inPoint(2) = 0#
    sca = 1#
    ro = 0
   
    On Error Resume Next
   
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(inPoint, bName, sca, sca, sca, ro)
End Sub

清风明月名字

我试了，4楼的代码可以啊。

inPoint(0) = 0#
    inPoint(1) = 0#
    inPoint(2) = 0#
    sca = 1#
这其中的“#”我删除了，