How to get FTA workbench? 1

[Balaji R]

Hello all,
Could any one please help me get FTA workbench. I tried like SPA workbench method but I am not able to get.

Dim partDocument1 As PartDocument
Set Partdocuemnt1 = CATIA.ActiveDocument
    
Dim Workbench1 As Workbench
Set Workbench1 = CATIA.ActiveDocument.GetWorkbench("FTAWorkbench")

Thanks in advance
Best regards,
Balaji R

 

[MKEdits]

Hello, you can try posted code, if it wont work, please let me know:

Sub CATMain()
    Dim ftaDoc 'As FtaDocument
    Set ftaDoc = CATIA.ActiveDocument

    Dim ftaRoot 'As FtaEvent
    Set ftaRoot = ftaDoc.FTASystem.RootEvent

    Dim ftaEvent 'As FtaEvent
    Set ftaEvent = ftaRoot.CreateEvent("RootEvent")
    ftaEvent.Description = "Root event"

    ftaDoc.Update
End Sub

Regards,
M

 

[ferdo]

Change manually first to FTA then

Sub Catmain ()

Query = CATIA.GetWorkbenchId

MsgBox Query 

End Sub

After that, you can use what is written in the message box to get FTA.

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[Gintoki94]

Good Day!

Especially to you Sir Fernando!

I'm new in the design industry and also first time user of CATIA and its macros like barely 6 months.

Can you please help me creating macro where you can engrave 3d text on surface without using drawing and DXF file?