lisp函数1）获取两点连线中点的函数.2）获取当前图形比例尺的函数·.

Question

lisp函数
1）获取两点连线中点的函数.
2）获取当前图形比例尺的函数·.

Answer 1

(defun midf( p1 p2);p1,p2为两个点
（polar p1 (angle p1 p2) (* 0.5 (distance p1 p2)))
)
;;;该函数返回值就是中点