FileCopy ThisDrawing.Application.Path + "\Support\DZBLSample.DWG", StrPrj '初始化后的工程文件,StrPrj是DWG文件 BLExist = False For Each MyDoc In ThisDrawing.Application.Documents If UCase(StrPrj) = UCase(MyDoc.FullName) Then BLExist = True MyDoc.Activate End If Next If Not BLExist Then ThisDrawing.Application.Documents.Open StrPrj End If'到这 提示文件已加载
这在2002下没有,请各位高手指点,拜托了!!!