lsp加载和卸载帮助

jamesfui · 发表于 2022-7-6 07:22:25

你好需要有关创建lsp的帮助，该lsp可以：

>加载和卸载*。位于指定文件夹上的arx文件！

实例
```````


[size=2](defun c:arxload()[/size]
[size=2](command "load" "[/size][size=2]c:\documents & settings\user\addons\mditab17.arx[/size][size=2]")(princ))[/size]

copy


[size=2](defun c:arxunload()[/size]
[size=2](command "unload" "[/size][size=2]c:\documents & settings\user\addons\mditab17.arx[/size][size=2]")(princ))[/size]

谢谢

Lee Mac · 发表于 2022-7-6 07:28:31

使用arxload/arxunload函数，例如：

copy

(arxload "C:/YourFolder/YourFile.arx" nil)

copy

(arxunload "YourFile" nil)

BlackBox · 发表于 2022-7-6 07:30:57

欢迎来到CADTutor！

首先，我建议您不要使用与受保护符号（LISP函数）相同的名称定义自定义命令。

第二，尝试一下：

copy


(defun c:MDITAB  ()
 ((lambda (arxList mdi path)
    (princ
      (strcat "\rMDITAB: "
              (cond ((member mdi arxList)
                     (arxunload mdi)
                     "UNLOADED ")
                    ((arxload (strcat path mdi))
                     "LOADED ")))))
   (arx)
   "mditab17.arx"
   "c:\\documents & settings\\user\\addons\")
 (princ))

jamesfui · 发表于 2022-7-6 07:33:54

哇！
我不敢相信是你（李）第一个回复我的第一个帖子！！！这当然是我的荣幸！！
我很高兴，cz，我目前正在使用您创建的lsp来帮助我起草工作。。。它真的非常方便/有用！
这也节省了时间和精力。。。。太多了

实际上，自从我开始使用autolisp以来，我在autolisp上遇到了很多问题（帖子），当时我觉得power lsp例程可以在autocad中为我做很多事情。
这就是为什么我今天加入这个论坛，以寻求对autolisp的更多理解/经验！

我回办公室后一定会尽快试用！再次感谢！！！！快乐的