CatiaWidgets Forum - Recent Posts

Create Publication via Macro

Denis Douillet — Tue, 23 Dec 2025 11:20:28 +0000

Hello
Trying desesperatly to CREATE A publication in MAcro Language VBA with the following code
Could someone help me please

Sub CATMain()
Dim EngCntEditor As Object: Set EngCntEditor = CATIA.ActiveEditor

' 1. Accès au service de publication (plus puissant que l'accès par l'objet)
Dim simPubService As Object
On Error Resume Next
Set simPubService = EngCntEditor.GetService("SimPublicationServices")
On Error GoTo 0

If simPubService Is Nothing Then
MsgBox "Le service de publication est indisponible. Vérifiez vos licences."
Exit Sub
End If

' 2. Récupérer l'assemblage racine
Dim myProdService As PLMProductService: Set myProdService = EngCntEditor.GetService("PLMProductService")
Dim myRootOcc As VPMRootOccurrence: Set myRootOcc = myProdService.RootOccurrence
Dim myRootRef As VPMReference: Set myRootRef = myRootOcc.ReferenceRootOccurrenceOf

Dim ioCATIA As Application
Set ioCATIA = CATIA

'Get The Active Object i.e. Root object
Dim ioVPMRootOccurence As VPMRootOccurrence
Set ioVPMRootOccurence = ioCATIA.ActiveEditor.ActiveObject

' Get the Child Occurences i.e. the objects below the root
Dim ioVPMOccurences As VPMOccurrences
Set ioVPMOccurences = ioVPMRootOccurence.Occurrences

' Get the first Child Occurence
Dim ioOccurence As VPMOccurrence
Set ioOccurence = ioVPMOccurences.Item(1)

' Get the VPM Instance from the Child Occurence
Dim ioVPMInstance As VPMInstance
Set ioVPMInstance = ioOccurence.InstanceOccurrenceOf

' Get the VPM Reference from the VPM Instance
Dim ioVPMReference As VPMReference
Set ioVPMReference = ioVPMInstance.ReferenceInstanceOf

' Get the VPM Representation Instances
Dim ioVPMRepInstances As VPMRepInstances
Set ioVPMRepInstances = ioVPMReference.repInstances

' A 3D Part may have multiple reps below it i.e. a Shape and a Drawing
' Get the first Representation Instance from the VPM Representation Instances
Dim ioVPMRepInstance As VPMRepInstance
Set ioVPMRepInstance = ioVPMRepInstances.Item(1)

' Get the VPM Representation Reference from the Representation Instance
Dim ioVPMRepReference As VPMRepReference
Set ioVPMRepReference = ioVPMRepInstance.ReferenceInstanceOf

' Get the Part from the VPM Representation Reference
Dim ioPart As Part
Set ioPart = ioVPMRepReference.GetItem("Part")

MsgBox ioPart.axisSystems.Item(2).name

' ' 3. Récupérer l'élément sélectionné
' Dim mySelection As Object: Set mySelection = EngCntEditor.Selection
' If mySelection.Count = 0 Then
' MsgBox "Sélectionnez l'axe 'RepTgt' dans l'arbre."
' Exit Sub
' End If

'mySelection.VisProperties.SetRealColor 255, 255, 0, 1 ' Repère en jaune

' 4. RÉCUPÉRATION DU LIEN CONTEXTUEL
Dim oAxis As Object: Set oAxis = ioPart.axisSystems.Item(2)

' On tente de créer une référence contextuelle
Dim myRef As Object
On Error Resume Next
' Set myRef = ioOccurence.CreateReferenceFromObject(oAxis) ' CREATE AN EMPTY PUBLICATION
Set myRef = ioPart.axisSystems.Item(1) 'DOESN'T CREATE ANY PUBLICATION
On Error GoTo 0

' 5. CRÉATION PAR LE SERVICE (Sans passer par la collection)
Dim pubName As String: pubName = "PubliRep"
Dim newPublication As Object

On Error Resume Next
' C'est la fonction la plus robuste de l'API 3DEXPERIENCE
Set newPublication = simPubService.CreatePublication(myRootRef, myRef, pubName)
On Error GoTo 0

' 6. VERIFICATION
If Not newPublication Is Nothing Then
MsgBox "SUCCÈS ! Publication créée via SimPublicationServices."
' Rafraîchissement forcé

Else
MsgBox "Même le service de simulation a échoué." & vbCrLf & _
"Vérifiez si l'objet racine (" & myRootRef.GetIdentifier & ") n'est pas verrouillé par un autre utilisateur."
End If

