VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
On Error Resume Next
- E% S: z* r  R6 e, N5 GSet AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
. n$ b, U, X/ d2 l# Z   Err.Clear
( B+ V, e: v3 T) C; I   Set AcadApp = CreateObject("autocad.application")
   If Err Then
) S, \0 {4 {7 C, b7 q& e6 Q8 r0 A, w     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
, \0 a. I, u- H$ q% _$ \     Exit Sub
   End If
( U) \8 E) v+ n. PEnd If
; u  P5 G8 z) t/ IAcadApp.Visible = True
End Sub
2 F- o" `/ @8 m. y( K　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
  x, F% f+ u5 g$ s2 b在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
2 I7 G) E* `  D* x7 h3 O请各位大哥大姐帮忙解决一下！！

zytom

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

sealive_leafage

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

gneful

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

woaishuijia

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

Dim A As AcadApplication
) O- p! W9 |0 kSet A = New AcadApplication
* v; ?, v" \0 KA.Visible = True
5 V" u" g3 R' M" J( T7 rA.Quit

  v3 a9 J% @" A& j6 Y2 j用F8逐语句运行一下就能看到结果
8 o% l/ W# `: M% \
) f% r, [$ u5 g9 q! O% z6 ]4 m也可以用
% ?% V- `4 x' P* a" k, ?Dim A As AcadDocument
Set A = New AcadDocument
3 _. i2 A) O2 x3 U$ j" g
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?