VB 连接AutoCad 模块代码
2015-10-06 23:24
309 查看
<span style="font-family: Arial, Helvetica, sans-serif;"> </span>
<span style="font-family: Arial, Helvetica, sans-serif;">Option Explicit</span>
Public acadapp As AcadApplication Public Sub 连接autocad() On Error Resume Next Set acadapp = GetObject(, "autocad.applicatior") If Err Then Err.Clear Set acadapp = creatobject("autocad.application") If Err Then MsgBox ("不能运行AutoCad,请检查是否装了AutoCad") Exit Sub End If End If acadapp.Visible = True End Sub
方法2:
Dim acadapp As AcadApplication '在窗体代码声明段定义acadapp Private Sub Form_Load() On Error Resume Next Set acadapp = GetObject(, "autocad.application") If Err Then Err.Clear Set acadapp = CreateObject("autocad.application") If Err Then MsgBox ("不能运行AutoCad,请检查是否安装了CAD") Exit Sub End If End If acadapp.Visible = True End Sub
相关文章推荐
- VBA 第14课 自动生成年历
- 10月tiobe。oc跌出前10,排名不如汇编和老vb
- VBA 学习
- Virtualbox 的 Kern Service 出问题了,怎么办?
- VBA 第13课 字典dictionary
- VBA 第12课 插入排序
- VBA 第11课 数组,取特定行数据
- 名字与地址转换getservbyname 与 getservbyport函数
- VBA 第10课 禁止关闭工作薄
- VBA 第9课 合并单元格
- VBA 第8课 Excel单元格的颜色,格式的设置
- Vagrant 启动报错:the "vboxsf" file system is not available
- VB.net视频打开方法
- VBA第7课 编写自定义函数
- Ubuntu vbox xp虚拟机共享文件夹
- VB2005 Project中Namespace的一个问题
- 【VBS教程】:VBS简介及如何编译VBS程序等
- 【VBS教程】:作业1
- 【VBS教程1】:基本输入输出
- 历年至今TVB剧集目录(持续更新...我已看过的推荐)