<pre name="code" class="vb">Dim acadapp As AcadApplication '在窗体代码声明段定义acadapp
Private Sub Command1_Click()
acadapp.Documents.Add '创建新的图形文件
End Sub
Private Sub Command2_Click()
Dim myfilename As String
Me.CommonDialog1.ShowOpen
myfilename = Me.CommonDialog1.FileName
If myfilename <> "" Then
acadapp.Documents.Open myfilename
End If
End Sub
Private Sub Command3_Click()
Dim savename As String
Me.CommonDialog1.ShowSave
savename = Me.CommonDialog1.FileName
If savename <> "" Then
acadapp.ActiveDocument.SaveAs savename
End If
End Sub
Private Sub Command4_Click()
If Not acadapp.ActiveDocument.Saved Then
If MsgBox("是否保存文件?", vbYesNo) = vbYes Then
acadapp.ActiveDocument.Save
End If
End If
End Sub
Private Sub Command5_Click()
acadapp.ActiveDocument.Close (True) '以当前文件名和路径保存修改后的图形文件,然后关闭文件,若为False则不修改即保存
End Sub
Private Sub F
VB CAD插件二次开发
最新推荐文章于 2024-07-31 16:53:49 发布
本文介绍如何利用VB与AutoCAD接口进行插件开发,通过VB代码实现新建、打开、保存、关闭图形文件的功能。在窗体加载时尝试连接已运行的CAD实例,或创建新的CAD应用实例,并确保CAD应用程序可见。
摘要由CSDN通过智能技术生成