Danke, das hilft mir schonmal weiter.
Ich hab mich jetzt dazu entschieden, das ganze innerhalb eines PArts zu machen, da es für mich keine wesentlichen Nachteile darstellt.
Dennoch schlägt die Erzeugung der Polyline über die erzeugten Referenzenf fehl.
Code:
Global:
Dim ConceptCoolingSystem As Document
Set ConceptCoolingSystem = CATIA.ActiveDocument
Dim CoolingSystem As Part
Set CoolingSystem = ConceptCoolingSystem.Part
Dim SetName As String
Dim Schlauchset As Hybridbody
Set Schlauchset = CoolingSystem.hybridBodies.Add()
Dim Koerper(1) As Body
Dim ref(3) As Reference
Sub Selektion()
Dim Was(0)
Was(0) = "Vertex"
' Selektion definieren und leeren
Dim UserSel As Selection
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear
' Selektion vornehmen lassen (Punkt 1)
Dim E As CATBSTR
E = UserSel.SelectElement2(Was, "StartPunkt für Schlauch wählen.", False)
If E = "Normal" Then
Set ref(0) = UserSel.Item(1).Reference
Else
MsgBox ("Abbruch")
End If
' Selektion freigeben
UserSel.Clear
...Selektion analog für weitere Punkte....
'3D - Werkzeug
Dim Fact As Factory
Set Fact = CoolingSystem.HybridShapeFactory
'Polyline erzeugen
Dim Polyline As HybridShapePolyline
Set Polyline = Fact.AddNewPolyline()
Polyline.InsertElement ref(0), 1 <-- schlägt fehl
Polyline.InsertElement ref(1), 2
Polyline.InsertElement ref(2), 3
Polyline.InsertElement ref(3), 4
SchlauchSet.AppendHybridShape Polyline
Wo liegt der Fehler, um über diese Referenzen eine Polyline ziehen zu können?
Wäre klasse, wenn ich darauf eine Antwort finden könnte.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP