Accessing And Changing The AutoCAD Preferences

newer

问题：

How to access and change the AutoCAD preferences?

解答：

This could be done by manipulating the AutoCAD registry directly, or by using
the AutoCAD Preferences ActiveX object. Note that if you make a change in the
registry directly, those changes will not affect the current running AutoCAD
session. However, the ActiveX Preferences object exports all the AutoCAD
preferences properties through an interface that you can use in VBA / VB or
C++ / MFC applications. Attached below is a sample code snippet (in VB and C++)
which appends a new path to the existing AutoCAD support path.

Sample code for VB

Public acadApp As Object
Public acadPref As Object

1. Sub f_preferences()
   
2. On Error Resume Next
   
3. Set acadApp = GetObject(, "AutoCAD.Application")
   
4. If Err Then
   
5.    Err.Clear
   
6.    Set acadApp = CreateObject("AutoCAD.Application")
   
7.    If Err Then
   
8. MsgBox Err.Description & "  " & Err.Number
   
9. Exit Sub
   
10.    End If
    
11. End If
    
12. acadApp.Visible = True
    
13. Set acadPref = acadApp.Preferences
    
14. 
    
15. 
    
16. Dim strCurrentSuppPath As String
    
17. strCurrentSuppPath = acadPref.SupportPath   'set the current path to temporary
    
18. variable
    
19. 'example: You want to add this "c:\test" path to the support path
    
20. acadPref.SupportPath = strCurrentSuppPath & ";" & "c:\test"
    
21. End Sub
    
22. 
    

Sub f_preferences()<br /> On Error Resume Next<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 & "  " & Err.Number<br /> Exit Sub<br />    End If<br /> End If<br /> acadApp.Visible = True<br /> Set acadPref = acadApp.Preferences<br /> <br /> <br /> Dim strCurrentSuppPath As String<br /> strCurrentSuppPath = acadPref.SupportPath   'set the current path to temporary<br /> variable<br /> 'example: You want to add this "c:\test" path to the support path<br /> acadPref.SupportPath = strCurrentSuppPath & ";" & "c:\test"<br /> End Sub<br /> <br />

Sample code for VC

1. #import "acad.tlb" no_namespace
   
2. 
   
3. 
   
4. void fSetSupportPath()
   
5. {
   
6. try
   
7. {
   
8.   IAcadApplicationPtr pApp = NULL;
   
9.   IAcadPreferencesPtr pPref = NULL;
   
10.   IAcadPreferencesFilesPtr pPrefFiles = NULL;
    
11. 
    
12. 
    
13.   pApp = acedGetAcadWinApp()->GetIDispatch(TRUE);
    
14.   pPref = pApp->Preferences;
    
15. 
    
16. 
    
17.   pPrefFiles = pPref->Files;
    
18. 
    
19. 
    
20.   _bstr_t strOldPath;
    
21.   strOldPath = pPrefFiles->GetSupportPath();
    
22. 
    
23. 
    
24.   //print old support path
    
25.   acutPrintf("\nOld Support path: %s",(char *)(_bstr_t)pPrefFiles->GetSupportPath());
    
26. 
    
27. 
    
28.   //set the new support path
    
29.   pPrefFiles->PutSupportPath(strOldPath + _bstr_t(";c:\\test"));
    
30. }
    
31. catch(_com_error &es)
    
32. {
    
33. 
    
34. }
    
35. }
    

#import "acad.tlb" no_namespace<br /> <br /> <br /> void fSetSupportPath()<br /> {<br /> try<br /> { <br />   IAcadApplicationPtr pApp = NULL;<br />   IAcadPreferencesPtr pPref = NULL;<br />   IAcadPreferencesFilesPtr pPrefFiles = NULL;<br /> <br /> <br />   pApp = acedGetAcadWinApp()->GetIDispatch(TRUE);<br />   pPref = pApp->Preferences;<br /> <br /> <br />   pPrefFiles = pPref->Files;<br /> <br /> <br />   _bstr_t strOldPath;<br />   strOldPath = pPrefFiles->GetSupportPath();<br /> <br /> <br />   //print old support path<br />   acutPrintf("\nOld Support path: %s",(char *)(_bstr_t)pPrefFiles->GetSupportPath());<br /> <br /> <br />   //set the new support path<br />   pPrefFiles->PutSupportPath(strOldPath + _bstr_t(";c:\\test"));<br /> }<br /> catch(_com_error &es)<br /> {<br /> <br /> }<br /> }<br />