vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
! w- a3 e, G- c% l- h* T  b$ RSET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
. o8 H. Z, y5 m# {) t& Wif err then
err.clear
1 G) |4 U; w/ {/ {; O, H  oset acadapp= createobject（"AUTOCAD.APPLICATION")
7 l* Q6 M: b. X  C& FEND IF
  u/ `$ p. y8 b- v这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

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

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
" ?$ ?/ l* ^# z3 k* \  n: y8 }你引用ACAD类库了吗？

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

woaishuijia

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

1. Dim acadapp As AcadApplication
   
2. On Error Resume Next
   0 B& P% T, H! F8 ]* `
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   
4. If Err Then
   , V  |$ O: j0 d8 P9 @$ l
5. Err.Clear
   9 R; t7 @7 h: A+ S" A5 q
6. Set acadapp = CreateObject("AUTOCAD.APPLICATION")
   
7. End If

复制代码

dianxxoo

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
/ C! `- ^- }7 H* l! u  H现在写在首行，要去测试一下，谢谢奉上先

dianxxoo

woaishuijia 发表于 2013-7-18 21:50 static/image/common/back.gif
# D( k7 v) U' l1 |下面的代码在我的电脑上运行是没有问题的

ok，验证过了。谢谢
' D8 P0 O6 f! `# g) Z6 H0 r. q1 v/ xOn Error Resume Next
Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
5 x: X2 K+ E  M4 [" \这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

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

6 p& _* k: `+ n6 @( ^我说呢。
4 S# ^( l* U3 x& @我以为是代码出错后执行出错陷阱然后再选择跳转呢。
* X& R0 N6 q, u4 |& Y# S