VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
9 w! t$ W0 C3 Z6 w; w1 [On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
$ }! J  k2 O3 V& ]1 b   Set AcadApp = CreateObject("autocad.application")
. t+ X/ u/ H) W& ^5 ^( `   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
5 n/ x! R/ X: I3 f9 `& E- s     Exit Sub
   End If
6 S/ `; }8 o, i+ K& sEnd If
AcadApp.Visible = True
4 X5 j. a, K6 i3 }7 K End Sub
　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
0 M  b1 m% A! v# V4 J在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
1 x$ Y& C- N/ t& a请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
3 U9 q" J8 }3 _" T* {; |! ^不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
) N+ d5 O5 i; o$ S4 y
Dim A As AcadApplication
Set A = New AcadApplication
) W2 U, U  H8 z5 z* }/ EA.Visible = True
A.Quit
0 a) X. s8 s! J6 f5 {( J( p
" f# [% V1 I) F) z5 p9 P# K0 s用F8逐语句运行一下就能看到结果

也可以用
& @8 r0 b& \4 NDim A As AcadDocument
Set A = New AcadDocument
) J7 t; k0 S$ y0 j1 U
4 ?5 m6 G2 b' |* d) G% c# N* j- ^[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?