Пересечение линий и VBA

IntersectWith

1) Для линии есть прямоугольник (x1,y1 - x2,y2)
2) Есть такая функция acedGetSS которая при некоторых опциях возвращает объекты внутри прямоугольника и пересекающихся с прямоугольником. Для п.1 box найди такие объекты.
3) Для каждого объекта сделай IntersectWith c линией.

Есть функции на ЛИСП (по формулам аналитической геометрии), решающие эту задачу.
Пиши

чавойто глюкануло!!!
(inters T1 T2 T3 T4 n)
если n нет, то.....
Все описано : проекитирование в Auto Lisp основы програмирования  Кудрявцев Е.М.

Finds the intersection of two lines

(inters pt1 pt2 pt3 pt4 [onseg])

All points are expressed in terms of the current UCS.
If all four point arguments are 3D, inters checks for 3D intersection.
If any of the points are 2D, inters projects the lines onto the current
construction plane and checks only for 2D intersection.
Arguments
  pt1    - One endpoint of the first line.
  pt2    - The other endpoint of the first line.
  pt3    - One endpoint of the second line.
  pt4    - The other endpoint of the second line.
  onseg  - If specified as nil, the lines defined by the four pt arguments
           are considered infinite in length. If the onseg argument is omitted or is not nil,
           the intersection point must lie on both lines or inters returns nil.

Return Values

If the onseg argument is present and is nil, inters returns the point where the lines intersect,
even if that point is off the end of one or both of the lines.
If the onseg argument is omitted or is not nil, the intersection point must lie on both lines or
inters returns nil. The inters function returns nil if the two lines do not intersect.

Examples
(setq a '(1.0 1.0) b '(9.0 9.0))
(setq c '(4.0 1.0) d '(4.0 2.0))

Command: (inters a b c d)
nil
Command: (inters a b c d)
nil
Command: (inters a b c d nil)
(4.0 4.0)