[hydushko]

Здравствуйте! У меня возник вопрос. Есть данная программа.

Код:

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

 
(defun int()
  (vl-load-com)
  (setq obj(vlax-ename->vla-object (car(entsel))))
  (setq temp (vla-intersectWith obj (vlax-ename->vla-object (car(entsel)))acExtendThisEntity))
  (setq tper(vlax-safearray->list (vlax-variant-value temp)))
  (rec-list->ptlist tper)
 )

она реализует точки пересечения 2-х тел которые пользователь должен указать. Как мне его переделать если у меня уже ведомы точки тел (а именно круга, координаты которого не меняются) и линии (координаты которой меняются в зависимости от цикла). Пользователь не должен принимать участие в выборе этих тел.

[Apelsinov]

Код:

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

 (defun int (obj1 obj2 / temp tper)
;;; obj1 и obj2 - переменные, которым присвоено значения пересекаемых объектов
     (vl-load-com)
     (setq temp (vla-intersectWith obj1 obj2 acExtendThisEntity))
     (setq tper (vlax-safearray->list (vlax-variant-value temp)))
     (rec-list->ptlist tper)
)

Присвоить значение obj1 и obj2 можно при помощи vla-AddLine и vla-AddCircle

Но, как правило, такие задачи лучше решать через геометрические методы нахождения точек пересечения, без отрисовки объектов.

[hydushko]

первую точку пересечения с помощью геометрической формулы определил... но следующие 3 я просто не имею понятия как реализовать крадратическое уравнение типа ax^2+ bx+c=0 через которое будет вычеслятся точки пересечения.