Hallo,
wenn man bei einem Solid-klotz manuel die Ecken einer Fläche verrundet geht dies wunderbar.
Wenn man dies per Makro aufnimmt und dies durchlaufen lässt bleiben die radien sichtbar.
Diese Radien hängen unter dem Body und nicht unter dem Klotz (siehe parent children)
Wenn man jetzt viele fillets automatisch erstellt bleiben immer die Radien sichtbar, die man einzeln
manuell ausblenden muss.
Die Elemente heissen zum Beispiel MFparameter.2.
Sie sind bisher über keine Mölichkeit ansprechbar.
Habt ihr eine Idee?
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromName("")
Dim constRadEdgeFillet1 As ConstRadEdgeFillet
Set constRadEdgeFillet1 = shapeFactory1.AddNewSolidEdgeFilletWithConstantRadius(reference1, catTangencyFilletEdgePropagation, 5#)
constRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("PartBody")
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim constRadEdgeFillet2 As ConstRadEdgeFillet
Set constRadEdgeFillet2 = shapes1.Item("EdgeFillet.1")
Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("RSur Face Brp Pad.1);None );Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", constRadEdgeFillet2)
constRadEdgeFillet1.AddObjectToFillet reference2
part1.Update
End Sub
------------------
------------------------
warum immer so schwer
[Diese Nachricht wurde von Peter Müller3 am 20. Jun. 2019 editiert.]
[Diese Nachricht wurde von Peter Müller3 am 20. Jun. 2019 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP