三维网
标题:
VB调用MDT?
[打印本页]
作者:
zytom
时间:
2007-5-24 20:05
标题:
VB调用MDT?
Public AcadApp As AcadApplication
0 b& x! A3 ^' s- @4 `
Public Sub ConCad()
6 J1 Z9 S5 x8 q( g% l" [
On Error Resume Next
7 r4 [# Q/ K, v. L! I) ?
Set AcadApp = GetObject(, "AutoCAD.Application")
' V- f' M) d" h
If Err Then
0 l% E% G% O6 b I( t2 C! i
Err.Clear
1 ], Z% b0 b0 [: _) c
Set AcadApp = CreateObject("autocad.application")
% h7 c I* N0 \
If Err Then
; ^+ u6 J5 z4 Q7 b
MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")
( r& P5 s5 j# w2 p) {
Exit Sub
Y {! O8 _! W5 A5 v" g
End If
! L: q+ g( \0 n- h3 r
End If
2 }$ X: R9 B. V: H, X
AcadApp.Visible = True
$ K' m3 B3 J6 o3 ^0 Q r
End Sub
+ q t) D! _: G6 E7 ~
) u4 U3 [& A2 K$ L% v
这是我找到的调用的方法,但是运行由它生成的exe文件时提示
' H4 h4 J# y* }
“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
9 \1 ^3 ~, P& n; g3 X- C S
在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”
, p0 U6 D3 C H5 n$ k2 R. ?
请各位大哥大姐帮忙解决一下!!
作者:
zytom
时间:
2007-5-24 21:12
有人知道的吗?
2 p9 O5 N# Q* J4 E% H9 |
不然问一下大家都是怎么用VB调用CAD的?
作者:
sealive_leafage
时间:
2007-5-27 20:46
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
作者:
gneful
时间:
2007-5-28 02:43
试试把类名改成这样 “AutoCAD.Application.17”
/ S0 Z% h* H) I7 p& V7 \
当然,版本不一样,后面数字也不一样
作者:
woaishuijia
时间:
2007-5-28 06:19
按3楼所说选中CAD类型库后,程序中用如下代码:
. F, r) B R, n, X# @5 b6 e8 m
1 u _5 M2 Z$ a+ Z+ ^4 x' }
Dim A As AcadApplication
6 T U' l, G2 p
Set A = New AcadApplication
3 n; |. R! M1 S: Q$ Q+ v
A.Visible = True
$ @; @7 ^ V" ~& U# }: X$ u* @ v
A.Quit
. M, c' b- _. S+ ?7 K! R
9 o Y. B7 M% J1 ~3 Y
用F8逐语句运行一下就能看到结果
) ^: K6 q6 `$ K
6 c/ \4 w. B& d
也可以用
" h7 G/ ^. @8 R8 a3 ~
Dim A As AcadDocument
6 Z) K! @( P: q! S+ @
Set A = New AcadDocument
+ e8 O9 o# h- r) \
# E5 R# J: \* V7 ]' G, ^
[
本帖最后由 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