请问VBA中怎样在R14中插入dwg文件？

潇湘夜雨

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

mccad

真的不知道还需要写些什么，因为该提醒的都已经提醒了，剩下的就是你把所提醒的东西改上去：

2. Sub InsDwg()
   
3.     Dim InsetPoint(0 To 2) As Double
   
4.     Dim ImporFile As String
   
5.     InsetPoint(0) = 0: InsetPoint(1) = 0: InsetPoint(2) = 0
   
6.     ImporFile = "d:\123.dwg"
   
7.     ThisDrawing.ModelSpace.InsertBlock InsetPoint, ImporFile, 1, 1, 0
   
8.     ThisDrawing.Application.Update
   
9. End Sub
   

Sub InsDwg()<br />     Dim InsetPoint(0 To 2) As Double<br />     Dim ImporFile As String<br />     InsetPoint(0) = 0: InsetPoint(1) = 0: InsetPoint(2) = 0<br />     ImporFile = "d:\123.dwg"<br />     ThisDrawing.ModelSpace.InsertBlock InsetPoint, ImporFile, 1, 1, 0<br />     ThisDrawing.Application.Update<br /> End Sub<br />

潇湘夜雨

谢谢！！各位见笑！！我真的是太笨了！！  ：）