---

CAD_Frage_Annotation_link_Plane.JPG

Hallo Liebe Catia Programmierer Gemeinde,

Dies ist heute nun mein erster Beitrag hier.
Schon lange habe ich bei Euch gestöbert.
Sehr vielen Dank für so viele nützliche und hilfreiche Beiträge !!!

Heute habe ich nun ein Problem über welches ich bereits einen Tag ermittelte, leider jedoch nichts helfendes gefunden habe.

Ich möchte gerne eine 3D Ansicht erstellen, die assoziativ zu der erzeugenden Ebene "VorderansichtEbene.1 ist.
Hat von euch jemand eine Idee was ich vergessen oder falsch gemacht habe? Anbei ein Bild zur Verdeutlichung.
Vielen Dank im Voraus....

Anbei mein Code:

Option Explicit

Sub CATMain()

Dim MaProductDoc As ProductDocument
Set MaProductDoc = CATIA.ActiveDocument

Dim MaProduct As Product
Set MaProduct = MaProductDoc.Product

Dim HauptadapterDoc As PartDocument
Set HauptadapterDoc = MaProductDoc.Product.Products.Item(1).ReferenceProduct.Parent

Dim Hauptadapter As Part
Set Hauptadapter = HauptadapterDoc.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = Hauptadapter.HybridBodies

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = Hauptadapter.HybridShapeFactory

Dim hybridBodyEbene As HybridBody
Set hybridBodyEbene = hybridBodies1.Item("AnsichtenEbene")

Dim annotationSets1 As AnnotationSets
Set annotationSets1 = Hauptadapter.AnnotationSets

Dim annotationSet1 As AnnotationSet
Set annotationSet1 = annotationSets1.Add("ISO")

'---Ebene Gleichung erstellen---------------------
Dim hybridShapePlaneEquation1 As HybridShapePlaneEquation
Set hybridShapePlaneEquation1 = hybridShapeFactory1.AddNewPlaneEquation(0, 1, 0, 50)

hybridBodyEbene.AppendHybridShape hybridShapePlaneEquation1
hybridShapePlaneEquation1.name = "VorderansichtEbene.1"

Hauptadapter.Update

'---3D Ansicht erstellen---------------------------
Dim viewFactory1 As TPSViewFactory
Set viewFactory1 = annotationSet1.TPSViewFactory

Dim view1 As TPSView
Set view1 = viewFactory1.CreateView(hybridShapePlaneEquation1, 1)

Hauptadapter.Update

End Sub

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