chuqi26 发表于 2003-3-2 17:37:00

为什么会出现两种结果

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

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

chg 发表于 2003-3-2 18:23:00

不是每个命令在lisp中的格式都是象你第一个命令一样的。

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

chuqi26 发表于 2003-3-2 18:38:00

(/ (+ cur cur) 2) 试过没用

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

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

chg 发表于 2003-3-2 19:07:00

给你一点提示。

(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
)

这个程序很简单，而且有许多的因素还没有考虑，只供参考。
页: [1]
查看完整版本: 为什么会出现两种结果