[求助]：如何让lsp增加自己所在的文件夹到搜索路径中去？

fsxm

比如：C：\list\a.lsp
现在C：\list 不在搜索路径中
如何实现：
用ap加载C：\list\a.lsp后将C：\list增加到搜索路径中去。
多谢了！

aliu22

(defun addSupportPath (dir / tmp c)
  (setq c (getenv "ACAD"))
  (setq tmp (strcat c dir))
  (setenv "ACAD" tmp)
  (princ)
)
(defun c:add ()
  (addSupportPath ";d:\\myFolder")
)

;;;
;;;功能
;;;添加文件夹到AutoCAD支持搜索路径中的指定位置
这样是最简单的

eachy

仅靠 Lisp 是做不到了

wujimmy

1.你可以研究一下CAD的配置文件,导出后可以用记事本打开,看看一下路径是存在注册表的什么位置.通过这种方法修改,可以在下次CAD打开的时候起作用,本次的就不行了
(这方法也可能行不通,因为每次CAD关闭的时候都会对注册表重新写一下,不知道对不对)

http://www.xdcad.net/forum/showthread.php?s=&threadid=548017
这篇文章是关于图形搜索的,其中有涉及到目录中搜索的代码,可能会有用的.

2.找到对应的函数,留给楼下的人来解决了.


PS:祝大家五一节快乐.

fsxm

谢谢上楼哦！！
我看用注册表的方法还是可行的！~
关键是如何取的lsp程序当前的位置了

wujimmy

初步研究结果:
还不起作用就是了

2. 
   
3. (progn
   
4. (princ "\n本Lisp加载的目录是:")
   
5. (princ(vl-registry-read
   
6.   "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R15.0\\ACAD-1:804\\Profiles\\tssd2002s\\Dialogs\\ProfileExportFileDialog"
   
7. "InitialDirectory"
   
8.   ))
   
9. 
   
10. (setq recentdir (vl-registry-read
    
11.     (strcat
    
12.       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
13.       (car
    
14.         (vl-registry-descendents
    
15.           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
16.         )
    
17.       )
    
18.       "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\ProfileExportFileDialog"
    
19.     )
    
20.     "InitialDirectory"
    
21.   ))
    
22. 
    
23. (setq oldsupportdir (vl-registry-read
    
24.     (strcat
    
25.       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
26.       (car
    
27.         (vl-registry-descendents
    
28.           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
29.         )
    
30.       )
    
31.       "\\Profiles\" (getvar "CPROFILE") "\\General"
    
32.     )
    
33.     "ACAD"
    
34.   ))
    
35. (setq newsupportdir (strcat oldsupportdir recentdir ";"))
    
36. 
    
37. (vl-registry-write
    
38.     (strcat
    
39.       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
40.       (car
    
41.         (vl-registry-descendents
    
42.           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"
    
43.         )
    
44.       )
    
45.       "\\Profiles\" (getvar "CPROFILE") "\\General"
    
46.     )
    
47.     "ACAD"
    
48.     newsupportdir
    
49.   )
    
50. )
    
51. 
    

