vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
0 a6 ]7 Q  ^2 ^4 A& X+ ?SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
( b! k1 v& j6 \; [! Lif err then
err.clear
7 Y4 L8 L' H# U. {- N% Lset acadapp= createobject（"AUTOCAD.APPLICATION")
END IF
这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

引用了肯定的。在2004 和2008 都试过了。。
5 t: v7 g$ m; E0 P4 b! S: D& `每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
: _# x9 m/ A3 \, Q  z3 A你引用ACAD类库了吗？

引用了肯定的。在2004 和2008 都试过了。。
每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

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

1. Dim acadapp As AcadApplication
   . n  Z# m* a( N0 a, F  S( a$ u
2. On Error Resume Next
   
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   
4. If Err Then
   $ Q" w5 n, T8 ]- K5 u
5. Err.Clear
   ( G" k( b. x7 r" U) S8 D( `* S7 z) e. K
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
7 @/ P7 j5 ]7 a% C: ~下面的代码在我的电脑上运行是没有问题的

# ?- V5 a* G: I/ Mok，验证过了。谢谢
On Error Resume Next
Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
' v; G+ H4 m" S) H3 w这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
! M2 U# E, r  {7 a$ P  l/ f必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

woaishuijia 发表于 2013-7-20 14:51 static/image/common/back.gif
4 ], v8 R% n' p2 R翻过来就不对了
必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

' v: ]7 t5 B. V. m! i我说呢。
我以为是代码出错后执行出错陷阱然后再选择跳转呢。