[LISP程序]：加载多个lsp程序 一例

梦断江南

前提这些lsp都在搜索路径里，才可正常加载

2. 
   
3.   [FONT=courier new]
   
4. ;;
   
5. ;; 加载lxx程序
   
6. ;;
   
7. ;要加载的程序列表
   
8. (setq lxxlisp '("ll" "en" "pej" "chbn" "et" "uc" "vp" "pdx" "lass" "lac" "zoom"))
   
9. (foreach n
   
10.    lxxlisp
    
11.   (load n)
    
12. )
    
13. (princ "\n已经加载lxx程序:")
    
14. (princ lxxlisp)
    
15. (princ)
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;<br /> ;; 加载lxx程序<br /> ;;<br /> ;要加载的程序列表<br /> (setq lxxlisp '("ll" "en" "pej" "chbn" "et" "uc" "vp" "pdx" "lass" "lac" "zoom"))<br /> (foreach n<br />    lxxlisp<br />   (load n)<br /> )<br /> (princ "\n已经加载lxx程序:")<br /> (princ lxxlisp)<br /> (princ)<br />   [/FONT]<br />