vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
if err then
err.clear
set acadapp= createobject（"AUTOCAD.APPLICATION")
* n. P( o; e2 X' q) c; HEND IF
6 {! w7 Q! O2 W1 _这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

引用了肯定的。在2004 和2008 都试过了。。
" B7 B. _/ l8 d1 ^/ r每次错误都是在getobject语句，
  ~$ Q, n, p- s' p8 o& f' s如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
( ~' A" J( j2 Y" h. h7 N; T你引用ACAD类库了吗？

引用了肯定的。在2004 和2008 都试过了。。
每次错误都是在getobject语句，
$ o; w% W* U/ J! b% ~- {如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

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

1. Dim acadapp As AcadApplication
   6 h, }; _6 x9 Q5 M- C
2. On Error Resume Next
   * U( j7 ^/ A3 r: x' Y
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   % O5 v; r8 Z' t/ S7 A7 p' x
4. If Err Then
   3 s% u+ a+ K8 ?' ]. G9 O& P
5. Err.Clear
   " v; @1 N' @  V: J: e5 D
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
; k1 U  [0 e+ S0 _下面的代码在我的电脑上运行是没有问题的

ok，验证过了。谢谢
6 l3 K$ v$ J- Y+ z# U, GOn Error Resume Next
( ^: S* b1 {& bSet acadapp = GetObject(, "AUTOCAD.APPLICATION")
这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
+ f3 B$ H3 ^! N' Q+ `: w  G  S必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

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

我说呢。
我以为是代码出错后执行出错陷阱然后再选择跳转呢。