秋枫 发表于 2002-11-16 10:19:00

前面的函数重写一下

(defun getmidpt        (pt1 pt2 / strlst)
(setq        strlst (mapcar '(lambda (x1 x2) (rtos (/ (+ x1 x2) 2) 2 16))
                     pt1
                     pt2
             ) ;_ end of mapcar
) ;_ end of setq
(strcat (car strlst) "," (cadr strlst) "," (caddr strlst))
) ;_ end of defun

mccad 发表于 2002-11-17 18:47:00

其实对于第一种方法(用NON)我之衣也试过,效果也不理想

会出现捕捉时捕捉到的值为:X向只是单个点的坐标,Y坐标为两个点的计算后的坐标。
虽然在数据显示时没有错,但出来的点还是有错。
页: 1 2 [3]
查看完整版本: [求助]利用计算器找中点的困惑