从按钮-宏运行lisp

goorgoor · 发表于 2022-7-5 23:56:52

你好

我正在尝试添加一个新的工具栏按钮。

我在“\\files\cad\AutoCAD\LISP\X.lsp”有这个X.lsp

通过浏览（以及其他）找到此宏：

^C^C^Pcsaa;

我想知道代码如何找到我的lsp，加载它并运行它。

感谢任何帮助！

MSasu · 发表于 2022-7-6 00:10:37

假设X.LSP中定义的命令名为XCommand：

copy

^C^C^P(progn (load "[color=red][b]\\[/b][/color]\\files\\cad\\AutoCAD\\LISP\\X.lsp" (alert "Unable to find X.LSP")) ([color=blue]c:XCommand[/color]) (princ)) ^P

请注意双反斜杠。

rkmcswain · 发表于 2022-7-6 00:14:12

如果要运行的函数也被命名为“X”，可以这样做：

copy


(if (not c:x)(load "\\\\server\\share\\cad\\AutoCAD\\LISP\\X.lsp"));x;

goorgoor · 发表于 2022-7-6 00:29:00

您好，谢谢您的回复。

以上代码对我都不起作用

请参阅所附图片。

GP_ · 发表于 2022-7-6 00:31:36

如果函数名为x，则在按钮宏中写入：

^C^C（如果（不是x）（加载”//pcname/partition/files/cad/AutoCAD/x“）x

goorgoor · 发表于 2022-7-6 00:45:05

这样地：

copy

^C^C(if (not x) (load "\\files\cad\AutoCAD\LISP\x.lsp")) x

GP_ · 发表于 2022-7-6 00:50:22

我似乎是两个不同的东西

^C^C（如果（不是x）（加载“\\files\cad\AutoCAD\LISP\x.lsp”））x
^C^C（如果（不是x）（加载”//files/cad/AutoCAD/LISP/x”））x

goorgoor · 发表于 2022-7-6 00:56:54

我懂了。。。它现在确实起作用了。但只能在我的电脑上。我怎么能在办公室和其他同事一起分发？有办法导出这个工具栏按钮吗？

[编程交流] 从按钮-宏运行lisp

发表回复

精选推荐