如何根据c修改

hosyn · 发表于 2022-7-5 15:11:58

嗨，伙计们
如何将以下代码修改为当前文件夹


(load "d:\\0001-lis\\01-akjder 2.lsp" "MyLISP Failed to Load")

类似这样：

copy


(load "#current folder#\\01-akjder 2.lsp" "MyLISP Failed to Load")

hanhphuc · 发表于 2022-7-5 15:22:48

您好，不确定#当前文件夹#？

copy

(setq folder (getvar 'dwgprefix) )
(setq folder  (getenv 'userprofile) )
(setq folder  (acet-ui-pickdir) )
;check
(findfile "01-akjder 2.lsp")

copy

(strcat folder "\\01-akjder 2.lsp")

hosyn · 发表于 2022-7-5 15:36:12

hanhphuc公司
没关系，但当dwg和lisp在同一位置时也没关系，如果我们想独立于dwg位置修改代码，我们能做什么？

copy


(load "d:\\0001-lis\\01-akjder 2.lsp" "MyLISP Failed to Load")
Something like this :
(load "#current folder#\\01-akjder 2.lsp" "MyLISP Failed to Load")

有更好的方法吗？？我想从闪存盘运行lisp，正如我们所知，当将闪存盘连接到任何计算机时，其驱动器的名称在任何其他计算机中都会不同。因此，它需要编写与驱动器名称无关的代码，或者考虑到驱动器本身的名称，自动编写lisp代码

ronjonp · 发表于 2022-7-5 15:44:37

你可以试试这样的。它将获取所有映射的驱动器，并尝试加载lisp（如果找到）。

copy

(defun _loadlispfromunknowndrive (pathtolisp / f r sfso)
 (and (not (wcmatch pathtolisp ":*")) (setq pathtolisp (substr pathtolisp 2)))
 (cond        ((setq sfso (vlax-create-object "Scripting.FilesystemObject"))
 (vlax-for x (vlax-get-property sfso 'drives)
   (and (findfile (setq f (strcat (vlax-get x 'driveletter) pathtolisp))) (setq r f))
 )
 (vlax-release-object sfso)
 (and r (load r))
)
 )
)
(vl-load-com)
;; Usage
(_loadlispfromunknowndrive "X:\\MyLispFolder\\file.lsp")