|
|
发表于 2003-7-18 16:32:00
|
显示全部楼层
楼主，看看这段，我也是用到这点，呵呵，希望有帮助。
Option Explicit
Public AcadApp As AcadApplication
Public Sub Connect_Acad()
On Error Resume Next
Set AcadApp = GetObject(, "autocad.application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("autocad.application")
If Err Then
MsgBox ("系统无法运行AutoCAD,请检查是否正确安装了AutoCAD")
Exit Sub
End If
End If
AcadApp.Visible = True
AcadApp.WindowState = acMax
End Sub
Private Sub Command1_Click()
Connect_Acad
'AcadApp.Documents.Add '功能是新建一张图纸
'考虑完全，在新建图纸的时候，考虑是否已经有存在的
Dim MyfileName As String
MyfileName = App.Path & "\tp_drawing\" & Text1 & Text2 & ".dwg" '图纸命名
If Dir(MyfileName) "" Then
If MsgBox("已经有同命名的图纸存在!" & vbCrLf & "选择Y打开图纸，选择N返回检查命名是否正确", vbYesNo, "提示信息") = vbYes Then
AcadApp.Documents.Open MyfileName
Else
Exit Sub
End If
Else
AcadApp.ActiveDocument.SaveAs App.Path & "\tp_drawing\" & Text1 & Text2 & ".dwg"
End If
End Sub |
|
置顶卡
