三维网

标题: VB调用MDT? [打印本页]

作者: zytom    时间: 2007-5-24 20:05
标题: VB调用MDT?
Public AcadApp As AcadApplication
* ], ~% Z+ I' o0 Q( a0 l+ kPublic Sub ConCad()
  y$ Y( i2 l* Y9 u/ j& J. nOn Error Resume Next# p& Z- L6 K9 s4 V
Set AcadApp = GetObject(, "AutoCAD.Application")
  m( N: U( r  O# e2 v% @8 tIf Err Then* D9 h+ `3 w9 d. R& M$ w
   Err.Clear' G9 S0 J, v7 [+ R  }
   Set AcadApp = CreateObject("autocad.application")
- V% v% _( E, i: Z. m8 s6 q   If Err Then* l) \8 v! ]; v1 X# b$ v* z2 c
     MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")
0 y+ T# ?3 R' y     Exit Sub
  n4 `  c2 h) T1 Y   End If9 a0 o& Z& I/ E9 r: U' s7 r( W
End If
6 J4 z( j6 o% j+ u: j1 kAcadApp.Visible = True( J% `) ~7 g% e9 @
End Sub; t% A+ u& L! J+ o  \) m! Z
  
6 B* j" f4 f( t) G, p8 e% Z这是我找到的调用的方法,但是运行由它生成的exe文件时提示
7 ?+ W2 }1 Y0 Y“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
; Z9 G0 L0 }& n! u在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”
2 ~) m/ T, {  k! v8 ^' h" ]请各位大哥大姐帮忙解决一下!!
作者: zytom    时间: 2007-5-24 21:12
有人知道的吗?, E0 g3 M) [6 x: A' y( {
不然问一下大家都是怎么用VB调用CAD的?
作者: sealive_leafage    时间: 2007-5-27 20:46
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
作者: gneful    时间: 2007-5-28 02:43
试试把类名改成这样 “AutoCAD.Application.17”
$ ?! C$ u/ @0 L# U; l6 K当然,版本不一样,后面数字也不一样
作者: woaishuijia    时间: 2007-5-28 06:19
按3楼所说选中CAD类型库后,程序中用如下代码:
8 e. K9 M2 _5 h$ k! x
& E: V1 ^2 ^7 t/ b1 h! \; xDim A As AcadApplication
" T1 [4 c! X6 \7 t4 B& QSet A = New AcadApplication
% K# l6 `; \- K0 X" oA.Visible = True
: q& d; ]: x; _" C) \; U( HA.Quit2 q6 g" X6 R2 B9 t6 Z( B" Y
+ _, S; T' h- a7 c' y# Y1 _. c- ?, Z
用F8逐语句运行一下就能看到结果$ o7 c: z) ~! R$ I, ?' N
3 n& h- @, q4 W& ~
也可以用# F2 I7 f- I& o& |9 }, n
Dim A As AcadDocument
3 q. Z& I7 X* O2 HSet A = New AcadDocument9 R" _5 n" m" g9 _1 l4 H

! W" V3 \* `: k* X- X# Y3 E[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]
作者: zytom    时间: 2007-6-1 21:05
已解决,谢谢各位!!
作者: mzb007    时间: 2007-6-24 19:37
学习,但没怎么看懂。
作者: peke    时间: 2007-6-25 22:25
请教,你是怎么解决的?




欢迎光临 三维网 (http://www.3dportal.cn/discuz/) Powered by Discuz! X3.4