Autor
|
Thema: Farbe Ändert (2343 mal gelesen)
|
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 27. Feb. 2013 15:47 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich habe dieses Makro, um einige dieser Farben grau CATIA, der erste auch der Rest nicht tut, kann mir helfen zu ändern. Wo habe ich den Fehler. Code:Language="VBSCRIPT" '-------------------------------------------------------------------------------------------------- ' ================================================================================================= ' NOMBRE MACRO: Cambiar_color_MULTICOLOR_RGB-gris_STD_V1.CATScript ' ' Versión: V 1.0 Febrero 2013 ' ' PROPUESTA: Esta macro cambia los colores Aritex Azul RGB (23,71,133), Gris ARITEX RGB (169,178,173) ' Verde claro RGB (0,255,0), Verde oscuro RGB (0,128,64), Amarillo RGB (244,226,90) y ' Blanco RGB (255,255,255) a color gris STD-CATIA RGB (210,210,255). ' OBSERVACIONES: ' ' MODO DE EMPLEO: Ejecución directa con un click. ' ' CATIA Level: V5R18 ' ' Autor: Creado por M. de los Heros, DH&D, s.l. ' ================================================================================================= '-------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------ ' Procedimiento CATMain '------------------------------------------------------------------------ ' Seleccionar todo lo que esta en colores ' y pasarlo al color Gris STD CATIA (210,210,255) ' ------------------------------------------------------------------------ Sub CATMain() '------------------------------------------------------------------------ ' Alles selektieren, dessen Farbe (23,71,133), (169,178,173), ' (0,255,0), (0,128,64), (244,226,90), und/oder (255,255,255) '------------------------------------------------------------------------ On Error GoTo 0 Dim selection1 As Object 'Color Azul RGB (23,71,133) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(23,71,133)',all" 'Color Gris ARITEX RGB (169,178,173) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(169,178,173)',all" 'Color Verde claro RGB (0,255,0) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(0,255,0)',all" 'Color Verde oscuro RGB (0,128,64) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(0,128,24)',all" 'Color Amarillo RGB (244,226,90) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(244,226,90)',all" 'Color Blanco RGB (255,255,255) Set selection1 = CATIA.ActiveDocument.selection selection1.Search "Color='(169,178,173)',all" '------------------------------------------------------------------------ ' Aktuelle Farbe in Grau STD CATIA (210,210,255) ändern '------------------------------------------------------------------------ Dim visPropertySet1 As VisPropertySet Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetRealColor 210,210,255,1 End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HoBLila Mitglied Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx
Beiträge: 1118 Registriert: 29.05.2008 DELL PRECISION T3500 Intel(R) Xeon(R) CPU W3540 @ 2.93GHz 12285 MB RAM NVIDIA Quadro FX 1800 Microsoft Windows 7 Enterprise Service Pack 1 CATIA V5 R19 SP09 HF69 VB6.5 CAA RADE CDC
|
erstellt am: 27. Feb. 2013 17:15 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
Du veränderst mit jeder Deiner Suchen den Inhalt der Selection, also musst Du nach jeder Suche, den Inhalt auf Grau ändern und nicht nur nach der letzten Suche. ------------------ Mit freundlichen Grüßen, Henry Schneider alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren: Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen, die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 27. Feb. 2013 17:24 <-- editieren / zitieren --> Unities abgeben:
|
HoBLila Mitglied Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx
Beiträge: 1118 Registriert: 29.05.2008 DELL PRECISION T3500 Intel(R) Xeon(R) CPU W3540 @ 2.93GHz 12285 MB RAM NVIDIA Quadro FX 1800 Microsoft Windows 7 Enterprise Service Pack 1 CATIA V5 R19 SP09 HF69 VB6.5 CAA RADE CDC
|
erstellt am: 28. Feb. 2013 11:20 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
Hä? Ich wäre auch der englischen Sprache mächtig, wenn das hilft. Es ist doch aber auch nicht so schwer... Und auch nicht Deine erste Frage hier... Bitte kauf und lese Bücher über Makroprogrammierung. ------------------ Mit freundlichen Grüßen, Henry Schneider alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren: Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen, die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 28. Feb. 2013 11:40 <-- editieren / zitieren --> Unities abgeben:
|
tberger Mitglied Application Manager CATIA V5 / V6
Beiträge: 1385 Registriert: 13.01.2007 WIN 7 64bit V5R21SP3HF49 3DX/V6 R2016x
|
erstellt am: 28. Feb. 2013 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
Hallo xyon, wie mein Vorredner schon schrieb musst du entweder die Farbe nach jeder Einzelsuche nach grau ändern oder du musst eine kombinierte Suche machen mit "oder" und die so mehr erhaltenen Elemente dann zuletzt einfärben. Set selection1 = CATIA.ActiveDocument.selection Dim visPropertySet1 As VisPropertySet Set visPropertySet1 = selection1.VisProperties 'Color Azul RGB (23,71,133) selection1.Search "Color='(23,71,133)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Gris ARITEX RGB (169,178,173) selection1.Search "Color='(169,178,173)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Verde claro RGB (0,255,0) selection1.Search "Color='(0,255,0)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Verde oscuro RGB (0,128,64) selection1.Search "Color='(0,128,24)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Amarillo RGB (244,226,90) selection1.Search "Color='(244,226,90)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Blanco RGB (255,255,255) selection1.Search "Color='(169,178,173)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear ------------------ Grüße aus dem Thurgau Thomas +++++++++++++++++++++++++++++++++ CATIA - eine Laune der Natur ... [Diese Nachricht wurde von tberger am 28. Feb. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 28. Feb. 2013 13:30 <-- editieren / zitieren --> Unities abgeben:
Hallo tberger! Vielen, Vielen Danke! Ich habe gesehen who mein fehler ist, Das ist die Selection1.clear und jede Farbe separat gemacht. Ich habe korrigieren kleine Fehler von dein Code un Jetz funktioniert perfekt: Code: Sub CATMain() '------------------------------------------------------------------------ ' Seleccionar todo lo que esta en color gis STD CATIA (210,210,255) '------------------------------------------------------------------------ 'On Error GoTo 0 Set selection1 = CATIA.ActiveDocument.selection Dim visPropertySet1 As VisPropertySet Set visPropertySet1 = selection1.VisProperties 'Color Azul RGB (23,71,133) selection1.Search "Color='(23,71,133)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Gris ARITEX RGB (169,178,173) selection1.Search "Color='(169,178,173)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Verde claro RGB (0,255,0) selection1.Search "Color='(0,255,0)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Verde oscuro RGB (0,128,64) selection1.Search "Color='(0,128,64)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Amarillo RGB (244,226,90) selection1.Search "Color='(244,226,90)',all" visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear 'Color Blanco RGB (255,255,255) selection1.Search "Color='(255,255,255)',all" '------------------------------------------------------------------------ ' Pasarlo al color Gris STD CATIA (210,210,255) '------------------------------------------------------------------------ visPropertySet1.SetRealColor 210,210,255,1 selection1.Clear End Sub
Vielen Dank
M.f.G. Manuel (xyon126) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|