三维网
标题:
VB调用MDT?
[打印本页]
作者:
zytom
时间:
2007-5-24 20:05
标题:
VB调用MDT?
Public AcadApp As AcadApplication
* ], ~% Z+ I' o0 Q( a0 l+ k
Public Sub ConCad()
y$ Y( i2 l* Y9 u/ j& J. n
On Error Resume Next
# p& Z- L6 K9 s4 V
Set AcadApp = GetObject(, "AutoCAD.Application")
m( N: U( r O# e2 v% @8 t
If 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 If
9 a0 o& Z& I/ E9 r: U' s7 r( W
End If
6 J4 z( j6 o% j+ u: j1 k
AcadApp.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! \; x
Dim A As AcadApplication
" T1 [4 c! X6 \7 t4 B& Q
Set A = New AcadApplication
% K# l6 `; \- K0 X" o
A.Visible = True
: q& d; ]: x; _" C) \; U( H
A.Quit
2 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 H
Set A = New AcadDocument
9 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