自动删除旧图纸创建新图纸
我在VB中加了可按纽，希望每次CLICK之后都可以生成一张图纸，并把上次生成的关掉应该怎么做？ 可以使用单文档来解决，不用编程。在选项中可以选项。
如果真的要编程，用文档的Close和New方法来解决。 如果是多文档时，新建文档应该使用文档集的Add方法。 楼主，看看这段，我也是用到这点，呵呵，希望有帮助。
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 使用vb来操纵AutoCAD的话，创建新图形文件可以用
acadapp.documents.add
关闭文件，可以用
acadapp.activedocument.close
要是不保存文件的修改，关闭文件，可以用
acadapp.activedocument.close（false）
这个是适合于多文档操纵。mccad斑竹在2楼的答复，呵呵，我都想知道怎么搞？
哪位帖出来，呵呵，谢了！ 谢谢大家了，这个问题搞定了！
页:
[1]