对不起,伙计们。。。。我正在休假,所以无法在这里回复。
实际上,我想要加载的lisp的路径,但我想如果我得到一个加载的lisp列表,那么我可以得到我的lisp的路径。。。。
我以错误的方式问这个问题,我不得不直接问“如何获得特定加载lisp的路径”。
我已经通过原子族函数只提供加载lisp的名称,但并没有路径。。。。
DOS_LISPLIST也是一个很好的函数。。。。
但是,我在CADTutor上有一个Lisp程序的问题,如下所示-
- (defun MT-Get-Last-Appload-Folder (/ acad CurVer1 CurVer2 CurProf RegPath folder)
- (setq acad "HKEY_CURRENT_USER\\software\\Autodesk\\AutoCAD\")
- (setq CurVer1 (strcat (vl-registry-read acad "CurVer") "\"))
- (setq CurVer2 (vl-registry-read (strcat acad "\" CurVer1) "CurVer"))
- (setq acad (strcat acad CurVer1 CurVer2))
- (setq CurProf (vl-registry-read (strcat acad "\\Profiles") ""))
- (setq RegPath (strcat acad "\\Profiles\" CurProf "\\Dialogs\\Appload"))
- (setq folder (vl-registry-read RegPath "MainDialog"))
- )
这个Lisp程序很适合我。。。。。。。。。 |