[yat]

как запустить эту программу

(defun ru-geom-area-points (pnt_list)
(abs (* (apply '+
(mapcar
(function
(lambda (p1 p2)
(* (+ (car p1) (car p2))
(- (cadr p1) (cadr p2))
) ;_ end of *
) ;_ end of lambda
) ;_ end of function
pnt_list
(cons (last pnt_list) pnt_list)
) ;_ end of mapcar
) ;_ end of apply
0.5
) ;_ end of *
) ;_ end of abs
) ;_ end of defun


;|«Visual LISP© Format Options»
(130 2 72 2 T "end of " 80 9 1 0 0 T T T T)
;*** DO NOT add text below the comment! ***|;

[vk]

Вопрос конечно интересный.... В том смысле, что это немножко не совсем программа, а всего лишь функция. При вызове ей требуется передать список точек. Например так

_$ (setq pnts '((0 0) (0 10) (20 10) (20 0))) ((0 0) (0 10) (20 10) (20 0)) _$ (ru-geom-area-points pnts) 200.0 _$

Разумеется, функция должна быть загружена в текущий чертеж.

А вобще то чтоб пользовать такие функции, надо немножко AutoLISP изучить.