Есть 2 линии с начальными и конечными точками. Не знаю как связать конечную точку первой линии и начальную второй.
Кусок кода :
Set Line_Base = myFactory2D.CreateLine(StartX_1, StartY_1, StartX_2, StartY_2)
Set Line_Polka = myFactory2D.CreateLine(StartX_2, StartY_2, StartX_2 + 35, StartY_2)
Set oPoint1 = Line_Base.StartPoint
Set oPoint2 = Line_Base.EndPoint
Set oPoint3 = Line_Polka.StartPoint
Set oPoint4 = Line_Polka.EndPoint