vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
if err then
err.clear
set acadapp= createobject（"AUTOCAD.APPLICATION")
; n' l9 q- d! P$ Y  p; L; u7 [END IF
这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

引用了肯定的。在2004 和2008 都试过了。。
- g, a4 ^1 b, f# z* t& r每次错误都是在getobject语句，
6 ~% L# F. O" H: P% X$ Q如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
8 N) l8 h8 ]9 ]# Y7 |* n( `+ y! A你引用ACAD类库了吗？

% E  o/ u  I0 s# w1 M  X: U引用了肯定的。在2004 和2008 都试过了。。
每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

下面的代码在我的电脑上运行是没有问题的

1. Dim acadapp As AcadApplication
   % c; \& r9 r" D0 S5 G' `. P" l
2. On Error Resume Next
   
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   2 y1 V( W( r( C1 b. J( Y) S! i
4. If Err Then
   ) \5 _/ g! j& W* ~- c$ s4 J' G
5. Err.Clear
   " c( N7 N$ U7 f+ j7 ~' E0 J
6. Set acadapp = CreateObject("AUTOCAD.APPLICATION")
   
7. End If

复制代码

dianxxoo

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
现在写在首行，要去测试一下，谢谢奉上先

dianxxoo

woaishuijia 发表于 2013-7-18 21:50 static/image/common/back.gif
下面的代码在我的电脑上运行是没有问题的

ok，验证过了。谢谢
On Error Resume Next
+ x) e. M0 s! [- R- LSet acadapp = GetObject(, "AUTOCAD.APPLICATION")
/ u) O/ |" }; N2 y" d9 \! J+ S( N. d这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
" J- z/ R: `/ X1 c; Z2 c+ r% v, f必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

woaishuijia 发表于 2013-7-20 14:51 static/image/common/back.gif
5 |6 H/ x* `, K4 {翻过来就不对了
必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

6 |. K( Y) X2 p3 e2 @+ ]( k$ H我说呢。
我以为是代码出错后执行出错陷阱然后再选择跳转呢。