AUTOLISP编程输出问题

AUTOLISP编程输出问题

书写要完整才可以修改一下：
(defun C:M1( / %k1 %k2 %k3 %k4);要使代码不影响其它的程序，这个上面要写代码这个格式
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0);加上这两句话，命令行不会出现你不希望的数值
 (setq %k1 (getreal "
请输入实数"));输入数值
 (if (/= %k1 nil);如果第一个有输入那么第二个也要求输入
  (setq %k2 (getreal "
请数入实数"))
 )
 (if (/= %k2 nil);如果输入了两个数字那么就进行下面的计算
  (progn
   (setq %k3 (+ %k1 %k2))
   (princ %k3)
   (setq %k4 (* %k1 %k2))
   (princ %k4)
  )
 )
 (princ);命令结束的时候，要这句话，或(prin1)这样结束
)
;(defun MM (#k / );子函数要这个格式空格不可以少了。如果要消除子函数里面的代码影响，要这样格式：(defun MM (#k / #k %k1);这样里面的%k1就不会影响其它的程序了。