[讨论]：我提的LISP的问题集锦，希望大家踊跃参加回答和提问,使得大家能对LISP有更深

jeepsheep

我提的LISP的问题集锦，希望大家踊跃参加回答和提问,使得大家能对LISP有更深了解！
我对CAD的LISP了解不是很深，所以问得问题对于高手或许觉得很幼稚。

问题1：我的CAD里加载了很多LISP，我不知道加载这么多的LISP是否会占用电脑资源，影响CAD得运行速度？

问题2：是否有，或能编写一个LISP，使得我打开CAD，打开每个文件不用都加载所有的LISP，只是在要使用到某个LISP时，输入这个LISP命令才自动在我CAD设的文件搜索目录里找对应的LISP！

问题3：我习惯把很多的LISP文件写入一个LISP中，在CAD中，是一个个加载多个LISP好？还是只加载我合成的一个LISP好？



实现我的承诺，我把{AUTODESK出的不同版本转换器免安装版! }取消收费！

xyp1964

问题1：我的CAD里加载了很多LISP，我不知道加载这么多的LISP是否会占用电脑资源，影响CAD得运行速度？
回答：从理论上说是会占用电脑资源，但谁能感觉到CAD运行速度的快慢？还是放心加载吧！

问题2：是否有，或能编写一个LISP，使得我打开CAD，打开每个文件不用都加载所有的LISP，只是在要使用到某个LISP时，输入这个LISP命令才自动在我CAD设的文件搜索目录里找对应的LISP！
回答：在acad.lsp中增加类似
(defun c:aaa()(if(not c:aaa)(load"bbb")(princ))(c:aaa));;;aaa是程序名，bbb是程序文件名。

问题3：我习惯把很多的LISP文件写入一个LISP中，在CAD中，是一个个加载多个LISP好？还是只加载我合成的一个LISP好？
回答：对使用来说都无所谓，感觉不到是如何加载的。但对于维护程序来说，把“很多的LISP文件写入一个LISP中”修改时会较麻烦，对于高手或许也不是什么问题。

还郁闷？！

jeepsheep

非常感谢!暂时不郁闷了!
问题2中的bbb是否要带扩展名,如:LSP,VLX等等?

武陵山人

问题2另一解决方法：
在 acad.lsp 或 acad.mnl 的最后加上
[PHP](autoload "bbb" '("aaa"))[/PHP]
aaa 是程序命令名，bbb 是要加载的程序名，程序名后面要带扩展名。

jeepsheep

收到,明白!
谢谢!
两位高人能帮忙解决下面链接的问题吗?
http://www.xdcad.net/forum/showt ... 1492476#post1492476

砼皮铁骨

我是用菜单来解决问题2的.

把要加载的程序名写在菜单文件 *.mnl 里
;;;(load "SMZTools.vlx")
(load "SECPro.vlx")
(load "GlaMaker.vlx")
(load "OTools.vlx")
(prompt "\nThank you for use Tommy Tools!")
(defun C:TL()
  (progn
    (load "Ttools.vlx")
    (prompt "\nTommy ShortCut Program Load Successfully!")
    )
  (princ)
  )


TL是命令名.在autocad 的命令行中键入TL, 可以自动加载Ttool.vlx.

xxxyzxx

6楼楼主，我想问一下，为什么是加载到MNL中，而不是MNU中？

pandoit

理论上mun也可以，不过cad启动的时候先找mul，如果没有再找mun然后会生成一个mul文件，这样可以保证菜单出问题的时候用mun恢复到初始状态。

啵浪鼓

没什么用

狂刀

不过cad启动的时候先找mul，如果没有再找mun然后会生成一个mul文件，\
欧认为这个说法有问题，mnl是随菜单文件（mns mnc mnu）加载的lisp文件，实际上是lsp文件而不是菜单文件。有与菜单同名的mnl文件就自动加载，没有就不加载

qjcpj

1楼问题2的答复：
除2楼和4楼的办法外，我想还可以这样：
假如c:cryb是文件cpjcryb.lsp定义的命令，那么
;;Example: (test c:cryb "cpjcryb.lsp")
(defun test        (name_sub name_file / load_na)
        (setq load_na (type name_sub))
        (if        (null load_na)
                (load name_file)
                (if (/= load_na "USUBR")(load name_file))
        )
)

ruan_gdqf

其实方法吗----多
关键看自已的喜好，并且要自己明白是怎么一回事，这是最重要的。

li809

谢谢,我知道如何用了

leeyuan

学习一下！

841594

我写的lisp工具箱对你挺合适的，不妨试试。