[求助]为什么输出有错

ahhfthdl

请各位高手指教,程序怎么修改,先谢过了。

(defun c:mdnum()
    (setq num1 (getreal "\n Enter  first number:"))
    (setq num2 (getreal "\n Enter second number:"))
    (setq ans(strcase (getstring "enter M or D:")))
    (if (= ans "M")
      (setq x (* num1 num2))
    )
    (if (= ans "D")
      (setq x (/ num1 num2))
    )
    (if (and (/= ans "D") (/= ans "M"))
    (prompt "sorry!wrong entry, Try again")
    )
    (princ x)
    (Princ)
    )

以下是运行结果，错误出现在第三个方式：

命令:
MDNUM
 Enter  first number:10
 Enter second number:2
enter M or D:m
20.0
命令:（**********请教这行能否去掉啊）

命令:
MDNUM
 Enter  first number:10
 Enter second number:2
enter M or D:d
5.0
命令:（***********请教这行能否去掉啊）

命令:
MDNUM
 Enter  first number:10
 Enter second number:2
enter M or D:h
sorry!wrong entry, Try again5.0（******这个5.0怎么去掉啊）

sailorcwx

getstring用getkword替换会好点

要把5.0去掉，可以把

(if (and (/= ans "D") (/= ans "M"))
(prompt "sorry!wrong entry, Try again")
)
(princ x)

改成

(if (and (/= ans "D") (/= ans "M"))
(prompt "sorry!wrong entry, Try again")
(princ x)
)
   

ahhfthdl

谢谢水手,已经试过了,第2个问题解决,第一个用getkword基本没有变化。