Требуется выбрать с экрана объект ,отрезок ,и найти его середину .попробовал сделать это найдя координаты отрезка и через них посчитать середину, не получилось ...
(setq    to4ka (entsel "\n       Выберете нужную точку: "));выбираем объект с экрана,
  (setq tt (cdr (assoc 10 (entget (car to4ka)))));один конец отрезка
  (print tt)
  (setq tt2 (cdr (assoc 11 (entget (car to4ka)))));другой конец
  (print tt2)
  (setq xtt (car tt));выбрали х
  (setq ytt (cadr tt));выбрали у
  (print xtt)(print ytt)
  (setq xtt2 (car tt2));выбрали х
  (setq ytt2 (cadr tt2));выбрали у
  (print xtt2)(print ytt2)
(setq aa (/ 2 (- xtt2 xtt)))
  (print aa)
  (setq centerx (+ xtt (/ 2 (- xtt2 xtt)) ))
  
  (setq centery (+ ytt (/ 2 (- ytt2 ytt)) ))
  (print centerx)  (print centery)
  (setq to4kacentr (list centerx centery))
  (print to4kacentr)
  )

(/ a) <=> a
(/ a b) <=> a/b
(/ a b c d...) <=> (((a/b)/c)/d)...