CATScript: Adding to Lists
CATScript: Adding to Lists
(OP)
Hi All,
Does anyone know the syntax for adding to a List within a CATScript Macro? I have been using the .add() method, however it keeps returning an error saying that the Object does not support of the method.
I read in the documentation that the .add() method will not put an already existing element into a List if .IsDuplicateElementsAllowed is set to false, however I am not able to find documentation on how to use this statement.
To be more specific, I am trying to add points that I create within a Macro loop into a list.
Does anyone know the syntax for adding to a List within a CATScript Macro? I have been using the .add() method, however it keeps returning an error saying that the Object does not support of the method.
I read in the documentation that the .add() method will not put an already existing element into a List if .IsDuplicateElementsAllowed is set to false, however I am not able to find documentation on how to use this statement.
To be more specific, I am trying to add points that I create within a Macro loop into a list.





RE: CATScript: Adding to Lists
Sub Main()
Dim oDoc
Set oDoc = CATIA.ActiveDocument
Dim oPart
Set oPart = oDoc.Part
Dim oHBs
Set oHBs = oPart.HybridBodies
Dim oHB
Set oHB = oHBs.Add
Dim oHSF
Set oHSF = oPart.HybridShapeFactory
Dim oParams
Set oParams = oPart.Parameters
Dim oList
Set oList = oParams.CreateList("Points")
For i = 1 To 10
X = X + 25
Set myPoint = oHSF.AddNewPointCoord(X, 0, 0)
oHB.AppendHybridShape myPoint
oList.ValueList.Add myPoint
Next i
End Sub
RE: CATScript: Adding to Lists
Worked perfectly!