VB调用MDT？

zytom · 发表于 2007-5-24 20:05:27

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

Public AcadApp As AcadApplication
Public Sub ConCad()
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
End Sub
　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
请各位大哥大姐帮忙解决一下！！

zytom · 发表于 2007-5-24 21:12:59

有人知道的吗？
不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage · 发表于 2007-5-27 20:46:57

在VB环境中选择工程－引用出现“引用”对话框，选中AutoCAD2000(或更高版本) Type Library 的复选框，试试看，如果还不行，问题可能出现类名AutoCAD.Application上。

gneful · 发表于 2007-5-28 02:43:13

试试把类名改成这样 “AutoCAD.Application.17”
当然，版本不一样，后面数字也不一样

woaishuijia · 发表于 2007-5-28 06:19:38

按3楼所说选中CAD类型库后，程序中用如下代码：

Dim A As AcadApplication
Set A = New AcadApplication
A.Visible = True
A.Quit

用F8逐语句运行一下就能看到结果

也可以用
Dim A As AcadDocument
Set A = New AcadDocument

[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom · 发表于 2007-6-1 21:05:20

已解决，谢谢各位！！

mzb007 · 发表于 2007-6-24 19:37:21

学习，但没怎么看懂。

peke · 发表于 2007-6-25 22:25:10

请教,你是怎么解决的?

		自动登录	找回密码
密码			注册

通知

[已解决] VB调用MDT？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块