Lisp例程加载问题u

resullins · 发表于 2022-7-6 07:49:29

@格沃奇：是的。每次启动AC时，它都会查找并加载该文件。

GWelch · 发表于 2022-7-6 07:53:26

这似乎解决了问题。作为一种解释，我的公司曾经有缩写“WH”，这是从那时起遗留下来的。我将对此进行更多的研究，以确保它仍然具有完整的功能，但现在看起来确实如此。

谢谢大家，周末愉快。

Lee Mac · 发表于 2022-7-6 07:56:46

不过，我想说，如果您不需要“网络”检查，整个代码可以替换为：

(load "C:\\ACAD\\LISP\\Earth-Tech.lsp" "Earth-Tech Failed to Load")

alanjt · 发表于 2022-7-6 07:57:04

将路径添加到您的支持路径列表（在选项中，只需少量代码即可轻松完成）并使用（load“File.LSP”“fail”）将是更好的做法，也更有意义。然后，在未来，唯一需要调整的是支持路径，而不是担心更改大量代码。如果LISP目标文件夹/路径发生更改，在许多例程上继续这种做法可能会产生大量修复代码的工作。

GWelch · 发表于 2022-7-6 08:00:08

我知道我之前没有发布Earth-tech.lsp的内容。在查看该文件时，大多数行都包含对ETLOAD的引用，例如：

copy

(defun c:cbc_util () (ETload "cbc_util")) 
 (defun c:srlayer () (ETload "srlayer"))
 (defun c:BATT () (ETload "BATT"))  
 (defun c:WD_END () (ETload "WD_END"))
 (defun c:WD_FACE () (ETload "WD_FACE"))
 (defun c:store () (ETload "store"))
 (defun c:ms2ps () (ETload "ms2ps"))
 (defun c:rpoly () (ETload "rpoly"))
 (defun c:settxt () (ETload "settext"))