vba与vb交互

dianxxoo

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"
2 T0 s; z* _, q% Y5 Q) tif err then
/ R$ w5 z- V1 o+ Werr.clear
1 x7 q7 E: i9 j: s9 oset acadapp= createobject（"AUTOCAD.APPLICATION")
END IF
! w& e/ c3 {6 I5 ]) e- M. P这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia

你引用ACAD类库了吗？

dianxxoo

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

dianxxoo

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
  d' L1 b5 i2 _+ @! x- u7 R你引用ACAD类库了吗？

/ c2 P& E; E/ ^- g引用了肯定的。在2004 和2008 都试过了。。
2 ]( h; \. o: M- B) X! @每次错误都是在getobject语句，
如果不写第一句和if语句直接（createobject语句）就能够打开cad并运行代码。

woaishuijia

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

1. Dim acadapp As AcadApplication
   ( a% Z# x' r) I; {. L/ d/ w3 D$ F
2. On Error Resume Next
   1 |; @. h8 ^+ u) ^: z2 D/ V/ z8 X
3. Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
   8 L. J) |- g9 O, |9 _
4. If Err Then
   ! E$ D; Q( S/ n+ R' U  B
5. Err.Clear
   ( N% h4 e/ [0 B. F
6. Set acadapp = CreateObject("AUTOCAD.APPLICATION")
   . H4 D" H1 s, u- ~+ O
7. End If

复制代码

dianxxoo

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
+ z' r: n; L2 T+ S# f; q& R, E, q现在写在首行，要去测试一下，谢谢奉上先

dianxxoo

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

0 Q" I# v! W/ dok，验证过了。谢谢
7 [& Y2 @7 L- h# yOn Error Resume Next
/ T1 a, ]' Y) x4 r# D- a. V$ oSet acadapp = GetObject(, "AUTOCAD.APPLICATION")
这两句以前我试过，不过顺序翻过来试的

woaishuijia

翻过来就不对了
8 J( E2 }' Z) G必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

dianxxoo

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

我说呢。
4 l5 Z: \) |  O1 Z8 O& ^* c我以为是代码出错后执行出错陷阱然后再选择跳转呢。
* e& }, r$ O# o  a; G