cond 函数运用出错请教

zwf100 · 发表于 2011-2-20 21:34:47

(setq qw (abs (fix (/ zhwz 1000))))
  (setq gw0 (rem zhwz 1000))
  (if (< gw0 0) (setq gw (* -1 gw0))
  (setq gw  gw0)
  )
(setq gwp1 gw)
(progn
  (cond
((< gwp1 10)  (setq  gw1(strcat "00" (rtos gw 2 jds))))
      ((< gwp1 100)  (setq  gw1(strcat "0" (rtos gw 2 jds))))
      ((< gwp1 1000)  (setq  gw1(strcat "" (rtos gw 2 jds))))
  )
以上代码中，当zhwz为-10时，余数gw0为-10，gw=gwp1=10。按程序的意思gw1应为010，可运行结果却为0010？不知是何原因，请高手指点

jackynine · 发表于 2011-2-21 16:55:24

cond 语法错误，用t来结束的。

zwf100 · 发表于 2011-2-21 19:16:59

回复 jackynine 的帖子

谢谢，不过用t好像也不行

Gu_xl · 发表于 2011-2-21 20:35:42

本帖最后由 Gu_xl 于 2011-2-21 20:36 编辑

回复 zwf100 的帖子

运行没问题！
(defun tt(zhwz jds / gw0 gw gwp1 gw1 )
  (setq gw0 (rem zhwz 1000))
  (if (< gw0 0) (setq gw (* -1 gw0))
  (setq gw  gw0)
  )
(setq gwp1 gw)
  (cond
((< gwp1 10)  (setq  gw1(strcat "00" (rtos gw 2 jds))))
      ((< gwp1 100)  (setq  gw1(strcat "0" (rtos gw 2 jds))))
      ((< gwp1 1000)  (setq  gw1(strcat "" (rtos gw 2 jds))))
  )
  gw1
)
(tt -10 3)
;;;返回 010

账号		自动登录	找回密码
密码			注册

[函数] cond 函数运用出错请教