[求助]：问一下这个LISP程序要如何写?

carrot1983

想要把两条线AB和CD用(ssget)同时选中。然后两条线的端点分别为ptA,ptB和ptC,ptD. 那我想要得到的是：
一选中两线段,马上得出线段AC和线段BD的中点 (分别为E,F) 的连线EF.我想一条一条的选可能办得到。可是同时选怎么办？？
如果用在两条平行且相等的线上面，那就是反偏移（可以这样说吧/。。。）
哪位能提示一二。谢谢!

Underway

(defun mid_pt (a b) ;;; Mid pt (1.36 sec)
   (mapcar
     (function (lambda (a b) (/ (+ a b) 2)))
     a
     b
   )
)
;; 假定这四个点组合成一个平行四边形
(setq ss (ssget '((0 . "LINE"))) ; 且选到此二线
      e1 (ssname ss 0)
      e2 (ssname ss 1)
     dat (entget e1)
     pta (cdr (assoc 10 dat))
     ptb (cdr (assoc 11 dat))
     dat (entget e2)
     ptc (cdr (assoc 10 dat))
     ptd (cdr (assoc 11 dat))
)
(if (inters pta ptc ptb ptd T)
  (setq tmp ptd ptd ptc ptc tmp)
)
(setq pte (mid_pt pta ptc)
      ptf (mid_pt ptb ptd)
)
(vl-cmdf "Line" pte ptf "")