VB调用MDT？

zytom

Public AcadApp As AcadApplication
5 L4 ]0 |2 e: Z" IPublic Sub ConCad()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
! d; f! p) x4 ~  sIf Err Then
' T+ [9 w( T& q2 U0 n   Err.Clear
( L8 Q/ b# E& p! N% ?/ Q   Set AcadApp = CreateObject("autocad.application")
% I6 I1 G! U) d9 b   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
% V+ L! _: N  a7 `     Exit Sub
   End If
" t2 t1 C8 V# A% c. L/ f* rEnd If
/ T" |& L8 R$ B+ T; g& I1 CAcadApp.Visible = True
End Sub
　　
  Y# L* \2 S, m5 z; O/ u7 |$ w7 c这是我找到的调用的方法，但是运行由它生成的exe文件时提示
4 [- M+ W4 n/ l: z7 y“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
7 F. x* F! V& u! M0 Y- P在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
; ]' ?/ W& _3 T+ G  U- ^1 ?1 |请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
" r) z; Z) {# _2 m/ O不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

试试把类名改成这样 “AutoCAD.Application.17”
: t" K2 T3 Z" X2 P- e6 i% J. S! c当然，版本不一样，后面数字也不一样

woaishuijia

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

Dim A As AcadApplication
) c5 h( T7 ?; Q' }$ jSet A = New AcadApplication
4 H) K% |+ x) `4 t4 J" q. S; AA.Visible = True
A.Quit

0 s) A, G0 M: k6 {: h9 n+ G3 R9 g) q用F8逐语句运行一下就能看到结果

也可以用
: `, [6 U1 D) a& dDim A As AcadDocument
+ l: u5 W) s* m8 M" a* L' `Set A = New AcadDocument

! X6 p% c6 Z( \; ]6 ^[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?