Code:
Sub CATMain()'Anfangsdeklarationen --------------------------------------------------------------------------------------------
Dim MeinPart As Part
Set MeinPart = CATIA.ActiveDocument.Part
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = MeinPart.HybridShapeFactory
' Geometrisches Set deklarieren
Dim Hilfselemente As HybridBody
Set Hilfselemente = MeinPart.HybridBodies.Item("Hilfselemente")
' Geometrisches Set deklarieren
Dim Messpunkte As HybridBody
Set Messpunkte = MeinPart.HybridBodies.Item("Messpunkte")
'Extract erzeugen --------------------------------------------------------------------------------------------
Dim Was(0)
Was(0) = "Edge"
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear
Dim Ergebnis
Ergebnis = UserSel.SelectElement3(Was, "Bitte Kurven selektieren", False, CATMultiSelTriggWhenUserValidatesSelection, False)
If Ergebnis = "Normal" Then
Dim Sel As Reference
Set Sel = UserSel.Item(1).Reference
Else
MsgBox ("Abbruch")
End If
Dim Linie As HybridShape
Set Linie = Wzk3D.AddNewExtractMulti(Sel)
For i = 2 To UserSel.Count
Set Sel = UserSel.Item(i).Reference
Linie.AddConstraintTolerant Sel, 3, False, False, 0.1, 0.5, 0.98, i
Next
Hilfselemente.AppendHybridShape Linie
MeinPart.InWorkObject = Linie
UserSel.Clear
MeinPart.Update
end sub
UserSel.Clear