新手求助：已取得点n1,n2,如何求得n3，n3为n1和n2的中点。

我擦咧闹不住菇_

如题
我现在(setq n1(getpoint "\n请选择第一个点"))
(setq n2(getpoint "\n请选择第二个点"))
取得的两个点n1和n2,现在想求出点n3，n3是n1与n2的中点，要怎么求得n3？
刚开始学习lisp。。。希望得到各位大大的指导

重慶崽兒

1. (defun c:tt()
   
2.   (setq N1 (getpoint "\n请指定第一点："))
   
3.   (setq N2 (getpoint "\n请指定第二点："))
   
4.   (setq N1X (car N1) N1Y (cadr N1) N2X (car N2) N2Y (cadr N2))
   
5.   (setq X (/ (+ N1X N2X) 2) Y (/ (+ N1Y N2Y) 2))
   
6.   (entmake (list (cons 0 "POINT") (list 10 X Y)))
   
7. )

(defun c:tt()<br />   (setq N1 (getpoint "\n请指定第一点："))<br />   (setq N2 (getpoint "\n请指定第二点："))<br />   (setq N1X (car N1) N1Y (cadr N1) N2X (car N2) N2Y (cadr N2))<br />   (setq X (/ (+ N1X N2X) 2) Y (/ (+ N1Y N2Y) 2))<br />   (entmake (list (cons 0 "POINT") (list 10 X Y)))<br /> )