[VBA程序]：请教：VB调用ACAD2002的问题

wlcsuperman

我在VB中引用了ACAD2000的类型库后，在程序中用GetObject ("AutoCAD.Application")语句可以调用ACAD2002，但是怎么样让调用的再ACAD自动打开运行SCR脚本文件呢？？

我是先用VB生成了SCR脚本文件，在ACAD中用SCRIPT命令或“运行批处理...”功能都可运行脚本，但是怎么让VB调用的ACAD在打开ACAD的同时，再自动运行SCR脚本呢？

请各位高手指教。。。。不胜感谢

QQ：1381157

efan2000

使用SendCommand函数。由于Script会显示对话框，因而应该首先使用系统变量FILEDIA屏蔽对话框的显示。
下面的程序中ThisDrawing代表文档对象，在VB中可以使用相应的对象代替。

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     Dim v As Variant
   
6.     v = ThisDrawing.GetVariable("FILEDIA")
   
7.     ThisDrawing.SetVariable "FILEDIA", 0
   
8.     ThisDrawing.SendCommand "'script" & vbCr & "MyScript.scr" & vbCr
   
9.     ThisDrawing.SetVariable "FILEDIA", v
   
10. End Sub
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     Dim v As Variant<br />     v = ThisDrawing.GetVariable("FILEDIA")<br />     ThisDrawing.SetVariable "FILEDIA", 0<br />     ThisDrawing.SendCommand "'script" & vbCr & "MyScript.scr" & vbCr<br />     ThisDrawing.SetVariable "FILEDIA", v<br /> End Sub<br />   [/FONT]<br />

wlcsuperman

“程序中ThisDrawing代表文档对象，在VB中可以使用相应的对象代替”

能举个详细点的例子吗？

我是刚刚学习用VB来控制ACAD，很多地方还不太懂，还要麻烦版主，，，

efan2000

就是说你获取ACAD的接口后，一般是一个应用程序对象，比如：Set AcadApp=GetObject (,"AutoCAD.Application")。这仅表示你获取了ACAD的控制权，然后才是针对它的某一个文档（也可以称为图纸，在R2000及以上版本的是有文档），比如对当前文档，可以使用Set AcadDoc=AcadApp.ActiveDpcument返回当前文档的控制权，这时的AcadDoc就与VBA中的ThisDrawing是等效的，也就是它们指的是同一个文档对象。

wlcsuperman

试出来了，多谢多谢

还有两个问题，还请多指点：

1.怎么样在用VB打开ACAD的时候，给ACAD加入一个搜索路径，比如加入c:\support；最好在退出VB程序的时候再回复原来的搜索路径。

2.怎样用VB控制ACAD新建一张图（不管原来打开的ACAD是否有打开图形）

对了，这句
ThisDrawing.SendCommand "'script" & vbCr & "MyScript.scr" & vbCr
好像在ACAD R14中不能用

efan2000

1、搜索路径可以使用选项中的功能进行设置。
如：AcadApp.preferences.Files.SupportPath=AcadApp.preferences.Files.SupportPath & ";c:\support"，而最后可以使用：AcadApp.preferences.Files.SupportPath=Left(AcadApp.preferences.Files.SupportPath,InStr( AcadApp.preferences.Files.SupportPath, ";c:\support")-1)来恢复设置。InStr的作用是查找新添加的路径中第一个字符的位置，当然首先要确保这个字符串存在，否则返回的是0，0-1用于Left会产生错误。
2、新建图纸可以使用Documents文档集合的Add方法来添加。如：AcadApp.Documents.Add。
3、SendCommand在R14版本下没有这个函数，因而不能使用。

wlcsuperman

那有没有在R14下也能运行SCR脚本文件的其他方法呢？

我看到有些软件可以用VB调用运行ACAD R14的同时也运行了SCR脚本，不知他们是怎样做的