[求助]：新人报道，请教个问题

烛光

怎么用ActiveX修改ACAD菜单里面的Preferences ? 比如增加搜索文件路径。

XDSoft

最初由 烛光 发布
[B]怎么用ActiveX修改ACAD菜单里面的Preferences ? 比如增加搜索文件路径。 [/B]

贴段代码，试试

2. 
   
3. [FONT=courier new]
   
4. Public acadApp As Object
   
5. Public acadPref As Object
   
6. 
   
7. 
   
8. Sub f_preferences()
   
9. On Error Resume Next
   
10. Set acadApp = GetObject(, "AutoCAD.Application")
    
11. If Err Then
    
12.    Err.Clear
    
13.    Set acadApp = CreateObject("AutoCAD.Application")
    
14.    If Err Then
    
15. MsgBox Err.Description & "  " & Err.Number
    
16. Exit Sub
    
17.    End If
    
18. End If
    
19. acadApp.Visible = True
    
20. Set acadPref = acadApp.Preferences
    
21. 
    
22. 
    
23. Dim strCurrentSuppPath As String
    
24. strCurrentSuppPath = acadPref.SupportPath   '保存当前的路径到临时变量
    
25. '下面加入c:\test到搜索目录
    
26. acadPref.SupportPath = strCurrentSuppPath & ";" & "c:\test"
    
27. End Sub
    
28. [/FONT]

<br /> [FONT=courier new]<br /> Public acadApp As Object<br /> Public acadPref As Object<br /> <br /> <br /> 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   '保存当前的路径到临时变量<br /> '下面加入c:\test到搜索目录<br /> acadPref.SupportPath = strCurrentSuppPath & ";" & "c:\test"<br /> End Sub<br /> [/FONT]

XDSoft

下面是VC代码：

2. 
   
3. [FONT=courier new]
   
4. #import "acad.tlb" no_namespace
   
5. 
   
6. 
   
7. void fSetSupportPath()
   
8. {
   
9. try
   
10. {  
    
11.   IAcadApplicationPtr pApp = NULL;
    
12.   IAcadPreferencesPtr pPref = NULL;
    
13.   IAcadPreferencesFilesPtr pPrefFiles = NULL;
    
14. 
    
15. 
    
16.   pApp = acedGetAcadWinApp()->GetIDispatch(TRUE);
    
17.   pPref = pApp->Preferences;
    
18. 
    
19. 
    
20.   pPrefFiles = pPref->Files;
    
21. 
    
22. 
    
23.   _bstr_t strOldPath;
    
24.   strOldPath = pPrefFiles->GetSupportPath();
    
25. 
    
26. 
    
27.   //打印旧的路径
    
28.   acutPrintf("\n当前搜索路径: %s",(char *)(_bstr_t)pPrefFiles->GetSupportPath());
    
29. 
    
30. 
    
31.   //设置新的路径
    
32.   pPrefFiles->PutSupportPath(strOldPath + _bstr_t(";c:\\test"));
    
33. }
    
34. catch(_com_error &es)
    
35. {
    
36.   
    
37. }
    
38. }
    
39. [/FONT]

<br /> [FONT=courier new]<br /> #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 />   //打印旧的路径<br />   acutPrintf("\n当前搜索路径: %s",(char *)(_bstr_t)pPrefFiles->GetSupportPath());<br /> <br /> <br />   //设置新的路径<br />   pPrefFiles->PutSupportPath(strOldPath + _bstr_t(";c:\\test")); <br /> }<br /> catch(_com_error &es)<br /> {<br />   <br /> } <br /> }<br /> [/FONT]