潇湘夜雨 发表于 2003-11-13 17:54:00

再次请大家帮帮忙！！
焦急之心，难以言表！！！！

mccad 发表于 2003-11-13 18:14:00

真的不知道还需要写些什么，因为该提醒的都已经提醒了，剩下的就是你把所提醒的东西改上去：Sub InsDwg()
    Dim InsetPoint(0 To 2) As Double
    Dim ImporFile As String
    InsetPoint(0) = 0: InsetPoint(1) = 0: InsetPoint(2) = 0
    ImporFile = "d:\123.dwg"
    ThisDrawing.ModelSpace.InsertBlock InsetPoint, ImporFile, 1, 1, 0
    ThisDrawing.Application.Update
End Sub

潇湘夜雨 发表于 2003-11-16 13:36:00

谢谢！！各位见笑！！我真的是太笨了！！：）
页: 1 [2]
查看完整版本: 请问VBA中怎样在R14中插入dwg文件？