VB CAD插件二次开发

Dim acadapp As AcadApplication   '在窗体代码声明段定义acadapp
Private Sub Command1_Click()
acadapp.Documents.Add  '创建新的图形文件
End SubPrivate Sub Command2_Click()
Dim myfilename As String
Me.CommonDialog1.ShowOpen
myfilename = Me.CommonDialog1.FileName
If myfilename <> "" Thenacadapp.Documents.Open myfilename
End If
End SubPrivate Sub Command3_Click()
Dim savename As String
Me.CommonDialog1.ShowSave
savename = Me.CommonDialog1.FileName
If savename <> "" Thenacadapp.ActiveDocument.SaveAs savename
End If
End SubPrivate Sub Command4_Click()
If Not acadapp.ActiveDocument.Saved ThenIf MsgBox("是否保存文件？", vbYesNo) = vbYes Thenacadapp.ActiveDocument.SaveEnd If
End If
End SubPrivate Sub Command5_Click()
acadapp.ActiveDocument.Close (True)  '以当前文件名和路径保存修改后的图形文件，然后关闭文件，若为False则不修改即保存End SubPrivate Sub Form_Load()On Error Resume Next
Set acadapp = GetObject(, "autocad.application")
If Err ThenErr.ClearSet acadapp = CreateObject("autocad.application")If Err ThenMsgBox ("不能运行AutoCad,请检查是否安装了CAD")Exit SubEnd If
End If
acadapp.Visible = TrueEnd Sub
 

 

 
                        

                        

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！