vba与vb交互

dianxxoo · 发表于 2013-7-17 16:38:54

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

vb代码中获取cad应用时用的if语句：
SET ACADAPP=GETOBJECT(,"AUTOCAD.APPLICATION"

if err then
err.clear
set acadapp= createobject（"AUTOCAD.APPLICATION")
END IF
这个语句怎么不执行呢？每次getobject时会出现控件错误的提示框，问题出在哪里啊，求解释;)

woaishuijia · 发表于 2013-7-17 22:11:32

你引用ACAD类库了吗？

dianxxoo · 发表于 2013-7-18 10:56:56

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

dianxxoo · 发表于 2013-7-18 10:57:33

woaishuijia 发表于 2013-7-17 22:11 static/image/common/back.gif
9 p/ y" L [# {" o; g; @9 |8 r你引用ACAD类库了吗？

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

woaishuijia · 发表于 2013-7-18 21:50:35

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

Dim acadapp As AcadApplication
0 |& h' }4 A- w* a, H' P( J5 F! d
On Error Resume Next
* k" z; ]% j# R( t V% V
Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
" L9 W+ Y% I5 R ^! Y0 T
If Err Then
$ L5 v$ `* [1 ~* {
Err.Clear5 _; w3 c* k6 [/ ` C+ m8 n0 c
Set acadapp = CreateObject("AUTOCAD.APPLICATION")
`& X" h* m% c3 \: g+ k% `
End If

复制代码

dianxxoo · 发表于 2013-7-19 08:56:47

on error resume next 语句我曾经加在getobject语句下面尝试，没有效果。。
现在写在首行，要去测试一下，谢谢奉上先

dianxxoo · 发表于 2013-7-20 09:34:48

woaishuijia 发表于 2013-7-18 21:50 static/image/common/back.gif( h2 c; B9 q+ \1 ^; u1 @; `: \
下面的代码在我的电脑上运行是没有问题的

ok，验证过了。谢谢
On Error Resume Next
Set acadapp = GetObject(, "AUTOCAD.APPLICATION")
这两句以前我试过，不过顺序翻过来试的

woaishuijia · 发表于 2013-7-20 14:51:07

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

dianxxoo · 发表于 2013-7-22 11:22:26

woaishuijia 发表于 2013-7-20 14:51 static/image/common/back.gif2 L4 m& `, }/ ^# N! Q! y Z0 q/ Q
翻过来就不对了5 [: C7 h# y) Z. I9 t( o
必须在可能出错的代码的前面告诉电脑遇到错误时应该怎么做

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

		自动登录	找回密码
密码			注册

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已解决] vba与vb交互

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。