Lee Mac 发表于 2022-7-6 10:02:28

我无法测试它，但这样的东西对用户来说是否更清晰/更容易修改：
 
(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)
)

dober 发表于 2022-7-6 10:06:38

超级1000次谢谢你现在它运行得很好：）
 
超级1000 mal Danke jetzt läuft es Super

alanjt 发表于 2022-7-6 10:07:29

可能这就是当你在飞行中写东西时发生的事情；它并不总是经过优化。

dober 发表于 2022-7-6 10:13:43

谢谢你们，大家都做得很好D： D
 
Danke Jungs alle Funktionieren super。

stevesfr 发表于 2022-7-6 10:15:29

 
如何在此代码中设置提醒以首先设置CELTSCALE？
我是这样想的，但不起作用，
（“设置CELTSCALE”。（命令“_.CELTSCALE”））
tia
史提夫

Lee Mac 发表于 2022-7-6 10:18:45

如果您希望添加到我修改的代码中，请注意，我重新构造了列表，因此条目可能是：
 
8

stevesfr 发表于 2022-7-6 10:23:07

非常感谢李
干杯：啤酒：
史提夫

Lee Mac 发表于 2022-7-6 10:27:08

不客气Steve
页: 1 [2]
查看完整版本: DOSLib |开发者工具Pop