Autor
|
Thema: 3dColor Eigenschaft in View (288 mal gelesen)
|
MarcDe Mitglied
Beiträge: 137 Registriert: 11.10.2006 CATIA R18 SP2, BN 18, HF 162 Win 7 64Bit
|
erstellt am: 20. Jul. 2009 19:12 <-- editieren / zitieren --> Unities abgeben:
|
DanielFr. Moderator Manager
Beiträge: 2506 Registriert: 10.08.2005 HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3
|
erstellt am: 20. Jul. 2009 20:06 <-- editieren / zitieren --> Unities abgeben: Nur für MarcDe
Hallo Mark, nichts leichter als das Code:
Sub CATMain() Dim oDoc As Document Dim oSheets As DrawingSheets Dim oSheet As DrawingSheet Dim oViews As DrawingViews Dim myView As DrawingView Set oDoc = CATIA.ActiveDocument Set oSheets = oDoc.Sheets Set oSheet = oSheets.ActiveSheet Set oViews = oSheet.Views Set myView = oViews.Item(3) 'Erste View im Strukturbaum!!! 'Hier wird die 3D Farbe bestimmt myView.GenerativeBehavior.ColorInheritanceMode = cat3DColorInheritanceModeOn 'Das ist wichtig den hiermit übernimmst du die Änedrung auf die View oSheet.ForceUpdate End Sub
------------------ MFG Daniel Die KATJA ist halt doch nur ne zickige Französin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MarcDe Mitglied
Beiträge: 137 Registriert: 11.10.2006 CATIA R18 SP2, BN 18, HF 162 Win 7 64Bit
|
erstellt am: 20. Jul. 2009 20:13 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|