Страница 1 из 1
Как соединить две линии в Drawing ?

Добавлено:
15 сен 2010 14:37
3Dge
Есть 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
Re: Как соединить две линии в Drawing ?

Добавлено:
17 сен 2010 19:39
RIMs
что значит соединить? создать Constraint между точками? ... у меня не получается это сделать вручную напрямую в КАТИ
Re: Как соединить две линии в Drawing ?

Добавлено:
20 сен 2010 09:22
3Dge
Ручками можно - Insert -Geometry modification - Constraints - Contact constraint. А вот как кодом ?
Re: Как соединить две линии в Drawing ?

Добавлено:
23 сен 2010 15:33
booSter
Ну, а если как нибудь вот так:
- Код: Выделить всё
...
Option Base 1
...
Dim fct2D As Factory2D
Dim adCoord(3,2) As Double
Dim ptVertices(3) As Point2D
Dim lnSegments(3) As Line2D
...
Set ptVertices(1) = fct2D.CreatePoint(adCoord(1,1),adCoord(1,2))
Set ptVertices(2) = fct2D.CreatePoint(adCoord(2,1),adCoord(2,2))
Set ptVertices(3) = fct2D.CreatePoint(adCoord(3,1),adCoord(3,2))
...
Dim lnSegments(1) = fct2D.CreateLine(adCoord(1,1),adCoord(1,2),adCoord(2,1),adCoord(2,2))
Dim lnSegments(2) = fct2D.CreateLine(adCoord(2,1),adCoord(2,2),adCoord(3,1),adCoord(3,2))
Dim lnSegments(3) = fct2D.CreateLine(adCoord(3,1),adCoord(3,2),adCoord(1,1),adCoord(1,2))
...
Set lnSegments(1).StartPoint = ptVertices(1)
Set lnSegments(1).EndPoint = ptVertices(2)
Set lnSegments(2).StartPoint = ptVertices(2)
Set lnSegments(2).EndPoint = ptVertices(3)
Set lnSegments(3).StartPoint = ptVertices(3)
Set lnSegments(3).EndPoint = ptVertices(1)
...
По идее должно создать треугольник... и точки вершин будут общие для соседних сторон
Пробуйте

Re: Как соединить две линии в Drawing ?

Добавлено:
07 окт 2010 11:07
3Dge
Спасибо за ответ, но это не то о чём я спрашивал.
Ответ нашел сам :
CATIA.ActiveDocument.Selection.Add oPoint2
CATIA.ActiveDocument.Selection.Add oPoint3
CATIA.StartCommand "Contact Constraint"
Строка рулит - вот только где бы найти список команд для строки ?
Re: Как соединить две линии в Drawing ?

Добавлено:
11 окт 2010 17:06
booSter
Всегда пожалуйста

Только если ваша цель создать т.н. "поли-линию" то привинчивать констрэйнт нет необходимости - "общей" точки для смежных сегментов вполне достаточно