line의 mid point

(defun c:lineMid()
  (setq selectSet(ssget))
  (setq entName(ssname selectSet 0))
  (setq ent(entget entName))

  (setq sp(cdr(assoc 10 ent)))
  (setq ep(cdr(assoc 11 ent)))
  (setq len(distance sp ep))
  (setq ang(angle sp ep))
  (setq mp(polar sp ang (/ len 2)))
 
mp
  )

선택한 라인의 중심점 찾는거