VB调用MDT？

zytom

Public AcadApp As AcadApplication
: m9 L* \9 f! d! M; {- LPublic Sub ConCad()
4 T) R* o2 o6 \7 YOn Error Resume Next
/ ?) _; Y3 K. X) B! FSet AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
- B! {0 ~  Q& P   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
- Q3 Q+ I- s; N  |! a4 \   If Err Then
" s1 ~# F5 v) \* w9 z- M( _; g     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
     Exit Sub
7 a5 [5 ^  n# k! K   End If
End If
AcadApp.Visible = True
: m& E9 R) v  E7 @; i2 `) q End Sub
9 X4 J) V1 L, K　　
4 S5 o  a( u# k  C" }! V这是我找到的调用的方法，但是运行由它生成的exe文件时提示
' `% ~6 U) O; `( ~5 q“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
" Y0 G# D  e8 q5 o4 ]6 U; e在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
请各位大哥大姐帮忙解决一下！！

zytom

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

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
: I4 f" c0 A  c2 }
4 t7 v% _" j  V, U" |+ F% [Dim A As AcadApplication
Set A = New AcadApplication
A.Visible = True
6 O& a0 X6 m. z, C7 w! OA.Quit
- i  g  p; Z2 [- O) ?% p
6 s( c$ \. f' C" @用F8逐语句运行一下就能看到结果
7 D: C; ^1 F! @: t& M
也可以用
. K" ?* |2 D& L; j, x) R  ?Dim A As AcadDocument
4 v/ e. A9 w6 `4 XSet A = New AcadDocument
  X9 `+ i/ s4 G" t
0 ~; {* x1 I( |8 Q; z- I1 _9 U7 G[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?