lisp能否实现由用户自已定义起动命令

logoin

因为各人的习惯和爱好不同，加上有很多lisp，所以新程序给其他人用时起动命令老有冲突
比如我写了个(defun c:ff())的程序，有些人已经用ff了，不知道lisp能不能实现让他们自已定义起动命令？人数多，为了更新方便，vlx文件放在服务器上，没有下载到个人电脑上用。

cabinsummer

验证符号CAR.CDR和XYZ是否已经定义，并以字符串平表的格式返回它们(假定在现行环境中没有定义符号XYZ)。

1. (atoms_family 1'("CAR" "CDR" "XYZ")) ;;; 返回("CAR" "CDR" "nil")

(atoms_family 1'("CAR" "CDR" "XYZ")) ;;; 返回("CAR" "CDR" "nil")

cabinsummer

一个好的程序员就应该考虑到这些，比如微软就曾出过匈牙利定义法，那些乱起函数名的人不会是好程序员，写的代码也好不到哪里去

Lisper

1. ;|
   
2. 假设你的函数为:
   
3. (defun c:ff()
   
4.   (setq a (getreal "\n参数1：")
   
5.         b (getreal "\n参数2：")
   
6.         )
   
7.         (princ "\n结果：")
   
8.         (princ (* a b))
   
9.         (princ)
   
10.         )
    
11.   将函数内容去掉 defun c:ff 后赋值给表 FunList ，即
    
12.   |;
    
13. (setq FunList
    
14.        '(()
    
15.          (setq
    
16.           a
    
17.           (getreal "\n参数1：")
    
18.           b
    
19.           (getreal "\n参数2：")
    
20.          )
    
21.          (princ "\n结果：")
    
22.          (princ (* a b))
    
23.          (princ)
    
24.         )
    
25. )
    
26. (setq n             0
    
27.       funstr "c:ff"
    
28.       NewFun funstr
    
29. )
    
30. (while (car (ATOMS-FAMILY 1 (list NewFun)))
    
31.   (setq NewFun (strcat funstr (itoa (setq n (1+ n)))))
    
32. )
    
33. (eval (append (list 'defun (read NewFun)) FunList))
    
34. (princ (strcat "\n启动命令: " (substr NewFun 3)))
    

;|<br /> 假设你的函数为:<br /> (defun c:ff()<br />   (setq a (getreal "\n参数1：")<br />         b (getreal "\n参数2：")<br />         )<br />         (princ "\n结果：")<br />         (princ (* a b))<br />         (princ)<br />         )<br />   将函数内容去掉 defun c:ff 后赋值给表 FunList ，即<br />   |;<br /> (setq FunList<br />        '(()<br />          (setq<br />           a<br />           (getreal "\n参数1：")<br />           b<br />           (getreal "\n参数2：")<br />          )<br />          (princ "\n结果：")<br />          (princ (* a b))<br />          (princ)<br />         )<br /> )<br /> (setq n             0<br />       funstr "c:ff"<br />       NewFun funstr<br /> )<br /> (while (car (ATOMS-FAMILY 1 (list NewFun)))<br />   (setq NewFun (strcat funstr (itoa (setq n (1+ n)))))<br /> )<br /> (eval (append (list 'defun (read NewFun)) FunList))<br /> (princ (strcat "\n启动命令: " (substr NewFun 3)))<br />

logoin

感谢楼上两位高手
好好研究研究上面的代码....