Hallo Zusammen,
ich brauche euere Hilfe!
Ich versuche ein Drawing-Macro zu programieren, welches eine Ansicht mit Shading with edges erzeugt bzw. welches eine standard Ansicht umschält zu einer Ansicht mit Shading with edges.
Wie das ganze nachher grafisch ausehen sollte habe ich euch in einem Bild mit angehängt. (links standard Ansicht und linkts die Ansicht mit Shading with Edges)
Den Program-Code, welchen ich bereist erstellt habe, habe ich euch nachfolgend aufgeführt.
Dieser kann zumindest schon einmal die Standard Ansicht auf eine Raster ansicht umschalten (dies erfolgt mit dem Befehl catImageModeHRD).
Was ich habe nicht schaffe ist auf die Raster-Mode Optionen zuzgreinfen, wo ich die Ansicht auf Shading with Edges umschalten kann.
Das einizige was ich noch gefunden habe ist das enum RasterLevelOfDetail. Mit diesem lässt sich dann später die qualität der schatierung einstellen. Dazu müsste aber natürlich erst einmal die Option auf Schattierung gesetzt sein.
Kann mir jemand von euch helfen?
Vielen Dank euch schonmal.
PS: Ich habe euch noch ein zweites Bild angehängt, worauf die Optionen dargestellt sind, welche ich mit dem Macro umschalten möchte.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub CATMain()
'Auswahl des Aktiven DRW Dokuments
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
'Auswahl aller Seiten des Aktiven DRW Dokuments
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
'Auswahl der ersten Seite des Aktiven DRW Dokuments
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
'Auswahl aller Ansichten auf der ersten Seite des DRW Dokuments
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
'Auswahl aller Ansichten mit der Bezeichnung "Front view"
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Front view")
'Auswahl der aktiven "Front view" Ansicht
drawingView1.Activate
'Zuordnung der Farben in die aktive Ansicht----------------------------------------------
Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.ColorInheritanceMode = cat3DColorInheritanceModeOn
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
'----------------------------------------------------------------------------------------
'MyView.GenerativeBehavior.CatImageViewMode (catImageModeHRD)
Dim drawingViewGenerativeBehavior2 As DrawingViewGenerativeBehavior 'Definiert die Variable als Klasse der DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior2 = drawingView1.GenerativeBehavior 'Erzeugt ein Objekt der Klasse DrawingViewGenerativeBehavior in dem drawingView1 einthalten ist
drawingViewGenerativeBehavior2.ImageViewMode = catImageModeHRD '.Shading
Set drawingViewGenerativeBehavior2 = drawingView1.GenerativeBehavior
'Aktualisieren der ausgewählten Ansicht
drawingViewGenerativeBehavior1.ForceUpdate
drawingViewGenerativeBehavior2.ForceUpdate
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP