Hallo,
ich möchte parallele Ebenen zu einem Achsensystem erstellen.
Das funktioniert ja mit folgendem Code für das Ursprungsachsensystem ohne Probleme:
Code:
Set OrgElements = acPart.OriginElements
Set oHybridShapePlaneYZ = OrgElements.PlaneYZ
Set oRefElement = acPart.CreateReferenceFromObject(oHybridShapePlaneYZ)
Set NewPln = oHybridShapeFactory.AddNewPlaneOffset(oRefElement, 1000.000000, False)
oGeoSet.AppendHybridShape NewPln
Nun möchte ich aber nicht das Ursprungsachsensystem referenzieren sondern ein neu erstelltes.
Dazu habe ich mit dem Markorecorder folgenden Code erstellt welcher auch macht was er soll.
Ich bin mir allerdings nicht sicher ob das immer und in jeder Catia Version funktionieren wird mit der langen Referenzangabe unter oRefElement?
Daher meine Frage: geht das auch eleganter?
Code:
oAxisSystem.PutXAxis Vector1
oAxisSystem.PutYAxis Vector2
acPart.UpdateObject oAxisSystemoAxisSystem.Name = "Planes"
oAxisSystem.IsCurrent = True
acPart.Update
Set oRefElement = acPart.CreateReferenceFromBRepName("FSur:(Face:(Brp:(Planes;2);None:();Cf14:());WithPermanentBody;WithoutBuildError;WithInitialFeatureSupport;MFBRepVersion_CXR29)", oAxisSystem)
Set NewPln = oHybridShapeFactory.AddNewPlaneOffset(oRefElement, 1000.000000, False)
oGeoSet.AppendHybridShape NewPln
Gruß
Michael
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP