用vb加载一个vba程序

yaoqiyang

我想用vb程序打开cad后，利用vb来加载vba程序，该怎么办啊？？？？？？
急！！！！！！！！！！！！！！！！！

iwzw

efan2000

使用LoadDVB。

2. Sub Example_LoadDVB()
   
3.     ' This example loads a DVB file into AutoCAD the VBA system and runs a macro
   
4.     ' contained in the file using the RunMacro method.
   
5.     '
   
6.     ' For this example, use one of the sample files installed
   
7.     ' with the system, so the file name may
   
8.     ' have to be modified.
   
9.     '
   
10.     ' * Note: If the he drawline DVB is already open, there will be an error
    
11.     ' when trying to unload the drawline DVB.
    
12. 
    
13.     Dim FileName As String
    
14.    
    
15.     FileName = "c:\program files\autocad\sample\vba\drawline.dvb"
    
16.    
    
17.     ' Load a sample VBA project DVB file
    
18.     LoadDVB FileName
    
19.    
    
20.     ' Run the drawline sample macro
    
21.     RunMacro "Module1.Drawline"
    
22.    
    
23.     ' Unload the drawline VBA project DVB file now.
    
24.     UnloadDVB FileName
    
25.    
    
26.     MsgBox "We just loaded, ran, and unloaded a VBA sample from code!"
    
27. End Sub
    

Sub Example_LoadDVB()<br />     ' This example loads a DVB file into AutoCAD the VBA system and runs a macro<br />     ' contained in the file using the RunMacro method.<br />     '<br />     ' For this example, use one of the sample files installed<br />     ' with the system, so the file name may<br />     ' have to be modified.<br />     '<br />     ' * Note: If the he drawline DVB is already open, there will be an error<br />     ' when trying to unload the drawline DVB.<br /> <br />     Dim FileName As String<br />     <br />     FileName = "c:\program files\autocad\sample\vba\drawline.dvb"<br />     <br />     ' Load a sample VBA project DVB file<br />     LoadDVB FileName<br />     <br />     ' Run the drawline sample macro<br />     RunMacro "Module1.Drawline"<br />     <br />     ' Unload the drawline VBA project DVB file now.<br />     UnloadDVB FileName<br />     <br />     MsgBox "We just loaded, ran, and unloaded a VBA sample from code!"<br /> End Sub<br />

mccad

注意对于VB，引用了AutoCAD后，LoadDVB和UnloadDVB必须使用
acadApp.LoadDVB和acadApp.UnloadDVB才行。

yaoqiyang

谢谢，但是这样加载后，在VBA管理器中还是没有相应的vba应用程序？很奇怪！：）