乐筑天下

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

用VB连接CAD14？

[复制链接]
mlyd

15

主题

27

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
87
发表于 2005-8-21 10:10:00 | 显示全部楼层 |阅读模式
我的系统同时装了CADR14和2002，但在用VB调用CAD工程时只能调用2002，该如何调用R14呢？
调用相关如下：
set Cadapp=Getobject(,".application")
另外在工程/调用中的选择是：
Auto 2000类型库（是不是这里有问题？）
Auto CAD/objectDBX Common1.0 类型库
回复

使用道具 举报

menglong

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2005-8-21 22:48:00 | 显示全部楼层
Auto 2000类型库，这个有问题。不能引用它。
set Cadapp=Getobject(,"AutoCAD.application.14")
如果不行就用.13然后12一个个试总有一个可以的。
回复

使用道具 举报

mlyd

15

主题

27

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
87
发表于 2005-8-22 21:53:00 | 显示全部楼层
我会试试的，先谢过！
回复

使用道具 举报

mlyd

15

主题

27

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
87
发表于 2005-8-23 18:45:00 | 显示全部楼层
连接没有问题！但以下程序却不能运行。
set caddocs=cadapp.documents
运行后caddocs为空，但在2002下没有问题，为什么呢？

回复

使用道具 举报

tjdxtm

12

主题

38

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
86
发表于 2005-8-24 11:43:00 | 显示全部楼层
R14与2000下的函数很多是不一样的。你不能套用2000的函数的。
回复

使用道具 举报

feifff

2

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
15
发表于 2005-8-26 19:29:00 | 显示全部楼层
请问在R14怎么使用VB,我知道2000中可以通过VBA调用VB开发的程序,但是R14中连VBA是怎样使用都没有找到,能指导指导吗?
回复

使用道具 举报

waley111

3

主题

12

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-8-26 20:24:00 | 显示全部楼层
是可以的,首先要采用后期绑定,Auto 2000类型库，这个有问题。不能引用它
另外set Cadapp=Getobject(,"AutoCAD.application")就行
dim 的时候要 dim xxx as object
我的程序调用14没有问题
回复

使用道具 举报

木子歌

6

主题

18

帖子

4

银币

初来乍到

Rank: 1

铜币
42
发表于 2005-8-27 11:22:00 | 显示全部楼层
feifff，你说你知道通过VBA调用VB开发的程序，有相关例子吗？或者是什么方法？我才学这方面的，不太懂唉！我最近才学了用VB开发CAD连接方面的内容，如果用VB在CAD里面画复杂的图形，还涉及到数据库，该如何调用？？期待给予指点，谢谢！！
回复

使用道具 举报

cns2004

3

主题

9

帖子

5

银币

初来乍到

Rank: 1

铜币
21
发表于 2005-9-2 12:12:00 | 显示全部楼层
在张宝国的AutoCAD Visual Basic 开发技术一书中有详细论述，书是2000年版的，科学出版社出版
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 09:39 , Processed in 0.659111 second(s), 70 queries .

© 2020-2025 乐筑天下

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