vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
$ {: Y9 Y! J: ^; h% q4 b- eif err then
err.clear
4 G7 `+ v0 @, N- o3 b2 D/ Hset acadapp= createobject（"AUTOCAD.APPLICATION")
END IF
* K2 Z/ J* C- t$ t这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

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

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
8 _7 P7 C* o2 ]3 T# `你引用ACAD类库了吗？

9 m. x8 ]7 X& B+ Y- a引用了肯定的。在2004 和2008 都试过了。。
每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

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

1. Dim acadapp As AcadApplication
   1 ?: s& s5 U: ^& R$ X: |
2. On Error Resume Next
   
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   
4. If Err Then
   ! _3 ~3 w/ V* S  c: O- v$ M* s
5. Err.Clear
   * O- ?# E; p+ B
6. Set acadapp = CreateObject("AUTOCAD.APPLICATION")
   
7. End If

复制代码

dianxxoo

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
. `! k+ Z, L# t/ H/ w% k. D/ X4 w现在写在首行，要去测试一下，谢谢奉上先

dianxxoo

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

; v+ t* a" _' Y& J& f8 Mok，验证过了。谢谢
! D) I5 E+ R  P1 mOn Error Resume Next
0 d6 X) E' ]7 T' E7 vSet acadapp = GetObject(, "AUTOCAD.APPLICATION")
$ T' z4 a- B! N6 s7 c; Z这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
9 P; d" G$ p, o& J必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

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

" M9 d! z8 l# \5 S% m我说呢。
& g9 h3 {  J/ v$ U5 j5 u, e我以为是代码出错后执行出错陷阱然后再选择跳转呢。