---

Hallo zusammen,

ich habe ein MAkro, mit dem ich in CATIA alles was in Farbe Magenta dargestellt ist selektieren, kopieren und in ein Set einfügen kann, das "output" heißt - der Erste Teil Selection 1 und 2.

Jetzt wollte ich das Makro erweitern um die Farbe blau. Alles was blau ist soll in das Set "Extern" kopiert werden, und da mag das Makro nicht mehr.

Wo ist der Fehler?

Sub CATMain()

set Selection1 = CATIA.ActiveDocument.Selection     
selection1.Search "Color='(255,0,255)',all"
selection1.Copy     

set Selection2= CATIA.ActiveDocument.Selection     
selection2.Search "Name='Output',all"
selection1.paste

set Selection3 = CATIA.ActiveDocument.Selection     
selection3.Search "Color='(0,0,255)',all"
selection3.Copy     

set Selection4= CATIA.ActiveDocument.Selection     
selection4.Search "Name='Extern',all"
selection3.paste
     

End Sub

Danke udn Grüße

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

---

Hallo Tweety,

trag bitte Deine Arbeitsumgebung ins cad.de-Profil ein.

Zum Thema:

Probier's mal so:

Code:

---

Sub CATMain()

set Selection1 = CATIA.ActiveDocument.Selection   
selection1.Search "Color='(255,0,255)',all"
selection1.Copy   

set Selection2= CATIA.ActiveDocument.Selection   
selection2.Search "Name='Output',all"
selection1.paste
selection1.clear
selection2.clear

set Selection1 = CATIA.ActiveDocument.Selection   
selection1.Search "Color='(0,0,255)',all"
selection1.Copy   

set Selection2= CATIA.ActiveDocument.Selection   
selection2.Search "Name='Extern',all"
selection1.paste
selection1.clear
selection2.clear

End Sub

---

Ich hab jetzt bewusst auf alle Dims etc. verzichtet um 'im Stil' zu bleiben.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi Joe,

danke, funktioniert super.
Bei mir aber nur,w enn ich die Sets in dem 5P drin habe, wo sich die zu selektierende Geometrie befindet.
Wenn ich die Sets in einem neu hinzugefügten Part drin habe, wird nur das erste Set befüllt und beim zweiten kommt eine Fehlemeldung - das macht er dann nicht mehr.

LG

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

---

Hi Tweety,

also:

Zitat:

---

w enn ich die Sets in dem 5P drin habe, wo sich die zu selektierende Geometrie befindet

---

'5P'? Versteh ich nicht.

Jetzt wär's vielleicht mal Zeit zu erklären, was Du wirklich vorhast!
Willst Du innerhalb zweier CatParts (in zwei verschiedenen Fenstern) Elemente in Sets kopieren?
Oder innerhalb eines Produktes?

Ausserdem: Bitte Systeminfo eintragen. Ich will wissen, womit Du programmierst(VBA, Catscript, VB, VB.net).

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi,

ich weiß nciht wo ich das eintragen muss, hab dort unter Profil nichts mit Systeminfo gefunden. Womit ich rumhantiere ist CATScript.

Mein Umgebung für ds Macro: ich habe eine ST. indieser Struktur befinden sich verschiedenen Parts ( 5P ).
in jedem 5P befinden sich irgend welche Schnitte oder einzelnen Flächen in verschiedenen Farben.

Was ich brauche: ich füge in die ST eine neues, leeres 5P, füge dort zwei GeoSets ein.
Jetzt suche ich in all den 5Ps oben nach Geometrie in magenta und blau und kopiere diese Geometriene in die beiden Sets des neuen 5P.

Grüße

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

---

Servus
So einfach wie du dir das vorstellst geht das nicht.
Geht es den manuell so?
Willst du im Baugruppenkontext die Geometrien kopieren? Dann schau dir mal dazu die großen Beträge dazu an (zB nach "kontext" oder "Copy&Paste" suchen).

Gruß
Bernd

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

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

---

ProfilBearb.PNG

Hi Tweety,

Eintragen: siehe Bild

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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