<br /> (progn<br /> (princ "\n本Lisp加载的目录是:")<br /> (princ(vl-registry-read<br />   "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R15.0\\ACAD-1:804\\Profiles\\tssd2002s\\Dialogs\\ProfileExportFileDialog"<br /> "InitialDirectory"<br />   ))<br /> <br /> (setq recentdir (vl-registry-read<br />     (strcat<br />       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />       (car<br />         (vl-registry-descendents<br />           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />         )<br />       )<br />       "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\ProfileExportFileDialog"<br />     )<br />     "InitialDirectory" <br />   ))<br /> <br /> (setq oldsupportdir (vl-registry-read<br />     (strcat<br />       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />       (car<br />         (vl-registry-descendents<br />           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />         )<br />       )<br />       "\\Profiles\" (getvar "CPROFILE") "\\General"<br />     )<br />     "ACAD" <br />   ))<br /> (setq newsupportdir (strcat oldsupportdir recentdir ";"))<br /> <br /> (vl-registry-write<br />     (strcat<br />       "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />       (car<br />         (vl-registry-descendents<br />           "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\"<br />         )<br />       )<br />       "\\Profiles\" (getvar "CPROFILE") "\\General"<br />     )<br />     "ACAD"<br />     newsupportdir<br />   )<br /> )<br /> <br />

xyp1964

2. [FONT=courier new](defun xyp-Path-Add (path mode)
   
3.   (setenv "ACAD"
   
4.           (cond        ((or (= mode "R") (not mode))
   
5.                  (strcat (getenv "ACAD") path ";")
   
6.                 )
   
7.                 (T (strcat path ";" (getenv "ACAD")))
   
8.           )
   
9.   )
   
10. )[/FONT]

[FONT=courier new](defun xyp-Path-Add (path mode)<br />   (setenv "ACAD"<br />           (cond        ((or (= mode "R") (not mode))<br />                  (strcat (getenv "ACAD") path ";")<br />                 )<br />                 (T (strcat path ";" (getenv "ACAD")))<br />           )<br />   )<br /> )[/FONT]

(xyp-Path-Add "C:\\list" "L")

wujimmy

现在的问题是不能获得加载lisp时的目录.
如果我 在导出配置文件的时候,注册表里面就会有我最近一次加载lisp所在的目录.
如果没有导出则不行,所以猜想这个变量应该是在环境变量里面,等到导出配置的时候才写到注册表里面.

以上两位是从ACAD这个环境变量里获得support目录.确实给我启发.
参考:
http://www.afralisp.net/lisp/enviro.htm
Environment Variables Listing.
Compiled and kindly donated by Stig Madsen.

Remember that environment variables are dependent on .. well, the environment, so each may or may not apply to a certain setup.
Some are almost described, some are definitely not. The first are OS dependent, the rest are AutoCAD dependent.



--------------------------------------------------------------------------------

System related

(getenv "Path") ;string System search paths

(getenv "COMSPEC") ;string Cmd.exe path

(getenv "UserName");string User logon name

(getenv "Temp") ;string Temp path

(getenv "TMP") ;string Temp path

(getenv "ComputerName");string Computer name

(getenv "Windir") ;string Windows path

(getenv "OS") ;string Operating system

(getenv "UserProfile");string Current user profile path

(getenv "Pathext") ;string Exec extensions

(getenv "SystemDrive");string System drive

(getenv "SystemRoot");string System root path

(getenv "MaxArray");integer


--------------------------------------------------------------------------------

General

(getenv "ACAD") ;string Support search paths

(getenv "ANSIHatch");string Pattern file for ANSI setup 1)

(getenv "ANSILinetype");string Linetype file for ANSI setup 1)

(getenv "ISOHatch");string Pattern file for ISO setup 1)

(getenv "ISOLinetype");string Linetype file for ISO setup 1)

(getenv "StartUpType");string Current default for StartUp dialog

(getenv "acet-MenuLoad");string Loading of Express Tools menu

(getenv "Measureinit");string MEASUREINIT

(getenv "InsertUnitsDefSource");integer INSUNITSDEFSOURCE

(getenv "InsertUnitsDefTarget");integer INSUNITSDEFTARGET

(getenv "acet-Enable");string

(getenv "LastTemplate");string Last DWT used

(getenv "AcetRText:type");string Current default for RTEXT "Diesel"

(getenv "Pickstyle");integer

(getenv "Coords") ;integer

(getenv "ShowProxyDialog");integer

(getenv "Osmode") ;integer

(getenv "EdgeMode");integer

(getenv "PAPERUPDATE");integer

(getenv "ACADPLCMD");string Plotter command string

(getenv "ImageHighlight");integer

(getenv "Attdia") ;integer

(getenv "Attreq") ;integer

(getenv "Delobj") ;integer

(getenv "Dragmode");integer

(getenv "UseMRUConfig");integer

(getenv "PLSPOOLALERT");integer

(getenv "PLOTLEGACY");integer

(getenv "PSTYLEPOLICY");integer

(getenv "OLEQUALITY");integer

(getenv "Anyport") ;integer

(getenv "Validation Policy");integer

(getenv "Validation Strategy");integer

(getenv "CommandDialogs");integer CMDDIA

(getenv "TempDirectory");string Temp dir

(getenv "PlotSpoolerDirectory");string Spooler dir

(getenv "DefaultLoginName");string Default login

(getenv "MenuFile");string Default menu path

(getenv "NetLocation");string Default URL

(getenv "ACADDRV") ;string Driver path

(getenv "ACADHELP");string Help path

(getenv "PrinterConfigDir");string Plotter path

(getenv "PrinterStyleSheetDir");string Plot styles path

(getenv "PrinterDescDir");string Plotter driver path

(getenv "NewStyleSheet");string Default .stb/.ctb file

(getenv "DefaultFormatForSave");integer Default saveas

(getenv "DefaultConfig");string Default pc3

(getenv "LastModifiedConfig");string Last pc3

(getenv "MRUConfig");string pc3?

(getenv "ACADLOGFILE");string Logfile

(getenv "MaxDwg") ;integer

(getenv "AVEMAPS") ;string Texture files path

(getenv "TemplatePath");string Templates path

(getenv "DatabaseWorkSpacePath");string Data Links path

(getenv "DefaultPlotStyle");string e.g. "ByLayer"

(getenv "DefaultLayerZeroPlotStyle");string e.g."Normal"

(getenv "LineWeightUnits");integer

(getenv "LWDEFAULT");integer Default lineweight

(getenv "CustomColors");integer

(getenv "Blipmode");integer

(getenv "ToolTips");string

1) used by MEASUREINIT and MEASUREMENT sysvars


--------------------------------------------------------------------------------

Editor Configuration

(getenv "SDF_AttributeExtractTemplateFile");string ??

(getenv "AutoSnapPolarAng");string POLARANG

(getenv "AutoSnapPolarDistance");string POLARDIST

(getenv "AutoSnapPolarAddAng");string POLARADDANG

(getenv "AutoSnapControl");integer AUTOSNAP

(getenv "AutoSnapTrackPath");integer TRACKPATH

(getenv "PickBox") ;integer PICKBOX

(getenv "AutoSnapSize");integer

(getenv "PickFirst");integer PICKFIRST

(getenv "PickAuto");integer PICKAUTO

(getenv "MenuOptionFlags");integer MENUCTL

(getenv "FontMappingFile");string

(getenv "LogFilePath");string

(getenv "PSOUT_PrologFileName");string

(getenv "MainDictionary");string

(getenv "CustomDictionary");string

(getenv "MTextEditor");string

(getenv "XrefLoadPath");string

(getenv "SaveFilePath");string

(getenv "AcadLspAsDoc");string


--------------------------------------------------------------------------------

Drawing Window

(getenv "Background");integer Background color

(getenv "Layout background");integer PS Background color

(getenv "XhairPickboxEtc");integer Crosshair color

(getenv "LayoutXhairPickboxEtc");integer PS Crosshair color

(getenv "Autotracking vector");integer Autotracking vector color

(getenv "MonoVectors");integer

(getenv "FontFace");string Screen Menu

(getenv "FontHeight");integer

(getenv "FontWeight");integer

(getenv "FontItalic");integer

(getenv "FontPitchAndFamily");integer

(getenv "CursorSize");integer

(getenv "HideWarningDialogs");integer:00000008 <- hit

(getenv "SDIMode") ;integer:00000000 <- hit


--------------------------------------------------------------------------------

Command Line Windows

(getenv "CmdLine.ForeColor");integer

(getenv "CmdLine.BackColor");integer

(getenv "TextWindow.ForeColor");integert

(getenv "TextWindow.BackColor");integer

(getenv "CmdLine.FontFace");string

(getenv "CmdLine.FontHeight");integer

(getenv "CmdLine.FontWeight");integer

(getenv "CmdLine.FontItalic");integer

(getenv "CmdLine.FontPitchAndFamily");integer

(getenv "TextWindow.FontFace");string

(getenv "TextWindow.FontHeight");integer

(getenv "TextWindow.FontWeight");integer

(getenv "TextWindow.FontItalic");integer

(getenv "TextWindow.FontPitchAndFamily");integer

fsxm

诚如wujimmy  所说:
现在的问题是不能获得加载lisp时的目录.
先一定要找到c:\list
再后才能加到ACAD搜索中去的啊！！
看看这个图吧！这里的路径是存在那里的呢？注册表吗？好像找不到！

[iframe h=162 w=425]http://photoimg63.qq.com/cgi-bin/load_pic?verify=e%2BVmX37kXzr3G%2B%2FERgMK4Q%3D%3D[/iframe]

雨箭风刀

不行。
你把一个lsp从资源管理器拉到cad界面加载看看（该lsp不在搜索目录下）。
用环境变量，系统变量，路径搜索能找到么？

wujimmy

找到了,最后一次加载的lisp的文件路径就是:

2. 
   
3. (progn
   
4. (defun addSupportPath (dir pos / tmp c)
   
5. (setqtmp ""
   
6. c -1
   
7. )
   
8. (if (not pos)
   
9. (setq tmp (strcat (getenv "ACAD") ";" dir))
   
10. (mapcar '(lambda (x)
    
11. (setq tmp (if (= (setq c (1+ c)) pos)
    
12. (strcat tmp ";" dir ";" x)
    
13. (strcat tmp ";" x)
    
14. )
    
15. )
    
16. )
    
17. (parse (getenv "ACAD") ";")
    
18. )
    
19. )
    
20. (setenv "ACAD" tmp)
    
21. (princ)
    
22. )
    
23. 
    
24. (princ "\n本Lisp加载的目录是:")
    
25. (princ
    
26.    (vl-registry-read
    
27.      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
    
28.      (substr(vl-registry-read
    
29.        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
    
30.        "MRUList"
    
31.      ) 1 1)
    
32.    )
    
33. )
    
34. 
    
35. (setq recentdir (vl-registry-read
    
36.      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
    
37.      (substr(vl-registry-read
    
38.        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
    
39.        "MRUList"
    
40.      ) 1 1)
    
41.    ))
    
42. (setq mid 0)
    
43. (while        mid
    
44.    (setq mid (vl-string-search "\" recentdir (1+ mid)))
    
45.    (if mid
    
46.      (setq findlast mid)
    
47.    )
    
48. )
    
49. (setq recentdir (substr recentdir 1 findlast))
    
50. 
    
51. (addSupportPath   recentdir  nil )
    
52. 
    
53. )
    
54. 
    
55. 
    
56. 
    

<br /> (progn<br /> (defun addSupportPath (dir pos / tmp c)<br /> (setqtmp ""<br /> c -1<br /> )<br /> (if (not pos)<br /> (setq tmp (strcat (getenv "ACAD") ";" dir))<br /> (mapcar '(lambda (x)<br /> (setq tmp (if (= (setq c (1+ c)) pos)<br /> (strcat tmp ";" dir ";" x)<br /> (strcat tmp ";" x)<br /> )<br /> )<br /> )<br /> (parse (getenv "ACAD") ";")<br /> )<br /> )<br /> (setenv "ACAD" tmp)<br /> (princ)<br /> )<br /> <br /> (princ "\n本Lisp加载的目录是:")<br /> (princ<br />    (vl-registry-read<br />      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br />      (substr(vl-registry-read<br />        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br />        "MRUList"<br />      ) 1 1)<br />    )<br /> )<br /> <br /> (setq recentdir (vl-registry-read<br />      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br />      (substr(vl-registry-read<br />        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br />        "MRUList"<br />      ) 1 1)<br />    ))<br /> (setq mid 0)<br /> (while        mid<br />    (setq mid (vl-string-search "\" recentdir (1+ mid)))<br />    (if mid<br />      (setq findlast mid)<br />    )<br /> )<br /> (setq recentdir (substr recentdir 1 findlast))<br /> <br /> (addSupportPath   recentdir  nil )<br /> <br /> )<br /> <br /> <br /> <br />

sincereheart

最好把ap要加载的目录放在默认位置（默认是我的文档），这样每次就不用查找了！

yin_12345678

(load "x\\:lisp文件")

eachy

dos_lisplist
Returns a list of loaded AutoLISP/Visual LISP files.


--------------------------------------------------------------------------------

Syntax
(dos_lisplist [T])

Parameters
T

If specified, fully qualified paths are returned. Otherwise, just the filenames are returned.

Returns
A list of string identifying the loaded LISP files if successful.

nil on error.

Example
Command: (dos_lisplist)

("acetutil.fas" "acetauto.LSP" "acettest.fas" "dwfout.lsp" "acad2000.FAS" "acad2000doc.FAS" "acad.mnl" "acetmain.mnl")

雨箭风刀

11楼同样不能解决我在10楼提出的问题