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

Программирование для CATIA.

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

Сообщение 3Dge » 15 сен 2010 14:37

Есть 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
3Dge
Новичок
Новичок
 
Сообщения: 30
Images: 0
Зарегистрирован: 14 дек 2009 12:58
Откуда: СПб

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

Сообщение RIMs » 17 сен 2010 19:39

что значит соединить? создать Constraint между точками? ... у меня не получается это сделать вручную напрямую в КАТИ
RIMs
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 20 мар 2009 22:27

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

Сообщение 3Dge » 20 сен 2010 09:22

Ручками можно - Insert -Geometry modification - Constraints - Contact constraint. А вот как кодом ?
3Dge
Новичок
Новичок
 
Сообщения: 30
Images: 0
Зарегистрирован: 14 дек 2009 12:58
Откуда: СПб

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

Сообщение booSter » 23 сен 2010 15:33

Ну, а если как нибудь вот так:

Код: Выделить всё
...
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)
...


По идее должно создать треугольник... и точки вершин будут общие для соседних сторон

Пробуйте ;-)
Сделаешь доброе дело за деньги - скажут спасибо,
Сделаешь бесплатно - сядут на шею...
©пёрто
Аватара пользователя
booSter
Moderator
 
Сообщения: 227
Images: 15
Зарегистрирован: 09 фев 2008 16:48
Откуда: Minsk

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

Сообщение 3Dge » 07 окт 2010 11:07

Спасибо за ответ, но это не то о чём я спрашивал.
Ответ нашел сам :

CATIA.ActiveDocument.Selection.Add oPoint2
CATIA.ActiveDocument.Selection.Add oPoint3

CATIA.StartCommand "Contact Constraint"

Строка рулит - вот только где бы найти список команд для строки ?
3Dge
Новичок
Новичок
 
Сообщения: 30
Images: 0
Зарегистрирован: 14 дек 2009 12:58
Откуда: СПб

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

Сообщение booSter » 11 окт 2010 17:06

Всегда пожалуйста :)

Только если ваша цель создать т.н. "поли-линию" то привинчивать констрэйнт нет необходимости - "общей" точки для смежных сегментов вполне достаточно
Сделаешь доброе дело за деньги - скажут спасибо,
Сделаешь бесплатно - сядут на шею...
©пёрто
Аватара пользователя
booSter
Moderator
 
Сообщения: 227
Images: 15
Зарегистрирован: 09 фев 2008 16:48
Откуда: Minsk


Вернуться в CAA-RADE

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2