VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
$ Z$ W' ?" N% I$ uOn Error Resume Next
- C: k7 u( n( P5 U) ^4 V" O! HSet AcadApp = GetObject(, "AutoCAD.Application")
3 u, ]4 J6 n6 jIf Err Then
   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
   If Err Then
6 z, }7 X! T, [5 e     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
     Exit Sub
$ F  s) m1 S( ~# g6 v   End If
. U) Y% D6 L2 l( aEnd If
) k4 _' A  r$ ?AcadApp.Visible = True
End Sub
　　
( ]% C4 }2 ~( ?4 n* h  W, l9 G7 h3 u, Y这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
, j$ U, J3 [7 s0 l请各位大哥大姐帮忙解决一下！！

zytom

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

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
- x' y3 a7 w! z5 r# A3 z& G% D
2 q8 V0 {' H4 U9 k6 n3 PDim A As AcadApplication
Set A = New AcadApplication
A.Visible = True
2 C. e8 Z. N0 WA.Quit
$ `4 [' R  ~4 y1 {% C
0 U8 w4 x0 p& z  [! @用F8逐语句运行一下就能看到结果
7 Y- B" j+ W$ `9 Z* Z5 U( j* A2 j
. |# t4 }+ j3 L6 w& T* ^" ~也可以用
3 k* A$ ]- T, p4 B  U+ r% ^Dim A As AcadDocument
0 ^0 g" u4 v# {$ ySet A = New AcadDocument
  Y* B  p/ F/ x8 O5 n. f
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?