Desk vs CATDrawing

Проектирование механических конструкций.

Desk vs CATDrawing

Сообщение asimovic » 15 дек 2024 20:31

Привет,
Как отобразить структуру, полученную командой Desk в модуле Drafting?
asimovic
Новичок
Новичок
 
Сообщения: 8
Зарегистрирован: 14 сен 2012 13:31

Re: Desk vs CATDrawing

Сообщение [PTM] » 16 дек 2024 17:17

не совсем понятно... ведь desk приплетает всё что открыто и не обязательно,то что связано с текущем drawing.
Может вам BOM нужен?
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Desk vs CATDrawing

Сообщение asimovic » 16 дек 2024 17:25

Мне нужно графическое представление иерархической структуры номеров строк и их связи.
asimovic
Новичок
Новичок
 
Сообщения: 8
Зарегистрирован: 14 сен 2012 13:31

Re: Desk vs CATDrawing

Сообщение [PTM] » 16 дек 2024 17:54

прилепите картинку чего хотите
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Desk vs CATDrawing

Сообщение asimovic » 16 дек 2024 21:09

Я хочу автоматически получить такую ​​структуру в модуле Drafting
Вложения
asimovic
Новичок
Новичок
 
Сообщения: 8
Зарегистрирован: 14 сен 2012 13:31

Re: Desk vs CATDrawing

Сообщение [PTM] » 17 дек 2024 10:15

1. стандартный бом дает точно такую же картинку только в виде таблицы
2. вставить картинку.
3. нарисовать самому прилинковав PN к тексту
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Desk vs CATDrawing

Сообщение [PTM] » 17 дек 2024 11:01

должно быть текстовое поле "text.2" на чертеже. Сборка должна быть сохранена в текстовый файлд

Код: Выделить всё
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Front view")
Dim drawingTexts1 As DrawingTexts
Set drawingTexts1 = drawingView1.Texts
Dim drawingText1 As DrawingText
Set drawingText1 = drawingTexts1.GetItem("Text.2")


Dim oLocation As String
oLocation = "C:\temp\Product2.txt"

Dim fso
Dim file, content
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(oLocation , ForReading)
content = file.ReadAll
drawingText1.text=content
MsgBox(content)
 
End Sub

' You can add procedures or functions here (with Sub...End Sub or Function...End Function structures)
' and call them from your main)
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Desk vs CATDrawing

Сообщение [PTM] » 17 дек 2024 11:02

можно и дальше поизвращаться добавить реакцию на изменение с пересохранением сборки в текстовый файл и его прочтением ... но мне лень)))
скримт можно добавить в реакцию или vb script на обновление front view
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Desk vs CATDrawing

Сообщение asimovic » 17 дек 2024 15:59

Мне нужно того что изображено на картинке:
Вложения
asimovic
Новичок
Новичок
 
Сообщения: 8
Зарегистрирован: 14 сен 2012 13:31

Re: Desk vs CATDrawing

Сообщение [PTM] » 18 дек 2024 23:44

именно так- скорей всего нет быстрого решения... или руками или писать скрипт.. второе достаточно сложно
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2159
Images: 43
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)


Вернуться в Mechanical Design

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

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