---

Hallo allesamt,
ich hab ein kleines problem und stehe auch irgendwie im schlauch und weiss nicht so genau woran es liegt.
Also, zum hintergrund. Ich habe ein programm geschrieben, welches versteifungen sucht und untersucht und am ende soll den versteifungen eine farbe zugewiesen werden.
Das überprüfen läuft soweit ganz gut. Mein problem ist, dass die farbe der ganzen selection zugewiesen wird, heisst entweder werden alle versteifungen grün oder alle werden rot.
ich hab versucht eine zweite selection anzulegen aber irgendwie endet auch da mein programmierwissen in diesem bereich 

ich hoffe ihr könnt mir weiterhelfen  

Dim Selection1 As Object
Set Selection1 = CATIA.ActiveDocument.Selection
Selection1.Search "CATPrtSearch.Stiffener,all"

Dim vispropertyset1 'As VisPropertySet
Dim T, Z, U As Integer

For i = 1 To Selection1.Count


Set Versteifung1 = Selection1.Item2(i).Value
T = Versteifung1.Thickness.Value
Set oSelection = CATIA.ActiveDocument.Selection
oSelection.Search "CATPrtSearch.Stiffener,Versteifung1.Name"

Z = T/HT.Value
U = HT.Value * 2

If Z <= 2 Then
Check.Value = "OK"
oSelection.VisProperties.SetRealColor  60, 255, 3, 1 'GRÜN
Else
Check.Value = "FAIL"
oSelection.VisProperties.SetRealColor 255,0,0,255 'ROT
End If

das ist ein Teil des Programms, wollte jetzt nicht alles hochladen, da es schon etwas länger ist  

[Diese Nachricht wurde von hasn69 am 09. Apr. 2015 editiert.]

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

---

Servus
Es gibt nur eine Selektion in einem Dokument.
Du musst also die Versteifungen zwischenspeichern (zB Collection, Array,).
Ggf legst du je eine Collection für rote und grüne Versteifungen an. Selektierst diese und färbst diese um.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hey, danke erst mal für deine schnelle antwort.
kannst du mir das vielleicht anhand eines beispiels erläutern?
ich hab zwar verstanden, was ich machen soll. aber ich weis nicht wie ich es umsetzen kann 

vielen dank schon mal für die hilfe 

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

---

Na, es gibt schon hier einige Bsp bezüglich Collection, bzw. das Erstellen eines neuen Arrays

http://ww5.cad.de/index.php/CATIA%20V5% 20Programmierung/?research=Collection&category=&forum=137&member=&opt=&docs=&solved=&ord=&style=

vielleicht hilft auch schon

http://ww3.cad.de/foren/ubb/Forum137/HTML/005306.shtml#000010

ansonsten durchackern   -kann ja nicht schaden.

[Diese Nachricht wurde von Thomas Harmening am 09. Apr. 2015 editiert.]

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

---

Ich DANKE DIR HERR HARMENING und verneige mich.
Wie gesagt, ich war so neben der Spur, dass ich nicht mal mehr wusste wie ich suchen soll.
Das Programm läuft und es funzt suuuuuper!
Danke, danke, danke. Ihr seid die besten       

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