[求助]：怎么办？

suzhanli

如何在编程时用VB启动AutoCAD？是读注册表还是直接搜索路径？怎么做？
如何用VB在启动Autocad时判断计算机中安装的Autocad版本？比如说，我所编的程序只适用于Autocad2000以上版本，怎么做？

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Sub Ch2_ConnectToAcad()
   
5.     Dim acadApp As Object
   
6.     On Error Resume Next
   
7.    
   
8.     Set acadApp = GetObject(, "AutoCAD.Application")
   
9.     If Err Then
   
10.         Err.Clear
    
11.         Set acadApp = CreateObject("AutoCAD.Application")
    
12.         If Err Then
    
13.             MsgBox Err.Description
    
14.             Exit Sub
    
15.         End If
    
16.     End If
    
17.     acadApp.Visible = True '显示AutoCAD的界面
    
18.     MsgBox "版本: " + acadApp.Version 'AutoCAD的版本
    
19. End Sub
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Ch2_ConnectToAcad()<br />     Dim acadApp As Object<br />     On Error Resume Next<br />     <br />     Set acadApp = GetObject(, "AutoCAD.Application")<br />     If Err Then<br />         Err.Clear<br />         Set acadApp = CreateObject("AutoCAD.Application")<br />         If Err Then<br />             MsgBox Err.Description<br />             Exit Sub<br />         End If<br />     End If<br />     acadApp.Visible = True '显示AutoCAD的界面<br />     MsgBox "版本: " + acadApp.Version 'AutoCAD的版本<br /> End Sub<br />   [/FONT]<br />