从acaddo运行lsp或vlx

bitslapped · 发表于 2022-7-6 08:30:44

我相信这真的很简单，但我有问题。
我想运行“lockallvp”。每次我打开一个文件。
我目前正在使用acaddoc，如下所示：
（加载“lockallvp.vlx”）
锁定VP

插件加载但不运行。
谢谢你的帮助
亚伦

Lee Mac · 发表于 2022-7-6 08:37:36

使用：

(if (load "lockallvp.vlx" nil)
   (c:lockallvp)
   (princ "\nFailed to Load lockallvp.vlx")
)

或者，错误捕捉稍微多一些：

copy

(if (and (load "lockallvp.vlx" nil) c:lockallvp)
   (c:lockallvp)
   (princ "\nFailed to Load lockallvp.vlx")
)

欢迎来到论坛

bitslapped · 发表于 2022-7-6 08:41:16

谢谢李。第二个示例似乎多次运行该函数。是否有理由“if”语句在测试过程中不会固有地执行功能？
例如

（如果（和（加载“lockallvp.vlx”nil）c:lockallvp）
（princ“\nlockallvp.vlx已加载并成功执行”）
（princ“\n未能加载lockallvp.vlx”）
)

BlackBox · 发表于 2022-7-6 08:47:23

c：如果没有必要的括号，通过LISP调用的lockallvp将不会执行，例如：（c:lockallvp）。

如果函数是在加载时执行的，那是因为VLX的作者在其函数定义的末尾添加了上述调用。

另一个简单的例子：

copy


(defun c:HelloWorld () ; <-- Define function
 (prompt "\nHello World! ")
 (princ))
(c:HelloWorld ) ; <-- Autorun function

BlackBox · 发表于 2022-7-6 08:50:21

正如Renderman所说，也许作者在vlx应用程序中包含了对函数的调用。

至于：

函数c:lockallvp没有被评估，我只是测试符号“c:lockallvp”以查看函数值是否已绑定到它；i、 e.符号是否计算为非零。

例如：

（defun c:LeeMac（）（princ“\n这是一个函数”）C： LEEMAC_$_$C:LEEMAC#；；