Autor
|
Thema: Kugeln eines geometrischen Sets umfärben (1969 mal gelesen)
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 29. Mrz. 2010 17:28 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich würde gerne die Kugeln eines geometrischen Sets automatisch umfärben. Mir fehlt jedoch hierfür der Befehl. Mit Record Macro erhalte ich nur ein leeres Skript wenn ich über die Properties der Kugel die Farbe ändere. Hat hier jemand vielleicht einen Tip mit welcher Funktion ich an meinen Hybridbody ran muss? Vielen Dank im Voraus!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian.O Mitglied Konstrukteur
Beiträge: 1212 Registriert: 17.07.2009 Celsius-Mobile H720 i7-3840QM 32 Gb Arbeitsspeicher 256 Gb SSD Quadro K2000M Windows 7 Professional (64 Bit) Catia V5R19 (64 Bit) SpacePilot Pro
|
erstellt am: 29. Mrz. 2010 17:59 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
Servus, ich würde es über eine Suchfunktion Dim Auswahl As Selection Set Auswahl = CATIA.ActiveDocument.Selection Auswahl.Search "'Generative Shape Design'.Sphere; all" Auswahl.VisProperties.SetRealColor 255, 0, 255, 1 Auswahl.Clear oder über eine Auswahl realisieren: Dim Auswahl As Selection Dim Sphere (0) Sphere (0) = "HybridShapeSphere" Dim Sphereauswahl As CATBSTR Set Auswahl = CATIA.ActiveDocument.Selection Sphereauswahl = Auswahl.SelectElement2 (Sphere, "Wählen Sie eine Kugel aus", False) Auswahl.VisProperties.SetRealColor 255, 0, 255, 1 Auswahl.Clear ------------------ Mit freundlichen Grüßen aus Tirol Christian Obholzer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 30. Mrz. 2010 16:16 <-- editieren / zitieren --> Unities abgeben:
Dank für die Antwort. Jetzt habe ich mal ne sau blöde Frage. Kann es sein, dass es in VisualBasic eine Autokorrektur gibt, die mir mein Skript zerschießt? Ich kann keine Variable vom Typ Selection erzeugen. VB ersetzt das große S durch ein kleines und sagt dann beim Kompilieren "benutzerdefinierter Typ nicht definiert. ??? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian.O Mitglied Konstrukteur
Beiträge: 1212 Registriert: 17.07.2009 Celsius-Mobile H720 i7-3840QM 32 Gb Arbeitsspeicher 256 Gb SSD Quadro K2000M Windows 7 Professional (64 Bit) Catia V5R19 (64 Bit) SpacePilot Pro
|
erstellt am: 30. Mrz. 2010 16:26 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
|
Lusilnie Mitglied
Beiträge: 1486 Registriert: 13.07.2005
|
erstellt am: 31. Mrz. 2010 01:01 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
Hallo SaftLaden, das Problem hat nichts mit Groß- oder Kleinschreibung zu tun. Diese ist versionsabhängig, die Fehlermeldung aber nicht. Du musst im VBA die 'Selection' entweder ohne Typ oder als Typ 'Object' definieren, dann gibt es keine Fehler! Als Info: Dazu gab es schon einige Diskussionen hier im Forum! mfg, Lusilnie
------------------ Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!! frei nach größeren Geistern Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 31. Mrz. 2010 09:29 <-- editieren / zitieren --> Unities abgeben:
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 31. Mrz. 2010 09:41 <-- editieren / zitieren --> Unities abgeben:
Jetzt muss ich aber doch noch ganz frech nachfragen, ob Du mir einen Link zu einem Thema schicken kannst? Irgendwie finde ich nichts entsprechendes zum Thema Typdefinition in VBA. Vielen Dank im Voraus! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
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: 31. Mrz. 2010 09:46 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 31. Mrz. 2010 10:26 <-- editieren / zitieren --> Unities abgeben:
Also irgendwie stehe ich immer noch voll auf dem Schlauch. Ich habe meherere Kugeln innerhalb eines Geometrischen sets. Dies Kugeln soll automatisch ein ganz spezifische Farbe aus einer Excelltabelle zugewiesen werden. Ich habe also genauso viele Zeilen in meiner Excelltabelle wie Kugeln. Mein Plan war eine Kugel nach der anderen durch das Skript zu automatisiert zu selektieren und dann auf diese selection die SetRealColor Funktion anzuwenden. Dim Auswahl As Object 'Auswahl der Kugel im Geometrischen Set. myHBody bereits zuvor erzeugt. Diese Kugel wird an Auswahl übergeben Set Auswahl = myHBody.HybridShapes.Item(iLigne) 'Anschließen die Kugel an die Selectionsliste übergeben CATIA.ActiveDocument.Selection.Add (Auswahl) Danach einfärben.. Irgendwie geht da gar nichts.... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
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: 31. Mrz. 2010 12:43 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 31. Mrz. 2010 13:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Daniel, dachte ich würde das einfach hinbkommen. Nächstes mal beschreibe ich gleich vollständig, was ich vorhabe Vielen, vielen Dank für das Beispielfile!! Problem mit dem CATvba file ist, dass ich es momentan nich öffnen kann. Glaube ich muss hierfür erst als Admin VBA für CATIA registrieren, oder? Grüße! [Diese Nachricht wurde von SaftLaden am 31. Mrz. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
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: 01. Apr. 2010 08:07 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 01. Apr. 2010 08:38 <-- editieren / zitieren --> Unities abgeben:
|
SaftLaden Mitglied
Beiträge: 32 Registriert: 16.04.2009
|
erstellt am: 01. Apr. 2010 08:40 <-- 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: 01. Apr. 2010 19:00 <-- editieren / zitieren --> Unities abgeben: Nur für SaftLaden
|