---

Also ich hab mal wieder ein kleines Problem und zwar will ich eine neue Ebene auf eine auswählbare Seite eines Quaders legen. Bis jetzt sieht das ganze so aus:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

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 closeSurface1 As CloseSurface
Set closeSurface1 = shapes1.Item("CloseSurface.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(CloseSurface.1;(Brp:(GSMBiDim.1;1)));None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFB RepVersion_CXR15)", closeSurface1)

Dim hybridShapePlaneOffset1 As HybridShapePlaneOffset
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(reference1, 0#, True)

body1.InsertHybridShape hybridShapePlaneOffset1

part1.InWorkObject = hybridShapePlaneOffset1

part1.Update

End Sub

---

Das Problem ist hierbei aber das man die Seite nicht frei wählen kann sondern immer auf eine "vorgeschriebene" Seite 1 eine neue Ebene gelegt wird.

Vermutlich muß ich das ja mit einer "selectElement2" abfrage machen und ihm die angewählte "face" übergeben aber ich bekomms einfach nicht hin 

hoff mir kann jemand weiter helfen.

Mfg Danny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Danny,

ich würde dich gerne auf diesen Beitrag verweisen: Face durch SelectElement2 bestimmen (kommt bekannt vor?).
Du brauchst einfach die Zeilen "dim reference1" und "set reference1" umbauen. Der Code von anderen Beitrag müsste funktionieren, brauchst eigentlich nur der Teil bis 'Mittelpunkt.

Gruß,
Zoltan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP