Autor
|
Thema: Einfärben von Elementen (603 mal gelesen)
|
Tonga Mitglied CADM Prozesskommunikation, CAD Konstrukteur, Admin
Beiträge: 214 Registriert: 23.01.2004
|
erstellt am: 23. Feb. 2006 08:59 <-- editieren / zitieren --> Unities abgeben:
Einen wunderschönen Guten Morgen an alle Makro Programmierer, ich hoffe mir kann einer bei meinen folgenden Problem helfen, für einen erfahrenen Makroprogrammierer dürfte das ein klacks sein. Hab über die Makroaufzeichnung mein Makro erstellt, das auch mit ein paar kleine Modifizierungen jetzt ganz gut läuft. Nur jetzt will ich noch einige Elemente wie z.B.: eine Ebene umfärben Und das hab ich nicht hinbekommen da meine Makrokenntnisse sehr begrenzt sind. BITTE, BITTE helft mir weiter Hab mal ein Bsp. als Anhang hingehängt, kann mir einer die paar Zeilen die ich zum färben benötige erstellen? Die Farbe soll 0,255,255 sein Vielen DANKE Gruß Tonga Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lusilnie Mitglied
Beiträge: 1486 Registriert: 13.07.2005
|
erstellt am: 23. Feb. 2006 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für Tonga
Hallo Tonga, hast du ein Glück, daß ich so etwas ähnliches heute gemacht habe! Wenn ich mich recht erinnere, mußt Du die folgenden Zeilen zwischen "part1.Update" und "End Sub" einfügen:
Code:
Dim Selection1 As Selection 'bei Fehler Object anstelle Selection! Set Selection1 = partDocument1.SelectionSelection1.Clear Selection1.Add hybridShapePlaneOffset1 Selection1.VisProperties.SetVisibleColor 0,255,255,0
mfg, Lusilnie
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Packaging Expert (m/w/d) | Wir sind ein agiles Gesundheitsunternehmen, das sich rasant weiterentwickelt und verändert. Wir bieten Dir in Frankfurt, Hamburg und Bielefeld Jobs mit Sinn. Bei uns hast Du viel Gestaltungsfreiraum und Eigenverantwortung sowie die Möglichkeit, einen Beitrag zur Verbesserung der Lebensqualität von Menschen zu leisten. Well-Health. For Everyone. WindStar Medical steht für Well-Health: Health, Well-Being und Beauty aus einer Hand.... | Anzeige ansehen | Weitere: Ingenieure und technische Berufe |
|
Tonga Mitglied CADM Prozesskommunikation, CAD Konstrukteur, Admin
Beiträge: 214 Registriert: 23.01.2004 Catia V5 R6-R26 NX 7-11 SmarTeam 16-21 Teamcenter 10-11
|
erstellt am: 28. Feb. 2006 08:22 <-- editieren / zitieren --> Unities abgeben:
Hi Lusilnie, ich danke dir vielmals für deine Hilfe!!! Hat so geklappt wie du es geschrieben hast. Meine anderen Elemente konnte ich alle nach der selben Methode einfärben. Du bist spitze!!! 10 U's für Dich Gruß Tonga PS.: Schönen Faschingsdienstag Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|