VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
' N, D. {2 h0 U; F; V. D   Err.Clear
/ u, S# m- Y& e# {# D2 a   Set AcadApp = CreateObject("autocad.application")
   If Err Then
; |4 c- Z, ~' a( u& M     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
- J2 y8 w3 ^5 w# [7 w6 j$ n     Exit Sub
% y! s( ~2 O' m2 e& q% H& }: G- C# n   End If
End If
AcadApp.Visible = True
End Sub
( _7 g4 V6 \5 A8 h- x　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
) Q" w& l' e* m, c/ ^9 @“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
! ?/ l1 A4 C; r& y# ^请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
9 D/ Y2 A' {- D2 }" G7 k  N/ g' |不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

试试把类名改成这样 “AutoCAD.Application.17”
. V# w/ m$ E; F' E2 O当然，版本不一样，后面数字也不一样

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
* h7 g. |# }9 y3 [$ h
+ E* Y9 Z" b* d0 Q! BDim A As AcadApplication
Set A = New AcadApplication
2 u  x  a* t3 D/ A+ I0 iA.Visible = True
A.Quit

' ?. L* {6 s( a  n' {$ {2 E用F8逐语句运行一下就能看到结果
0 T# i5 f+ J% B( L5 g/ |
也可以用
# P7 G8 X( i0 u; |0 ^1 Q) NDim A As AcadDocument
Set A = New AcadDocument

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

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?