前面的函数重写一下
(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
其实对于第一种方法(用NON)我之衣也试过,效果也不理想
会出现捕捉时捕捉到的值为:X向只是单个点的坐标,Y坐标为两个点的计算后的坐标。虽然在数据显示时没有错,但出来的点还是有错。