Leider kann ich die Richtungen nicht miteinander vergleichen.
Hat jemand einen Rat?
Hier mein Programm, daas nicht funktioniert!
Dim Rundung As ConstRadEdgeFillet
Set Rundung = Werkzeugkasten.AddNewSurfaceEdgeFilletWithConstantRadius(Nothing, catTangencyFilletEdgePropagation, 38#)
Rundung.FilletBoundaryRelimitation = -1
Dim Kantenzaehler As Integer
Dim Kante As AnyObject
Dim Kanten_Selektion As Selection
Set Kanten_Selektion = Bauteildokument.Selection
Dim Richtung1 As HybridShapeDirection
Set Richtung1 = Flaechenwerkzeugkasten.AddNewDirection(Auszugsrichtung)
Dim Richtung2 As HybridShapeDirection
Kanten_Selektion.Clear
Kanten_Selektion.Add Nutauszug
Kanten_Selektion.Search "Topology.CGMEdge,sel"
Kantenzaehler = Kanten_Selektion.Count
For i = 1 To Kantenzaehler
Set Kante = Kanten_Selektion.Item(i)
Set Kante = GeometrieObjekt.Value
If Richtung1.DirectionSpecification = Richtung2.DirectionSpecification Then
Rundung.AddObjectToFillet Kante
Rundung.EdgePropagation = catTangencyFilletEdgePropagation
Rundung.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation
Rundung.FilletTrimSupport = catTrimFilletSupport
'End If
Next
Werkzeug.Update
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP