lisp加载程序

dnovember99 · 发表于 2022-7-5 16:13:01

好的，我必须坐下来仔细看看你从李·麦克那里寄来的东西，以便更好地理解它。

真的，我只是想能够有最好的方式来加载东西，并让它工作。所以不管哪种方式我都可以。这正是我现在想要的。但我会更深入地研究这件事。

再次感谢你

BIGAL · 发表于 2022-7-5 16:19:13

你有没有想过去菜单或工具栏，这些可以找到USB或驱动器等。这样你就不会忘记你所谓的快捷方式。它们按字母顺序按共同主题分组。它只是一个文本文件，因此不需要智能编程。其中一些确实使用了库lisp，但如果没有加载，则很容易强制加载。查看“（如果（不是aH:getvals）”

asos2000 · 发表于 2022-7-5 16:21:24

我喜欢这种类型的加载Lisp

copy

(defun c:AAA        ()        (load "C:/HasanCAD/AutoCAD/Support/Lisp/AAA.LSP"                ) (c:AAA        ) (princ)) ; text
(defun c:BBB        ()        (load "C:/HasanCAD/AutoCAD/Support/Lisp/ABB.LSP"                ) (c:BBB        ) (princ)) ; text
(defun c:CCC        ()        (load "C:/HasanCAD/AutoCAD/Support/Lisp/CCC.LSP"                ) (c:CCC        ) (princ)) ; text

通过使用这种加载方式，在用户调用lisp之前不会加载lisp。

dnovember99 · 发表于 2022-7-5 16:25:07

我确实有点喜欢这个主意。现在，对于“（if（not aH:getvals）”，我将在这一节中查看哪一节？

dnovember99 · 发表于 2022-7-5 16:28:41

我只是想确保我理解这一点。（抱歉，非常绿色）加载“C:/HasanCAD/AutoCAD/Support/Lisp/AAA.LSP”这将是您要添加到文件中的所述Lisp的文件路径？

asos2000 · 发表于 2022-7-5 16:32:03

subose有一个名为GetSlope的lisp。LSP和调用lisp的命令是GTS

copy

(defun c:GTS        ()        (load "C:/HasanCAD/AutoCAD/Support/Lisp/GetSlope.LSP"                ) (c:GTS        ) (princ)) ; Get Slope at specified point

这意味着无论何时调用lisp，它都会被加载。

dnovember99 · 发表于 2022-7-5 16:34:31

这很有道理。

非常感谢。

Steven P · 发表于 2022-7-5 16:37:33

我用这个：

copy


(defun c:appreload ()
;;Load all LISP files in a folder
;;LISP folder location:
 (setq mylispfolder "c:\\Desktop\") ;;change this to suit
 (setq myfiles (vl-directory-files mylispfolder "*.lsp" nil)) ;;myfiles is list of files
 (setq mylistlength (length myfiles)) ;;count of number of lsp files
 (setq acount -1) ;;a counter
 (repeat mylistlength
   (setq acount (1+ acount))
   (setq FailedtoLoad (strcat (nth acount myfiles) " failed to load"))
   (load (strcat mylispfolder (nth acount myfiles)) FailedtoLoad) ;;Loads file
 )
 (princ)
)

这将加载指定文件夹中的所有LISP文件。这可能不是最聪明的代码，但对我来说很管用。

注意：如果您在启动时运行此程序，请不要从“mylispfolder”位置中包含的LISP文件执行此操作，因为当加载/重新加载该文件并再次运行此例程时，可能会出现无休止的循环。。。再一次。。。如果需要，可以修改此代码以排除要重新加载的文件。

我主要在尝试操作时使用它-键入appeload要比通过AutoCAD加载修改后的LISP文件快得多

Steven P · 发表于 2022-7-5 16:42:25

为每个LISP例程编写一行：

copy

(defun c:GTS        ()        (load "C:/HasanCAD/AutoCAD/Support/Lisp/GetSlope.LSP"                ) (c:GTS        ) (princ)) ; Get Slope at specified point

很好地工作，但是假设您有许多LISP例程要加载？（例如，我有一个用于绘制A3的例程，一个用于绘制A2等，以及黑白、PDF彩色和黑白、风景图和肖像图。大约40个例程仅用于绘制，然后还有所有其他的…）。如果可以获得文件夹中所有文件中的所有LISP列表，则可以使用此行修改我的示例（Lee Macs GetSyntax可以在这里提供帮助）。我的将加载文件夹中的所有内容，因此在那里添加一个新文件，它将加载没有其他工作。这只是你需要考虑的另一个想法

[编程交流] lisp加载程序

发表回复

精选推荐