vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
) k* @. _* Z+ A+ R( O% Vif err then
( u( ?/ {8 I; O- w: Q! Zerr.clear
2 q, W4 ]$ c$ Bset acadapp= createobject（"AUTOCAD.APPLICATION")
END IF
这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

引用了肯定的。在2004 和2008 都试过了。。
每次错误都是在getobject语句，
4 q) S- v7 ~3 e' Z( h1 G1 u- u' w如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
3 P0 O6 ~% \3 c, a" V( \你引用ACAD类库了吗？

引用了肯定的。在2004 和2008 都试过了。。
+ ?; M. m$ T, l# V2 [% q每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

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

1. Dim acadapp As AcadApplication
   
2. On Error Resume Next
   
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   8 j) P6 P7 N, n5 z5 Q" J
4. If Err Then
   
5. Err.Clear
   
6. Set acadapp = CreateObject("AUTOCAD.APPLICATION")
     Q; G) ~8 }, j- n$ J
7. End If

复制代码

dianxxoo

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
& d2 Q' `" w- W1 h0 Q7 |+ }4 `现在写在首行，要去测试一下，谢谢奉上先

dianxxoo

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

( U3 B; W9 F, z" b2 i/ D: S- u$ Pok，验证过了。谢谢
On Error Resume Next
Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
5 N: Q4 Q* n& ~$ i. a必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

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

+ t* A9 `$ Z6 J我说呢。
我以为是代码出错后执行出错陷阱然后再选择跳转呢。
( b0 C- r! j% _4 G, c8 ?. ?' X  S8 f