乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 82|回复: 4

求助:VBA调用CAD 2008

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2008-12-4 13:39:00 | 显示全部楼层 |阅读模式
这两天在研究怎样用VBA来读取dwg文件内对象信息,但出师不利,刚开始就遭遇挫折。 VBA调用CAD 对象时始终出错。请各位大人帮忙。
环境: xp sp2, excel 2003,  LT 2008(30天试用版)
代码:
    Dim oApp As AcadApplication
    Set oApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Set oApp = CreateObject("AutoCAD.Application")
    End If
    oApp.Visible = True
工程中 AutoCAD相关类库已经添加,但是 oApp 始终取不到对象。
初步怀疑可能是CAD版本问题引起。  各位大人有啥建议?
感激不尽。

回复

使用道具 举报

1

主题

113

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
117
发表于 2008-12-4 13:53:00 | 显示全部楼层
Dim oApp As AcadApplication前加上on error resume next
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2008-12-4 14:10:00 | 显示全部楼层
谢谢回答。
但是on error resume next 只是把错误忽略掉,使程序继续往下执行而已。
不是这个问题引起的。
继续期待大虾们回答。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2008-12-4 17:33:00 | 显示全部楼层
我不知道LT版本有没有与AutoCAD一样的功能。
回复

使用道具 举报

swq

1

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
6
发表于 2008-12-10 21:21:00 | 显示全部楼层
好像是版本的问题,cad2004是16,cad2008是17.  就是在AutoCAD.Application.17,楼主试试吧
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 17:24 , Processed in 0.468721 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表