[Holon]

Подскажите пожалуйста функцию которая возвращала бы длинну дуги, по построенному
програмно примитиву

Код:

[Выделить все]

;;;-------------------------  exemple (L_ARC 50 100) -------------------
(defun L_ARC( H Dist /  bt pnt1 pnt2)
 (setq
    bt '(0 0)
    pnt1 (polar bt (* pi 2) Dist)
    pnt2 (polar(polar bt (* pi 2)(/ Dist 2))(/ pi 2)H)
 );setq
 
  (vl-cmdf "_arc" "_ce" (polar bt (* pi 2)(/ Dist 2)) bt pnt1)
  )

[Кочетков Андрей]

Код:

[Выделить все]

(vla-get-arclength (vlax-ename->vla-object (entlast)))

[Holon]

Возвращает длину дуги, большее спасибо

[Holon]

А еще бы функцию которая возвращала бы радиус построенной дуги

[Holon]

Сам додумался

Код:

[Выделить все]

(vla-get-radius (vlax-ename->vla-object (entlast)))

[Кочетков Андрей]

Сообщение от Holon Сам додумался

Угу )))
А еще посмотри объектную модель Акада.
Со свойствами и методами объектов.
В Хелпе.
Много вопросов снимет.