为什么会出现两种结果

chuqi26

在命令行输入(command "line" "10,20" "100,100")结果正确

但是(command "cal" "(cur+cur)/2")就会出现错误,我百思不得其解,查阅帮助后,cal命令不是缩写,确实是全称呀,只好向大家求教了

chg

你可以直径用lisp中的数学函数来计算。(/ (+ cur cur) 2)
这不是方便很多吗？

chuqi26

我想直接在命令行定义一个命令mid,这样在屏幕上选择两个点后,自动找到中点,所以用到(command "cal" "(cur+cur)/2")但出现错误,我用(/ (+ cur cur) 2) 试过没用

lisp初学,很多问题大家可能觉得很简单,对我来说就完全不一样了

chg

(defun c:mid(/ pt1 pt2 midpt)
  (setq pt1 (getpoint "\nSpecify first point :"))
  (if (not pt1) (exit));没有选择第一个点时退出程序。
  (setq pt2 (getpoint "\nSpecify second point :"))
  (if (not pt2) (exit));没有选择第二个点时退出程序。
  (setq midpt (list (/ (+ (car pt1) (car pt2)) 2)
                    (/ (+ (cadr pt1) (cadr pt2)) 2)
                    0.0
                    )
              )
  midpt
  )

这个程序很简单，而且有许多的因素还没有考虑，只供参考。