三维网
标题:
VB调用MDT？
[打印本页]
作者:
zytom
时间:
2007-5-24 20:05
标题:
VB调用MDT？
Public AcadApp As AcadApplication
* Z6 S% i3 j* c* v: Q; Z; [
Public Sub ConCad()
7 i* A, _6 ?8 N, X# X
On Error Resume Next
i& o2 G0 ?6 o& o0 W2 c0 ]
Set AcadApp = GetObject(, "AutoCAD.Application")
( _7 m* n% Q$ _0 v+ D3 b. ]
If Err Then
' O& f) L3 }- X% v6 j& ]
Err.Clear
+ q$ S9 E! B$ I$ Q$ u
Set AcadApp = CreateObject("autocad.application")
; W- O0 _7 }0 q- N' G1 `0 t: {
If Err Then
0 @7 J6 a$ _" e$ R# `5 ~, J/ h
MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
. z3 U& }$ S* |
Exit Sub
7 ^) R& e2 N" e- \9 d j3 ~
End If
/ q" ~8 ]0 F( t6 i7 {3 {
End If
. G, G0 X* v8 W" }
AcadApp.Visible = True
c" F9 K( z3 K/ A6 m
End Sub
0 [; \! h8 G/ f. |" \: u4 @
`" ~6 p- x$ G% }8 A" Q
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
, S5 y4 S6 H5 n3 K5 f4 z2 h
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
1 D% e; F, w5 Z# @# [0 l
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
8 e! q0 o; d1 x1 ^9 v, C
请各位大哥大姐帮忙解决一下！！
作者:
zytom
时间:
2007-5-24 21:12
有人知道的吗？
# m. D. A8 i8 _/ Y
不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？
作者:
sealive_leafage
时间:
2007-5-27 20:46
在VB环境中选择 工程－引用 出现“引用”对话框，选中AutoCAD2000(或更高版本) Type Library 的复选框，试试看，如果还不行，问题可能出现类名AutoCAD.Application上。
作者:
gneful
时间:
2007-5-28 02:43
试试把类名改成这样 “AutoCAD.Application.17”
7 i6 t. V& D. G: d7 F4 l
当然，版本不一样，后面数字也不一样
作者:
woaishuijia
时间:
2007-5-28 06:19
按3楼所说选中CAD类型库后，程序中用如下代码：
& x- l+ f z6 |6 d$ j
5 t+ V( M* ~6 i; I% `
Dim A As AcadApplication
. t2 P& ]2 r9 l1 a2 M0 @
Set A = New AcadApplication
m6 n9 J- a! v4 t
A.Visible = True
* c: \5 Q6 `, V; d: u
A.Quit
' N1 n, I# o& T: ?
2 V7 @ k. i6 ?$ V( g* Q" L
用F8逐语句运行一下就能看到结果
5 H. ?, Y3 ?: N( U8 ]2 Z
8 t7 Z/ W0 @/ B. P4 {5 ?
也可以用
" j' B! u$ D+ D* N
Dim A As AcadDocument
0 p3 W0 @( b0 c; a8 h2 i6 _
Set A = New AcadDocument
& I7 J3 b, B5 ]/ Y% O! f
% t5 l) h: g- R
[
本帖最后由 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