MsgBox newPublication.name

End Sub

Fold / Unfold and check perimeter

gabriel coimbra — Wed, 07 Feb 2024 13:46:26 +0000

I'm using 3dexperience with the MDG (Sheet Metal Design) license to Fold/Unfold materials and then measure its perimeter and export it to Excel, I wanted to know if there was a way to do this in EKL, as I'm still learning) In this case, I would need to create an action that would do this because it would replicate this automation throughout my sector.

RE: Python in 3DX/Catia

Daniel Koman — Sun, 12 Nov 2023 17:57:21 +0000

thank you Daniel for all the useful articles published on your site.

I came across by chance as I have been interested in learning a bit of Python and as an user of Catia was keen to find some info on the subject.

Regards

Nikolay

Hi Nikolay, my apologies for the seriously late reply. it's awesome that you are looking to learn some Python to automate with CATIA! In my journey, I found Dassault's automation API guide (included in the CATIA/3DX installation) to be extremely helpful as a starting point. It's the most thorough source of API information I've found thus far, and includes sections and code examples specific to Python, VBA, and in some cases C.

The guide I'm referring to is "DSYAutomation.chm" and can be found within the code/bin subdirectory of your CATIA installation directory. In my case, this is the file path, but it may be slightly different depending on your CATIA version: "C:\Program Files\Dassault Systemes\B425\win_b64\code\bin\DSYAutomation.chm"

If you're just getting started with Python, this guide will prove to be a valuable resource for you, as it provides a complete reference of classified methods and properties of all the different objects that the API supports. In many cases, code examples in the guide are in VBA, but translating to Python shouldn't be extremely difficult if you're familiar with the basics of the language.

If there is anything specific that you're trying to do and need assistance with, feel free to reach out and I can try to help. Have an amazing day!

RE: Parametric AxisSystem through Catia EKL

Admin — Sat, 11 Nov 2023 19:03:29 +0000

Sorry about the late reply, my site has been a round for many years and your the first to post anything, I'm a little shocked to be honest, thank you.

Great question, in later revisions of CATIA they did indeed add AxisSystem to the EKL datum objects. I have not tried to create a Datum Axis Systema and then convert it to a Parametric one, but an Axis System is not a geometrical element behind the scenes its a parameter. I know this is odd but pre-CATIA V5 R14 all geometrical objects were parameters not geometry types. For what ever reason Axis Systems didn't get converted.

So this is how to convert a point.

// ConvertDatumPointtoPointCoord( iPoint : Point ) : Void

Let oGSMPoint ( GSMPoint )
Set oGSMPoint = iPoint
oGSMPoint.PointType =  "Coordinates"
  
Let oGSMPointCoord( GSMPointCoord )
Set oGSMPointCoord = oGSMPoint
oGSMPointCoord.X = iPoint->coord(1)
oGSMPointCoord.Y = iPoint->coord(2)
oGSMPointCoord.Z = iPoint->coord(3)

If the API is there in the latest release, and I will check on Monday, I would expect something similar to this.

// ConvertDatumAxisSystem( iAxisSystem : AxisSystem ) : Void

Let oGSMAxisSystem ( GSMAxisSystem)
Set oGSMAxisSystem = iAxisSystem
oGSMAxisSystem.AxisSystemType =  "Standard"

Let oGSMAxisSystemStandard ( GSMAxisSystemStandard )
Set oGSMAxisSystemStandard = oGSMAxisSystem
Set oGSMAxisSystemStandard.X = iAxisSystem.X
Set oGSMAxisSystemStandard.Y = iAxisSystem.Y
Set oGSMAxisSystemStandard.Z = iAxisSystem.Z

RE: Python in 3DX/Catia

Admin — Sat, 11 Nov 2023 18:50:10 +0000

Let me get Dan on this Post, he is a CATIA python wizard, stand by.

Parametric AxisSystem through Catia EKL

Prasanna Muthuramalingam — Sat, 05 Aug 2023 02:19:38 +0000

I have seen posts from the author in the site for creating parametric datum elements (points&lines), but is there any way we can create a parametric axis system through EKL.

Python in 3DX/Catia

Nikolay Salutski — Thu, 12 Jan 2023 13:43:25 +0000

thank you Daniel for all the useful articles published on your site.

I came across by chance as I have been interested in learning a bit of Python and as an user of Catia was keen to find some info on the subject.

Regards

Nikolay