Написать Макрос, с чего начать

[browser1]

Прошу прощения за вопрос, но просто интересно. Хотелось бы поближе познакомится с програмированнием под Катю. Так завидно, смотреть как народ реализует свои задумки в Кате, что прямо хочется научится самому. Вопрос, расскажите о том, как Вы научились писать скрипты, на каком языке это делаете Вы и вообще с чего начинали? Может книжки какие нибудь есть не сложные, я ведь в програмировании просто 0 даже с минусом. В папке С:\Program Files\Dassault Systemes\B17\intel_a\code\command нашел Excel файл GSD_PointSplineLoftFromExcel. Там есть очень интересный макрос, создание массива точек, создание сплайнов, и можно выбрать 3 вариант, создать поверхность. Вот бы научится писать макрос , хотя бы для создания массива точек. Больше мне и не надо. Пожалейте неуча, расскажите, как. На каком языке пишутся такие програмки и можно ли овладеть сей наукой.

[Sten]

В папке С:\Program Files\Dassault Systemes\B17\intel_a\code\bin есть файло V5Automotation.chm , это хелп,там даже примеры есть.

[[PTM]]

и незабывать пользоваться такой штукой как записать макрос

[browser1]

Уважаемые грамотные пользователи. Вы поймите, что для меня фразы типа "незабывать пользоваться такой штукой как записать макрос" - это практически тарабарщина. Мне необходимо прямое указание, типа макрос для Catia V5 пишут на таком языке. Используется такой -то модуль в самой CATIA или есть сторонняя программа. Книжки есть в магазине и называется так-то и так-то. Нифига это наверное не поможет, но я хоть тогда успокоюсь и пойму, что сия наука не для меня.
А вот за V5Automotation.chm спасибо. Нифига не понятно, но думаю, что может пригодится. (потом, когда пойму азы писания макросов. И еще вопрс чем отличается макрос от скрипта? А то все пишут, напиши скрипт, или напиши макрос, а что сие означает, непонятно.
Спасибо, что пока не поколотили за откровенно тупые вопросы.

[ExtraRight]

ув. browser1,имелось ввиду возможность записывать свои действия в макрос через Tools/Macros/Start Recording. Хотя там есть свои ограничения, но для начала должно быть полезно.

[Sten]

Надо идти в книжный магазин и брать что-то вроде VBA для чайников, или программируем под Excel на VBA. После прочтения половины книжки, всё становится на свои места, и можно теребить chm файл. Логика написания макросов под Эксель и Катьку практически одинакова, просто другие объекты (в первом случае таблицы,во втором - парты,итд..)

[Dasty]

Фикус в чем, Вы жмете капу Запись макроса, и работаете в Катьке..... закончили делать какие либо действия, останавлдиваете запись и смотрите результат Ваших действий на языке VBA

[browser1]

ОГРОМЕННОЕ спасибо. Прям, таки чуть не заплакал от радости когда, после построения в Катии детали, запустил макрос после этого, и получил ту же деталюху. Попробовал редактировать макрос, увидел в нем размеры, отредактировал их и изменил солид. Я счастлив. Спасибо огроменное.
Завтра, вернее сегодня попробую продолжить

[browser1]

Фикус в чем, Вы жмете капу Запись макроса, и работаете в Катьке..... закончили делать какие либо действия, останавлдиваете запись и смотрите результат Ваших действий на языке VBA

А можно ли получить макрос на уже готовый солид. А то не очень получается. Включать запись макроса при создании я не всегда вспоминаю. Если нет, то получается, что для готового изделия писать макрос очень сложный вопрос.
Подскажите пожалуйста.

[Egor_K]

А можно ли получить макрос на уже готовый солид. А то не очень получается. Включать запись макроса при создании я не всегда вспоминаю. Если нет, то получается, что для готового изделия писать макрос очень сложный вопрос.
Подскажите пожалуйста.

Для геометрических построений я бы не стал писать макросы, а лучше сделал бы шаблон модулем Product Knowledge Template, тем более там создаются шаблоны без программирования

[MAX KZK]

А можно ли получить макрос на уже готовый солид.

Есть еще такой чудный модуль "Generative knowledge" - совсем уж для утонченных извращенцев эстетов.
Он как раз строит солиды с помощью команд специального макроязыка.

[Mihan]

Может кто-нибудь писал макросы для создания источников света(LightSource). Если сохранились исходники выложите пожалуйста, а то очень надо. Просто при записи макроса с созданием какого-либо источника света у меня в макросе ничего не записывается может знает в чем проблема???

[[PTM]]

Может кто-нибудь писал макросы для создания источников света(LightSource). Если сохранились исходники выложите пожалуйста, а то очень надо. Просто при записи макроса с созданием какого-либо источника света у меня в макросе ничего не записывается может знает в чем проблема???

посмотрите что есть в справке.По крайней мере там рассматриваеться добавление LightSource к существующей коллекции и его удаление

[Mihan]

В справке есть вот такой пример добавлени к коллекции источника света:

Dim MyViewer As Viewer
Set MyViewer = CATIA.ActiveWindow.ActiveViewer
Dim MyLightSource As LightSource
Set MyLightSource = MyViewer.LightSources.Add

Вот мой код из макроса:

Код: Выделить всё

Sub CATMain()
' Get the documents collection
    Dim oCollection As Documents
    Set oCollection = CATIA.Documents

    ' test if no document is open
    If 0 = oCollection.Count Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

     ' Get material library
    Dim oProductDocument As Document
    Set oProductDocument = CATIA.ActiveDocument

    ' test if the active document is a product
    If 0 = InStr(oProductDocument.Name, ".CATProduct") Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

    ' Accessing the Root Product
    Dim oRootProduct As Product
    Set oRootProduct = oProductDocument.Product

    ' Accessing the collection of rendering lights
    Dim oLights As RenderingLights
    Set oLights = oRootProduct.GetItem("CATRscRenderingLightVBExt")


Dim MyViewer As Viewer
 Set MyViewer = CATIA.ActiveWindow.ActiveViewer
 Dim MyLightSource As LightSource
 Set MyLightSource = MyViewer.LightSources.ADD
 

       
End Sub

Пишет вот такую ошибку:

The method ADD failed

И ссылается, что ошибка в строке:

Set MyLightSource = MyViewer.LightSources.ADD

Может кто то знает как справиться с данной ошибкой?

[Artem]

Добавляет только один источник света (итого два)

Код: Выделить всё

Sub CATMain()
' Get the documents collection
    Dim oCollection As Documents
    Set oCollection = CATIA.Documents

    ' test if no document is open
    If 0 = oCollection.Count Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

     ' Get material library
    Dim oProductDocument As Document
    Set oProductDocument = CATIA.ActiveDocument

    ' test if the active document is a product
    If 0 = InStr(oProductDocument.Name, ".CATProduct") Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

    ' Accessing the Root Product
    Dim oRootProduct As Product
    Set oRootProduct = oProductDocument.Product

    ' Accessing the collection of rendering lights
    Dim oLights 'As RenderingLights
    Set oLights = oRootProduct.GetItem("CATRscRenderingLightVBExt")


Dim MyViewer As Viewer
Set MyViewer = CATIA.ActiveWindow.ActiveViewer
MsgBox "Общее количество источников  " + CStr(MyViewer.LightSources.Count)
Dim MyLightSource 'As LightSource
On Error Resume Next
Dim Arr(2)
For i = 1 To 3
MyViewer.LightSources.Add
Set MyLightSource = MyViewer.LightSources.Item(MyViewer.LightSources.Count)
Arr(0) = 5
Arr(1) = 8
Arr(2) = -2
MyLightSource.PutDirection Arr
If Err.Number = 0 Then
MsgBox CStr(MyViewer.LightSources.Count) + "  источник света добавлен успешно"
Else
MsgBox " Облом с " + CStr(MyViewer.LightSources.Count + 1) + "  источником света"
Err.Clear
Exit For
End If
Next
End Sub

[Mihan]

Спасибо, что откликнулись. Но что-то он у меня не хочет работать . Вроде код правильно написан, но у меня в катьке так и ничего не добавляет.

[[PTM]]

добавляет,но наверное вы говорите о разных вещах
Mihan:view lighting (alt+v+l) посмотрите до и после выполнения скрипта)

