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