调用的时候,有的时候可以打开,有的时候就卡住不动了,哪位高手会啊?
代码如下:
Sub Cad_drawing()
Dim App As AcadApplication, DOC As AcadDocument
On Error Resume Next
Set App = GetObject(, "AutoCad.Application") '若AutoCAD 已运行则获得它的对象实例
If Err Then '若没有安装 AutoCAD
Err.Clear
Set App = CreateObject("AutoCad.Application")
If Err Then '若没有安装 AutoCAD
MsgBoxErr.Description
MsgBox "系统未安装AutoCAD,请安装AutoCAD"
End If
End If
App.Visible = True
Set DOC = App.Documents.Add
......
中间是画图的指令
......
App.ActiveDocument.SaveAs "D:\线路纵断面图.dwg"
App.Application.ZoomExtents
End Sub
我是新手,所以编的比较简单,望高手帮忙解决问题