问AUTOCADR14是否支持VBA及其他

nlnc

前段时间基于AutoCAD2000开发了VBA工程，运用于客户的时候，发现客户使用的是R14，而里面好象没有支持VBA的选项，加载工程的菜单也只能加载LSP工程，或者运行SRC脚本，而我以前写的是DVB的程序，怎么用呢？

mccad

中文版的R14.01支持VBA。
但R14的VBA对象模型与2000版有很大的差别，因为R14只是属性探索阶段，很不成熟。

nlnc

不会吧，这么倒霉，那么求助以下情况：
1、基于VBA的块操作，从外部文件导入块、并修改相关属性；
2、调用COM，调用ADO组件，调用自己编写的COM；
3、创建对话框；
原来在R2000中通过VBA工程实现集成的项目（上述）在R14中能否实现？

mccad

这些内容在两个版本应该没有什么改变的

nlnc

首先感谢回复；

但是在R14中的工具菜单中没有“宏”这一项，只有加载工程，后缀名是.LSP.exe.arx的没有.DVB的；

在运行脚本中，也只能运行.scr的，R2000中写的工程如何加载进来？是否直接
-VBLOAD？-VBRUN？这两个指令在2000中有而14中不存在！

mccad

你没看到我在二楼发的贴吗？R14不支持VBA。或者你必须使用VB来写。

nlnc

你的意思是通过第三方开发软件调用AUTOCAD的COM？然后操作COM对象的属性和方法？

我用DELPHI和ASP调用过AUTOCADR2000的COM，DELPHI是成功的，ASP没有完成，但是R14是否提供COM接口？

nlnc

最新测试，AUTOCADR14存在COM，AUTOCAD.APPLICATION,AUTOCAD.DRAWING,可是无论哪个，都没有暴露属性和方法接口，那么用VB怎么写呢？

mccad

你有没有引用其类型库，还有你的接口程序是怎么写的？

mccad

2. Dim myApp as AcadApplication
   
3. Dim myDoc as AcadDocument
   
4. On Error Resume Next
   
5. Set myApp = GetObject(, "AutoCAD.Application")
   
6. If Err Then
   
7.     Err.Clear
   
8.     Set myApp = CreateObject("AutoCAD.Application")
   
9.     If Err Then
   
10.         MsgBox Err.Description
    
11.         Exit Sub
    
12.     End If
    
13. 
    
14. End If
    
15. 
    
16. Set myDoc = myApp.ActiveDocument
    

Dim myApp as AcadApplication<br /> Dim myDoc as AcadDocument<br /> On Error Resume Next<br /> Set myApp = GetObject(, "AutoCAD.Application")<br /> If Err Then<br />     Err.Clear<br />     Set myApp = CreateObject("AutoCAD.Application")<br />     If Err Then<br />         MsgBox Err.Description<br />         Exit Sub<br />     End If<br /> <br /> End If<br /> <br /> Set myDoc = myApp.ActiveDocument<br />