[求助]：如何设置自动搜索路径

sunnyhit

如何在cad启动时设置自动搜索路径？

lt_zzy

工具->属性，文件，支持文件搜索路径。

sunnyhit

我想问如何用程序来实现，因为我发现每次启动李国杰编写的ASDE，他总是自动就将CAD的自动搜索路径改变了。

XDSoft

最初由 sunnyhit 发布
[B]我想问如何用程序来实现，因为我发现每次启动李国杰编写的ASDE，他总是自动就将CAD的自动搜索路径改变了。 [/B]

可以使用VBA，COM/ACTIVEX 接口

2. [font=courier]
   
3. Sub Example_SupportPath()
   
4.     ' This example returns the current setting of
   
5.     ' SupportPath. It then changes the value, and finally
   
6.     ' it resets the value back to the original setting.
   
7.    
   
8.     Dim preferences As AcadPreferences
   
9.     Dim currSupportPath As String
   
10.     Dim newSupportPath As String
    
11.    
    
12.     Set preferences = ThisDrawing.Application.preferences
    
13.    
    
14.     ' Retrieve the current SupportPath value
    
15.     currSupportPath = preferences.Files.SupportPath
    
16.     MsgBox "The current value for SupportPath is " & currSupportPath, vbInformation, "SupportPath Example"
    
17.    
    
18.     ' Change the value for SupportPath
    
19.     newSupportPath = "TestSupportPath"
    
20.     preferences.Files.SupportPath = newSupportPath
    
21.     MsgBox "The new value for SupportPath is " & newSupportPath, vbInformation, "SupportPath Example"
    
22.    
    
23.     ' Reset SupportPath to its original value
    
24.     preferences.Files.SupportPath = currSupportPath
    
25.     MsgBox "The SupportPath value is reset to " & currSupportPath, vbInformation, "SupportPath Example"
    
26. End Sub
    
27. [/font]

[font=courier]<br /> Sub Example_SupportPath()<br />     ' This example returns the current setting of<br />     ' SupportPath. It then changes the value, and finally<br />     ' it resets the value back to the original setting.<br />     <br />     Dim preferences As AcadPreferences<br />     Dim currSupportPath As String<br />     Dim newSupportPath As String<br />     <br />     Set preferences = ThisDrawing.Application.preferences<br />     <br />     ' Retrieve the current SupportPath value<br />     currSupportPath = preferences.Files.SupportPath<br />     MsgBox "The current value for SupportPath is " & currSupportPath, vbInformation, "SupportPath Example"<br />     <br />     ' Change the value for SupportPath<br />     newSupportPath = "TestSupportPath"<br />     preferences.Files.SupportPath = newSupportPath<br />     MsgBox "The new value for SupportPath is " & newSupportPath, vbInformation, "SupportPath Example"<br />     <br />     ' Reset SupportPath to its original value<br />     preferences.Files.SupportPath = currSupportPath<br />     MsgBox "The SupportPath value is reset to " & currSupportPath, vbInformation, "SupportPath Example"<br /> End Sub<br /> [/font]

stoneball

ACad启动是可以待参数的，查看一下＂启动参数＂

cease

那用ARX怎么实现阿？谢谢

fylinwater

用修改注册表的方法理论上可行，但是我遇到一个麻烦的问题
：Autocad启动后（时）才加载arx，所以修改了注册Autocad不知道，
但AutoCAD关闭的时候又保存其原来的搜索路径到注册表，所以添加修改的支持路径就无效 ，
这时候一个迂回的办法就是，采用arx修改注册表后再启动一次Autocad，然后先关闭第一个打开的Autocad。
我觉得这样的办法实在可笑，但没有想出其他办法。
AcApProfileManager 类没有这个功能－我想应该有别的办法的啊

forest99bjx

我还记得用过acad.lsp文件设过这些东西！
具体内容有点记不清了！不好意思！
只是提供一种方法！具体实现，如果有人用过轻提供一下！我也可以复习一下！

binbin

1. 
   
2.   [FONT=courier new]
   
3.    BOOL Utils::AddSupportPath(CStringArray &arPath)
   
4. {
   
5.         IAcadPreferences *pPrefer;
   
6.         IAcadPreferencesFiles  *pPreferFiles;
   
7.         HRESULT hr = NOERROR;
   
8.         TRY
   
9.         {
   
10.                 LPDISPATCH pAcadDisp =acedGetAcadWinApp()->GetIDispatch(TRUE);
    
11.                 IAcadApplication *pAcad = NULL;                       
    
12.                 if (SUCCEEDED(pAcadDisp->QueryInterface(IID_IAcadApplication,(void**)&pAcad)))       
    
13.                 {
    
14.                         BSTR  supportPath;
    
15.                         hr = pAcad->get_Preferences(&pPrefer);
    
16.                         hr = pPrefer->get_Files(&pPreferFiles);
    
17.                         hr = pPreferFiles->get_SupportPath(&supportPath);
    
18.                         CString stemp = supportPath;
    
19.                         for (int i = 0; i< arPath.GetSize() ; i++)
    
20.                         {
    
21.                                 CString ss = arPath.GetAt(i);
    
22.                                 stemp = stemp + ";" + ss;       
    
23.                         }
    
24.                         supportPath = stemp.AllocSysString();
    
25.                         pPreferFiles->put_SupportPath(supportPath);
    
26.                         SysFreeString(supportPath); // 用完释放
    
27.                 }
    
28.                 pPrefer->Release();
    
29.                 pPreferFiles->Release();
    
30.                 pAcad->Release();
    
31.         }
    
32.         CATCH(COleDispatchException,e)
    
33.         {
    
34.                 e->ReportError();
    
35.                 e->Delete();
    
36.                 return FALSE;
    
37.         }
    
38.         END_CATCH;
    
39.         return TRUE;
    
40. }
    
41.   [/FONT]
    

复制代码

king_ws2002

请问binbin，你的代码是不是ObjectARX自带的？

binbin

不是,自己写的:D

ecuster

厉害

RedCAD

所谓COM是否在建立ARX项目时要选择一个COM的选项呢？

sinfee

感谢binbin的代码!