[求助]当前加载的cui的路径

xiaoquansb

我想写一个能lisp能自动加载该目录里的所有lisp，然后添加到右键菜单里。

其中有对现有cui进行修改的操作，请问怎样能得到当前加载的cui的路径呢

xiaoquansb

(setq cuipath
  (vl-registry-read
 (STRCAT  "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R" (SUBSTR (getvar "ACADVER") 1 4) "\\ACAD-6001:804\\Profiles\\"    (getvar "CPROFILE") "\\General Configuration")
 "MenuFile" 
  )
)

 

参照论坛路获取当前加载的lisp路径，写了一个，请老大们过目，看可靠不