新手写的LISP，咋不能运行，求大师指点

xmokok · 发表于 2016-11-21 10:00:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(DEFUN C:zjcc()
(setvar "cmdecho" 0)
(setq poo (getint "\n加减乘除(1:加 2:减 3:乘 4:除): <1>"))
(if (= poo nil)       (setq (poo 1))  )
(if (> poo 4)       (setq (poo 1))  )
(if (= poo 1)       (Setq s0 (Getreal "请输入增加的数值:")) )
(if (= poo 2)       (Setq s0 (Getreal "请输入减少的数值:")) )
(if (= poo 3)       (Setq s0 (Getreal "请输入乘数:")) )
(if (= poo 4)       (Setq s0 (Getreal "请输入被除数:")) )
(Print "请选择：")
(Setq S (SSGET ))
(Setq N (SSLENGTH S))
(Setq M 0)
(Repeat N
      (Setq SN (SSNAME S M))
      (Setq e (ENTGET SN))
      (IF (= (cdr (assoc 0 e)) "TEXT")
         (Progn
            (setq oldr (assoc 1 e))
            (setq old0 (cdr oldr))
            (if (= poo 1)       (setq newr (rtos (+ (atof old0) s0) 2 1)) )
            (if (= poo 2)       (setq newr (rtos (- (atof old0) s0) 2 1)) )
            (if (= poo 3)       (setq newr (rtos (* (atof old0) s0) 2 1)) )
            (if (= poo 4)       (setq newr (rtos (/ (atof old0) s0) 2 1)) )
            (setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))
            (entmod e1)
         )
      )
      (Setq M (+ M 1))
)
)

Lisphk · 发表于 2016-11-21 11:31:50

  (if (= poo nil)
(setq (poo 1))
  )
  (if (> poo 4)
(setq (poo 1))
  )

这两个地方的 setq 有问题

ray7891 · 发表于 2016-11-21 12:34:32

我比你还新。好多都还看不懂。

sicky111 · 发表于 2016-11-21 14:07:56

  (if (= poo nil)
(setq poo 1)
  )
  (if (> poo 4)
(setq poo 1)
  )

csharp · 发表于 2016-11-21 14:31:50

首先关键字的用getkword+initget，后面是顺理成章的写法

xmokok · 发表于 2016-11-22 10:53:53

谢谢，学会了一招，

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

[求助] 新手写的LISP，咋不能运行，求大师指点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

浏览过的版块