乐筑天下

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

问AUTOCADR14是否支持VBA及其他

[复制链接]

8

主题

19

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
51
发表于 2003-10-2 21:41:00 | 显示全部楼层 |阅读模式
前段时间基于2000开发了VBA工程,运用于客户的时候,发现客户使用的是R14,而里面好象没有支持VBA的选项,加载工程的菜单也只能加载LSP工程,或者运行SRC脚本,而我以前写的是DVB的程序,怎么用呢?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-10-2 22:07:00 | 显示全部楼层
中文版的R14.01支持VBA。
但R14的VBA对象模型与2000版有很大的差别,因为R14只是属性探索阶段,很不成熟。
回复

使用道具 举报

8

主题

19

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
51
发表于 2003-10-3 22:18:00 | 显示全部楼层
不会吧,这么倒霉,那么求助以下情况:
1、基于VBA的块操作,从外部文件导入块、并修改相关属性;
2、调用COM,调用ADO组件,调用自己编写的COM;
3、创建对话框;
原来在R2000中通过VBA工程实现集成的项目(上述)在R14中能否实现?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-10-3 23:37:00 | 显示全部楼层
这些内容在两个版本应该没有什么改变的
回复

使用道具 举报

8

主题

19

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
51
发表于 2003-10-4 16:33:00 | 显示全部楼层
首先感谢回复;
但是在R14中的工具菜单中没有“宏”这一项,只有加载工程,后缀名是.LSP.exe.arx的没有.DVB的;
在运行脚本中,也只能运行.scr的,R2000中写的工程如何加载进来?是否直接
-VBLOAD?-VBRUN?这两个指令在2000中有而14中不存在!
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-10-4 20:23:00 | 显示全部楼层
你没看到我在二楼发的贴吗?R14不支持VBA。或者你必须使用VB来写。
回复

使用道具 举报

8

主题

19

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
51
发表于 2003-10-5 14:01:00 | 显示全部楼层
你的意思是通过第三方开发软件调用AUTOCAD的COM?然后操作COM对象的属性和方法?
我用DELPHI和ASP调用过AUTOCADR2000的COM,DELPHI是成功的,ASP没有完成,但是R14是否提供COM接口?
回复

使用道具 举报

8

主题

19

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
51
发表于 2003-10-5 21:18:00 | 显示全部楼层
最新测试,AUTOCADR14存在COM,AUTOCAD.APPLICATION,AUTOCAD.DRAWING,可是无论哪个,都没有暴露属性和方法接口,那么用VB怎么写呢?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-10-5 22:37:00 | 显示全部楼层
你有没有引用其类型库,还有你的接口程序是怎么写的?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-10-5 22:44:00 | 显示全部楼层
  1. Dim myApp as AcadApplication
  2. Dim myDoc as AcadDocument
  3. On Error Resume Next
  4. Set myApp = GetObject(, "AutoCAD.Application")
  5. If Err Then
  6.     Err.Clear
  7.     Set myApp = CreateObject("AutoCAD.Application")
  8.     If Err Then
  9.         MsgBox Err.Description
  10.         Exit Sub
  11.     End If
  12. End If
  13. Set myDoc = myApp.ActiveDocument
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-29 08:15 , Processed in 1.451057 second(s), 72 queries .

© 2020-2025 乐筑天下

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