求一个用LISP加载指定LISP的LISP~~

hardthinking

求一个用LISP加载指定LISP的LISP~~

Free-Lancer

(load "xxx.lsp")

Lispboy

就是一个LOAD函数的使用，参考下下面的

下面的函数能保证只加载一次

1. (defun _ld (file)
   
2.   (if (and
   
3.         (not (member file _myatoml))
   
4.         (load file)
   
5.       )
   
6.     (setq _mytoml (cons file _myatoml))
   
7.   )
   
8.   (princ)
   
9. )
   

(defun _ld (file)<br />   (if (and<br />         (not (member file _myatoml))<br />         (load file)<br />       )<br />     (setq _mytoml (cons file _myatoml))<br />   )<br />   (princ)<br /> )<br />

Free-Lancer

不知道这个多加载有什么弊端?

ll_j

1. (defun C:AS(/ f[)
   
2.   (if  (setq f[(getfiled "Load Autolisp file""C:/Program Files/Autodesk/AutoCAD 2012 - Simplified Chinese/lsp/""lsp" 10))
   
3.       (load f[)
   
4.   )
   
5.   (princ)
   
6. )

(defun C:AS(/ f[)<br />   (if  (setq f[(getfiled "Load Autolisp file""C:/Program Files/Autodesk/AutoCAD 2012 - Simplified Chinese/lsp/""lsp" 10))<br />       (load f[)<br />   )<br />   (princ)<br /> )

Lispboy

ll_j 发表于 2013-8-7 17:56

纯顶 这个变量名 f[ ，这么写变量有什么含义吗？

Lispboy

Free-Lancer 发表于 2013-8-7 17:52
不知道这个多加载有什么弊端?

流程上看，能节省点时间{:soso_e113:}，另外一个应该就是编程原则上的了，不需要的就不执行。

ll_j

Lispboy 发表于 2013-8-7 18:00
纯顶 这个变量名 f[ ，这么写变量有什么含义吗？

没什么含义，这是很早期形成的acad.lsp的一个片段，后来只换一下文件路径，一直用的。
当时使用这些冷僻字符只是写程序避免变量重名的一个习惯，现在也早已不用。

hardthinking

    感谢大家回复，我要这个命令，其实是想不停的重载某个lisp，我把自己写的所有command命令都放在这一个lisp里。想起一条就写一条，边写边用。可每次都要这个lisp保存，关闭，再拖到CAD才能生效，太麻烦了。现在加了这个load命令，终于方便了。
  顺便把重载的小lisp共享下。各位大侠是用不着。给像我一样的小白吧。
;;; -------------------------------------------------------------------------
;;功能：使修改过的acad.pgp自定义命令立即生效，使修改过的1.lsp文件立即生效
;;命令RE
(DEFUN C:RE ()
(command "re-init" "16")
(load "1.lsp")
(prompt "快捷键设置已重载")
)

XDSoft

hardthinking 发表于 2013-8-7 19:40
感谢大家回复，我要这个命令，其实是想不停的重载某个lisp，我把自己写的所有command命令都放在这一个l ...

你想我想起了我的当年，加油，任何所谓的高手都是从这个时代过来的。

sicky111

谢谢楼主分享经验。