Macro in Delmia

[Mel]

Hi ,

I am programming some VBA macros in Delmia with interface to make easier the life of the user.

I know there is the option to "Start Recording" macro, then I can make some operation in delmia and see the code generated by these operations. But when I click, by example, on "Restore initial state". There is no code generate.

Is someone know where I can find a list of the command in VBA to call some delmia's function in my macro.

Thanks, 

[simspec]

Are you running the standalone or the catia version?

- i dont know either but hopefully someone does

[Mel]

I'm running the Stand Alone Version...

[simspec]

have you found anything on this yet?

[axelb]

Hi,

Some functions of Delmia doesn't work with the "recording macro" ability.

Maybe you can find the function/keyword in the documentation -> Delmia infrastructure -> automation

Best regards
Axel

[simspec]

try this in vba:

 CATIA.StartCommand ("{commandname]") 


replace [commandname] with a valid command, it starts functions that are not recordable, it might work for delmia,

to find valid command names hover over the the button of the function and use the command name that appears next to the text window in the bottom right hand corner of the catia window.

you might need to replace CATIA.StartCommand with DELMIA.StartCommand

[Mel]

Hi all!

In case that I can help someone else  the folowing code replace the RestoreInitialState function in VB:

DELMIA.StartWorkbench ("DNBAsy")
   
    'Get the document
    Dim processDocument1 As ProcessDocument
    Set processDocument1 = DELMIA.ActiveDocument
       
    'Get the process document
    Dim ProcessDoc As PPRDocument
    Set ProcessDoc = processDocument1.PPRDocument

   
    Dim prodList As PPRProducts
    Set prodList = ProcessDoc.Resources
           
    'Variable declaration
    Dim count
    Dim iSimInitState As SimulationInitState
    Dim iMask As DNBSimInitStateAttr
    Dim RootProduct As Product
   
    count = prodList.count
   
    If (count > 0) Then
    Set RootProduct = prodList.Item(1)
    End If
   
    'Variable Initialisation
    iMask = DNBAllInitStateAttr
    Set iSimInitState = RootProduct.GetTechnologicalObject("SimulationInitState")
         
    'Save all attributes of selected product List
    iSimInitState.RestoreInitialState iMask

Best Regards

Mel