Autor
|
Thema: 3D-Bemassung Farbe ändern (1773 mal gelesen)
|
merlin74 Mitglied Informatiker
Beiträge: 118 Registriert: 09.03.2004 Dell Precision T3500, Catia R19, Windows 7 x64 SP1
|
erstellt am: 11. Sep. 2009 12:38 <-- editieren / zitieren --> Unities abgeben:
Hallo Miteinander, meine Kollegen haben Probleme die weiße Schrift auf weißem Hintergrund zu lesen und jetzt wollen sie von mir, dass die Schrift schwarz wird (als ob ich nichts besseres zu tun hätte). Jetzt mein Problem, kann mir jemand sagen, wie ich auf die 3D-Maße zugreifen kann. Objektauflösung dazu gibt es leider keine. Danke schon mal. Grüße Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AndreasNilli Mitglied MaschBau, 6.Sem
Beiträge: 22 Registriert: 09.09.2009
|
erstellt am: 11. Sep. 2009 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für merlin74
Hallo. Sowas habe vor paar Tagen gemacht. Jeweils für engl. und deutsche Version (Dimensions/Bemaßungen) Müsste eigentl funktionieren.
Code: Sub CATMain()Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = partDocument1.Selection selection1.Search "(Name=*dimension* + Name=*bemaßung*),all" Dim visPropertySet1 As VisPropertySet Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetRealColor 0, 0, 0, 0 selection1.Clear MsgBox ("Fertig!") End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
merlin74 Mitglied Informatiker
Beiträge: 118 Registriert: 09.03.2004 Dell Precision T3500, Catia R19, Windows 7 x64 SP1
|
erstellt am: 11. Sep. 2009 13:28 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, das ist richtig, dass müsste funktionieren. Aber was mache ich, wenn die Bemaßung mal nicht mehr Bemaßung heißt? Oder wenn es eine Form- und Lagetoleranz ist. Man muss doch irgendwie allgemein nach solchen Elementen suchen können. Grüße Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AndreasNilli Mitglied MaschBau, 6.Sem
Beiträge: 22 Registriert: 09.09.2009
|
erstellt am: 11. Sep. 2009 13:46 <-- editieren / zitieren --> Unities abgeben: Nur für merlin74
Achso. Ich selbst kenne mich noch nicht so gut aus. Bin in der Kennenlernphase. Sorry Bei uns wird eine 3D-Bemaßung automatisch in einer Liste eingetragen, die Dimensions bzw Bemaßungen heißt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zoltan.bekesi Mitglied
Beiträge: 321 Registriert: 22.10.2006 Job: CATIA V5R19 / XP 32bit MS Office 2003 Microstation V8 2004 Edition DELL Precision M6300
|
erstellt am: 11. Sep. 2009 17:49 <-- editieren / zitieren --> Unities abgeben: Nur für merlin74
Hallo, Selection.Search ist das selbe, wie Edit - Search. Dort könnt Ihr auch nach Datentyp suchen und den Suchstring einfach ins Makro setzen (oder nach der Suche selektieren und ohne Makro umfärben). Gruß, Zoltan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
merlin74 Mitglied Informatiker
Beiträge: 118 Registriert: 09.03.2004 Dell Precision T3500, Catia R19, Windows 7 x64 SP1
|
erstellt am: 14. Sep. 2009 08:23 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Miteinander, danke für deinen Tip Zoltan. Ich hatte das zwar schon mal gelesen, aber irgendwie wollte es nicht funktionieren. Nach deinem Hinweis hab ich es gerade noch mal probiert und siehe da, so funktioniert es: selection1.Search ("'Functional Tolerancing & Annotations'.Annotation;all") Grüße Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |