[VBA程序]：从一个dwg文件打开另外一个dwg文件的问题

susanxiaoshan

我希望用以下程序从一个已经打开的名为"地图"的dwg文件里打开另外一个dwg文件,可是下面这个程序运行的结果,是打开了"D:/gis/标注.dwg"该路径的文件后,又再一次打开了原"地图"dwg文件,怎么回事呢?请指教!

Sub layer_exp()
关闭工程窗口
ThisDrawing.SendCommand "mapwspace f "

'打开工程
Dim dwgName1 As String

dwgName1 = "D:/gis/标注.dwg"

If Dir(dwgName1) = "" Then
MsgBox ("文件" & dwgName1 & "不存在")
Exit Sub
End If
ThisDrawing.Application.Documents.Open dwgName1, False

'Dim currmenugroups As AcadMenuGroups
'Set currmenugroups = ThisDrawing.Application.MenuGroups
'currmenugroups.Menus.RemoveMenuFromMenuBar ("my menu")
End Sub

lsjjm

没有问题呀!:
[php]
Sub vv()
  Dim dwgname As String
  dwgname = "c:\lx1.dwg"
  If Dir(dwgname) <> "" Then
    ThisDrawing.Application.Documents.Open dwgname
  Else
    MsgBox dwgname & "Is not exit!"
  End If
End Sub
[/php]