AUTOLISP编程输出问题

答案:1 悬赏:30 手机版

解决时间 2021-11-24 23:24

提问者网友：niaiwoma
2021-11-24 20:20

AUTOLISP编程输出问题

最佳答案

五星知识达人网友：鱼忧
2021-11-24 20:46

书写要完整才可以修改一下：
(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就不会影响其它的程序了。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息