[Mihan]

Ничего не изменилось. Может меня не правильно поняли. Я хотел сделать, что то вроде панели Scene Editor. Но мне нужно оттуда только создание источников света, т.е. через макрос создавался Create Spot Light(а по возможности и все остальные. Их там всего 6).

[Mihan]

Вот в хелпе нарыл вот такую функцию:

Methods

o Sub AddActiveLight( CATIARenderingLight iActiveLight)
Adds a new active light to the shooting active lights list.

Но что-то никак не могу подобрать для нее параметры. Хелп ми ?

[Artem]

Код: Выделить всё

Sub CATMain()
' Get the documents collection
    Dim oCollection As Documents
    Set oCollection = CATIA.Documents

    ' test if no document is open
    If 0 = oCollection.Count Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

     ' Get material library
    Dim oProductDocument As Document
    Set oProductDocument = CATIA.ActiveDocument

    ' test if the active document is a product
    If 0 = InStr(oProductDocument.Name, ".CATProduct") Then
        MsgBox "A product document must be active to execute this macro.", vbOKOnly, "Switch Off Lights"
        Exit Sub
    End If

    ' Accessing the Root Product
    Dim oRootProduct As Product
    Set oRootProduct = oProductDocument.Product

On Error GoTo 0
Dim cShoot 'As RenderingShootings
MsgBox oRootProduct.GetItem("CATRscRenderingShootingVBExt").Count
oRootProduct.GetItem("CATRscRenderingShootingVBExt").Add
MsgBox oRootProduct.GetItem("CATRscRenderingShootingVBExt").Count
Dim aaa 'As LightSource
Set aaa = oRootProduct.GetItem("CATRscRenderingShootingVBExt").Item(oRootProduct.GetItem("CATRscRenderingShootingVBExt").Count)
MsgBox oRootProduct.GetItem("CATRscRenderingLightVBExt").Count
oRootProduct.GetItem("CATRscRenderingLightVBExt").Add
MsgBox oRootProduct.GetItem("CATRscRenderingLightVBExt").Count
aaa.AddActiveLight (oRootProduct.GetItem("CATRscRenderingLightVBExt").Item(1))

