自动删除旧图纸创建新图纸

machinecn

我在VB中加了可按纽，希望每次CLICK之后都可以生成一张图纸，并把上次生成的关掉
应该怎么做？

mccad

可以使用单文档来解决，不用编程。在选项中可以选项。
如果真的要编程，用文档的Close和New方法来解决。

mccad

如果是多文档时，新建文档应该使用文档集的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楼的答复，呵呵，我都想知道怎么搞？
哪位帖出来，呵呵，谢了！

machinecn

谢谢大家了，这个问题搞定了！