Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Einfärben von Elementen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Einfärben von Elementen (603 mal gelesen)
Tonga
Mitglied
CADM Prozesskommunikation, CAD Konstrukteur, Admin


Sehen Sie sich das Profil von Tonga an!   Senden Sie eine Private Message an Tonga  Schreiben Sie einen Gästebucheintrag für Tonga

Beiträge: 214
Registriert: 23.01.2004

erstellt am: 23. Feb. 2006 08:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Testmakro.txt

 
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



Sehen Sie sich das Profil von Lusilnie an!   Senden Sie eine Private Message an Lusilnie  Schreiben Sie einen Gästebucheintrag für Lusilnie

Beiträge: 1486
Registriert: 13.07.2005

erstellt am: 23. Feb. 2006 21:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Tonga 10 Unities + Antwort hilfreich

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.Selection

Selection1.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 ansehenWeitere: Ingenieure und technische Berufe
Tonga
Mitglied
CADM Prozesskommunikation, CAD Konstrukteur, Admin


Sehen Sie sich das Profil von Tonga an!   Senden Sie eine Private Message an Tonga  Schreiben Sie einen Gästebucheintrag für Tonga

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz