---

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

---

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

---

Hallo Henry!

                Und dann die Suche durchgeführt, die Farben, die ich ändern müssen?

Vielen Danke

M.f.G

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

---

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

---

Hallo!

              Ich habe dieser Büch gekauft aber das problem ist gleich fúr dieser problem ich bestellt Hilfe.

M.f.G.

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

---

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

---

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