End Sub

.........Ни в помощи ,ни на сое не нашел - интуиция подсказала...
PC. Я в принципе не привередливый - кулер или там бавария покатят...

[Shell]

Вопрос такой, при работе в Machining (да и вообще) довольно часто приходится изменять некоторые настройки в Tool\Options\..., ну и дальше по закладкам. И возникла идея создать Toolbar с наиболее часто используемыми опциями. Первое, что пришло в голову, попробовал Tools\Macros\Start Recording, в результате, после изменения нужного пункта, в Tool\Options\..., получился пустой макрос. Можно ли как-нибудь получить желаемое, подскажите, пожалуйста?
P.S. В этом деле я новичок, пока как-то обходился стандартным функционалом CATIA...

[Artem]

Не уверен что все настройки поддадуться...Поищи на coe - оттуда юзал получение единиц измерения из настроек (Не помню было или нет чего по поводу задания)

[Mihan]

Спасибо всем большое, особенно Artem. Твой пример мне здорово помог.Но сейчас другая проблема:
1). Можно ли вместо Spot Light создать, например, Disk Light или Cylinder Light?
2). Можно как-нибудь изменить расположение, создаваемого объекта? Т.е. вбил в макросе координаты (x,y,z) и объект будет там создан.
В helpe нашел функцию Sub PutDirection( CATSafeArrayVariant oDirection). Даже есть пример:

Код: Выделить всё

LightSource.PutDirection Array(5,8,-2)

Но что то он не работает .

[zerganalizer]

Здравствуйте! У меня коротенький (надеюсь) вопрос.

Предыстория: пишутся UserFeatures с правилами. В теле правила на объекты Объемы GSD методом '001/Выдавливание объема.1'.Element1 = '001/Эскиз.1' я смог менять эскиз выдавливания на другой при выполнении некоторого условия. Но как поменять объекты его ограничений 1 и 2? GSMextrude (и не только он) кажет тока входн(ой)ые элемент(ы) и длины 1 и 2.

Откопав инструкции по CAA, нашел имена переменных этой операции, но '001/Выдавливание объема.1'.FirstUptoElement дает сообщение о неправильном контексте. Подозреваю, что между именем фичи и FirstUptoElement (или SecondUptoElement) должно еще что-то указываться. Вообще как решаются подобные подстановки? Как строить конструкции для обращения к параметрам и входным элементам фичера? Кто знает, отзовитесь!

[zerganalizer]

Гы, некоторые траблы снялись установкой SP8. Правда, вопросы остались, и увы, их вряд ли решить без авторизованного курса CAA Automation...

P.S. трабла решается пока только через VB6, что не очень удобно. И только через реакцию, а не правило.