Вот наткнулся на файл с непонятным содержимым, никто, случайно не знает что это за язык и чего этот код делает? Сам код:
(vl-load-com) (defun c:ff () (setq e (car (entsel "\n object1"))) (setq e1 (car (entsel "\n object2"))) (setq mc (vlax-ename->vla-object e)) (setq mc1 (vlax-ename->vla-object e1)) (setq proverka (vlax-get-property mc 'ObjectName)) (if (= proverka "AcDbLine") () (progn (setq r mc1 mc1 mc mc r r e1 e1 e e r)) ) (setq ugol (vla-get-angle mc)) (setq seredina (/ (vlax-get-property mc 'length) 2)) (setq sp (entget e)) (setq xy (cdr (assoc 10 sp))) (setq seredina (polar xy ugol seredina)) (if (and (> ugol (/ PI 2)) (< ugol (+ PI (/ PI 2) ))) (progn (setq ugol (- ugol PI )))) (setq vstavka (polar seredina (+ (/ PI 2) ugol) 1)) (vlax-put-property mc1 "rotation" ugol) (setq point (vlax-make-safearray vlax-vbDouble '(0 . 2))) (vlax-safearray-fill point vstavka) (setq mas (vlax-make-variant point)) (vlax-put-property mc1 "insertionPoint" mas) )
