[求助]lisp程序出错

smartstar

我想做一个命令查询的程序，可是总是有问题，请高人修改！

程序如下：
(DEFUN C:TCX()
(SETQ K (/ (GETVAR "dimasz") 4.0)) (SETQ BBLL1
(/ (GETVAR "dimasz") 4.0)) (SETQ CEN1 (/ (GETVAR "dimcen") BBLL1)) (SETQ DLI1 (/
(GETVAR "dimdli") BBLL1)) (SETQ EXE1 (/ (GETVAR "dimexe") BBLL1)) (SETQ EXO1 (/
(GETVAR "dimexo") BBLL1)) (SETQ GAP1 (/ (GETVAR "dimgap") BBLL1)) (SETQ TXT1 (/
(GETVAR "dimtxt") BBLL1)) (SETQ TSIZ1 (/ (GETVAR "textsize") BBLL1)) (SETQ LTSC1
(/ (GETVAR "ltscale") BBLL1))  (SETQ DDH (RTOS (GETVAR "CDATE") 2 6))
 (SETQ HR (SUBSTR DDH 10 2)) (SETQ YR (SUBSTR DDH 1 4)) (SETQ MR (SUBSTR DDH
5 2)) (SETQ DR (SUBSTR DDH 7 2)) (SETQ RQ1 (STRCAT YR "." MR "." DR))
(SETQ A (* K 7.0)) (SETQ B (* K 6.0)) (SETQ C (* K
5.0)) (SETQ D (* K 4.0)) (SETQ E (* K 3.5)) (SETQ F (* K 3.0)) (SETQ FF (* K
2.2)) (SETQ G (* K 1.8)) (SCXTSM1) (SETQ YR2 (SUBSTR DDH 3 2))
(IF (OR (= YR2 "05")(= YR2 "03")(= YR2 "04")(AND (= YR2 "02")(OR (= MR "07")
(= MR "08")(= MR "09")(= MR "10")(= MR "11")(= MR "12"))))(PROGN (SCXTSM2)(EXIT)))

(TERPRI)(PROMPT "  今天日期 : ") (PRINC RQ1) (PROMPT "   ")(SCXTSM2)SETVAR "cmdecho"0)
(DEFUN SCXTSM1() (SETQ DDH (RTOS (GETVAR "CDATE") 2 6))(SETQ YR (SUBSTR DDH 1 4))
(SETQ MR (SUBSTR DDH 5 2))(SETQ DR (SUBSTR DDH 7 2)) (SETQ HR (SUBSTR DDH 10 2))
(SETQ MIN (SUBSTR DDH 12 2)) (SETQ DATEHMS (STRCAT YR "年" MR "月" DR "日" HR "时" MIN "分 "))
(ALERT  (STRCAT
"                ◆工具  
★SS……相似选择（选择易）
★LAY………图层控制工具栏
★Y………………贱人工具箱
 " ))) (DEFUN SCXTSM2()  (ALERT  (STRCAT
"欢迎继续使用【工具箱】
\n          当前时间:" DATEHMS )  )  ) (TERPRI)

(PRINC "【工具箱】已加载完毕! 命令查询:TCX ")
(princ)

00放飞梦想00

ZZXXQQ 发表于 2008-12-23 20:35
程序中用了MIN做了变量名，可MIN为LISP中的函数名受到保护。所以只要将变量MIN改名就可以了。

程序中MIN改成什么？

00放飞梦想00

00放飞梦想00 发表于 2020-3-25 10:11
程序中MIN改成什么？

刚开接触这块，望大神修改，给源码，谢谢！

OooCcc

写lisp最容易出现这种问题。。。

ZZXXQQ

自己查查看，少括弧。

smartstar

请帮我修改一下吧，我实在是找不出了！谢谢！

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

smartstar

谢谢版主！！

smartstar

版主，还是提示错误！

如图所示：

ZZXXQQ

程序中用了MIN做了变量名，可MIN为LISP中的函数名受到保护。所以只要将变量MIN改名就可以了。

smartstar

这次ok了

谢谢！