данные о модели

[tikito 14]

делаю себе рамку..кто поможет вытащить такие данные из файла как ревизия,описание детали,имя файла,и нумерация листов чертежа.переделываю оригинальный макрос

 

[Rыbak 12]

В понедельник вышлю. Тоже долго мучился с оригинальным макросом.

[Rыbak 12]

Скрипты скачал с форума: http://www.plm-forum.ru/forum/, спасибо коллегам, и подогнал под себя. После открытия файла CATIA, двойной щелчок на иконке "Свойства Детали", происходит заполнение ячеек. Материал назначается, стандартно, через иконку материал. В чертеже через скрипт "Рамка ГОСТ 2.104-68 Деталь", происходит автоматическое заполнение основной надписи. В скриптах нужно только исправить фамилии и наименование предприятия.

[ЧПУшник 1]

Причем как верно замечено достается это все не из файла, гораздо проще скриптами делать

[tikito 14]

спасибо..но это не то..мне достаточно тех свойств детали которые идут в катии..без запуска первого скрипта..ревизию например оригинальный макрос

не затягивпет в чертёж хотя в макросе прописанно..наверно криво прописанно.мне из всего надо номер детали имя файла ревизия ну и коменты..

кстати кто знает как можно поменять стандартные свойства.добывить там ещё строчки для зопалнения..только не через макрос что рыбак выложил

[Rыbak 12]

Не помню где нашел, имя автора в описании. Может поможет.

[tikito 14]

спасибо почти всё сделал но описание ни как не хочет читать

 

    If ProductDrawn <> Nothing Then

    Texts.GetItem("TitleBlock_Text_EnoviaV5_Effectivity").Text = ProductDrawn.PartNumber

    Texts.GetItem("TitleBlock_Text_Title_1").Text  = ProductDrawn.Revision

    Texts.GetItem("TitleBlock_Text_Title_2").Text  = ProductDrawn.Description

    Dim ProductAnalysis As Analyze

    Set ProductAnalysis = ProductDrawn.Analyze

    Texts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,2)

     End If

 

как поменять цвет текста в макро?

[Rыbak 12]

Вот что написано на форуме: http://www.plm-forum.ru/forum/viewtopic.php?f=213&t=1592&start=25

 

 

Re: Чертежные стандарт (типа ЕСКД) и шрифт для CATIA V5

[PTM] » 22 ноя 2010 10:27

добавил в шапку стандарт для FTA, максимально приближенный по внешнему виду к ЕСКД.
Кому не нравится черный цвет стрелок рекомендую открытьв блокноте и заменить
строку
Код: Выделить всё <std:colorval>0 0 0</std:colorval>
строкой
Код: Выделить всё <std:colorval>255 255 255</std:colorval>

[tikito 14]

да там про FTA говориться..мне надо не весь текст изменить.макро делает весь текст чёрным

надо примерно как на картинке

 

строчка из макро что делает надпись UNLESS OTHERWISE NOTED

  CreateTextAF Text_22,GetOH() + .985*Col(1)              ,GetOV() + 0.98*Row(4)            ,"TitleBlock_Text_NAME_UNLESS"      ,catTopLeft  ,1.2

как её синим цветом сделать?

[tikito 14]

не хочет катия брать описание детали..все остальные данные берёт

на одном листе я могу и сам заполнить..но это макро всего лишь часть производственного процесса

фацл может доходить до 80 листов черчежа и 80 раз я не хочу писать описание детали