【原创】关于lisp的简单教程

很多朋友在问LISP的使用问题，我现在简单终结一下，如果我没说清楚，请再发问。
各位高手也可以帮助解答，会者不难，难者不会！

安装LISP文件很简单，只需要以下步骤：
Tools->AutoLSP->load->打开对话框
找到相应的LISP文件,LOAD即可.
  
以下面的测量弧长的LISP为例: (LISP文件可以用记事本打开)
(defun c :dimarc()
   (setvar "cmdecho" 0)
   (setq en0(entsel "Select the exist ARC:"))
   (command "lengthen" en0 "")
   (setq len (rtos (getvar "perimeter") 2 2))
   (command "dimangular" en0 "t" len pause)
   (prin1)
)
红色的字符是这个LISP的命令名.(大家可以不去关心LISP的具体内容)
  
LOAD完成后,在命令行输入DIMARC就可以启动这个命令.

经常碰到的问体是:当你打开另一个文件,或者新建一个文件时.
刚刚加载的LISP又失效了,需要重新LOAD.很烦!
其实是有个设置没打开:
Tools->Options->打开对话框
选择system页
勾选右边的 Load acad.lsp with every drawing.
以后打开每个文件都可以用了.

为了避免和以前已设置的键盘快捷键冲突,LISP的编写者通常会给LISP起一个比较长的命令名.
其实你可以任意修改命令名,比如上面的DIMARC 可以改为K,只要你原来的K键没有设置成别的快捷命令.

我通常喜欢在AOTUCAD/SUPPORT文件夹下用记事本建立一个ACAD.LSP的文件,将所有要用的LISP都复制进去.
CAD会自动搜索ACAD.LSP文件,就不用再LOAD了.

希望对各位有帮助!

非常谢谢鲁东东，是不是山东的？
  
最近很忙，有时间必仔细揣摩体会。
  
建议斑竹给加分！

《Tools→AutoLSP→load→xxxx》方法和(Load "xxxxx")最顯著的不同是後者有指令
****的提示而前者沒有。因為llisp的名稱和指令不盡相同，且有的LSP含有數個指令所以如果沒有提示時便不知如何輸入指令。

katsu wrote:
非常谢谢鲁东东，是不是山东的？  
  
  最近很忙，有时间必仔细揣摩体会。  
  
  建议斑竹给加分！

  
    顶!
      还有没有?请go on...