我无法测试它，但这样的东西对用户来说是否更清晰/更容易修改：
- (defun c:A ( / l1 n )
- ;; As-Built Tools
- ;; Alan J. Thompson, 05.02.11
- ;; Modified by Lee Mac 25.05.11
- (setq l1
- '(
- (" * - * ZÄHLER TOOLS * - * " 1)
- ("" 1)
- ("Nummer + +0" 0 (progn (if (or c:Zahl_plus (load "zahl_plus" nil)) (c:Zahl_plus))))
- ("Nummer - -0" 0 (progn (if (or c:Zahl_minus (load"zahl_minus" nil)) (c:Zahl_minus))))
- ("Nummer + 200/1/+" 0 (progn (if (or c:nummerhoch (load"nummerhoch" nil)) (c:nummerhoch))))
- ("Nummer - 200/1/-" 0 (progn (if (or c:nummerminus (load"nummerminus" nil)) (c:nummerminus))))
- )
- )
- (if (setq n (dos_popupmenu (mapcar 'car l1) (mapcar 'cadr l1)))
- (eval
- (caddr (nth (1- n) (vl-remove-if-not '(lambda ( x ) (zerop (cadr x))) l1)))
- )
- )
- (princ)
- )
| 
