请教问题：自动加载指定文件目录下的lsp、vlx和fas文件

失眠怪兽

请教个问题，这个自动加载程序来自大佬

【手动加载】自动加载指定文件目录下的lsp、vlx和fas文件
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=180374&fromuid=7332981
(出处: 明经CAD社区)

本人在此基础上增加了一个识别电脑名称，根据电脑名称选择加载的内容
文件路径想设置成相对路径，但相对路径识别不出来，只有设置成绝对路径才可以 有生么办法解决吗

2. (defun C:lm_Auto ()
   
3.           (setq LIUMG (substr (strcase (getenv "ComputerName")) 1 7)) ; 获取计算机名称的前七个字符，转换为大写
   
4.           (if (equal LIUMG "DESKTOP")
   
5.               (progn
   
6.                 (load_Folder_app ".\\Autoload")
   
7.                 (load_Folder_app ".\\Autoload\\user")
   
8.                 )
   
9.               (progn
   
10.                 (load_Folder_app ".\\Autoload")
    
11.                 )
    
12.               )
    
13.           )

(defun C:lm_Auto ()<br />           (setq LIUMG (substr (strcase (getenv "ComputerName")) 1 7)) ; 获取计算机名称的前七个字符，转换为大写<br />           (if (equal LIUMG "DESKTOP")<br />               (progn<br />                 (load_Folder_app ".\\Autoload")<br />                 (load_Folder_app ".\\Autoload\\user")<br />                 )<br />               (progn<br />                 (load_Folder_app ".\\Autoload")<br />                 )<br />               )<br />           )

你有种再说一遍

相对路径是相对什么?你不知道,cad也不知道.
所以需要转为绝对路径

失眠怪兽

你有种再说一遍 发表于 2024-7-6 20:06
相对路径是相对什么?你不知道,cad也不知道.
所以需要转为绝对路径

但是我写一个加载程序明确加载的LSP 它就可以加载出来

1. (load ".\\Autoload\\JZ00.lsp")

复制代码

你有种再说一遍

失眠怪兽 发表于 2024-7-6 20:42
但是我写一个加载程序明确加载的LSP 它就可以加载出来

遇到相对路径问题,就直接打印出来看看.

寒潮大冬瓜

我用LISP命令加载lsp插件→在不设置绝对路径的时候→需要先在“op”里添加搜索路径