| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Alfatech wählt ZW3D für bessere Lötpaletten für die Leiterplattenindustrie |
Autor
|
Thema: Buttons für Hintergrund Farbwechsel (18681 mal gelesen)
|
50cent Mitglied Konstrukteur; CAD Admin
Beiträge: 69 Registriert: 23.10.2008 Inventor Pro. 2017 Vault 2017 pro Win10 64x Quadro K4000
|
erstellt am: 13. Jan. 2012 10:26 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11223 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 13. Jan. 2012 10:37 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
50cent Mitglied Konstrukteur; CAD Admin
Beiträge: 69 Registriert: 23.10.2008 Inventor Pro. 2017 Vault 2017 pro Win10 64x Quadro K4000
|
erstellt am: 13. Jan. 2012 10:39 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
EKW Mitglied Dipl.-Ing. Maschinenbau & IWE|Entwicklung & Konstruktion von Baumaschinenwerkzeugen
Beiträge: 185 Registriert: 12.09.2011 WorkStation: Intel Xeon E-2276M @2.80-4.70 GHz|K6/T12 64.00 GB RAM Win 7/64 Bit NVidia Quadro RTX 5000 ~ Dargestellt auf: 2 x 32" EIZO EV3285-BK ---- Autodesk Product Design Suite Ultimate 2012 Autodesk Product Design Suite Ultimate 2014 Autodesk Product Design Suite Ultimate 2017 Product Design & Manufacturing Collection 2020 Product Design & Manufacturing Collection 2023
|
erstellt am: 13. Jan. 2012 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11223 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 13. Jan. 2012 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
MacFly8 Ehrenmitglied Konstrukteur Kessel- & Feuerungsbau
Beiträge: 1988 Registriert: 13.08.2007 HP Z17; 64GB RAM; Nvidia Quadro RTX3000; Inventor Professional PDSU 2012/2020 Mechanical 2012/2020
|
erstellt am: 13. Jan. 2012 20:07 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
-edit- ------------------ - - - der Erleuchtung ist es egal wie du Sie erlangst - - - - - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer) [Diese Nachricht wurde von MacFly8 am 13. Jan. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RODER Mitglied Maschineningenieur
Beiträge: 494 Registriert: 04.01.2003 Inventor 2023 Pro Win10 64Bit i9-10900K 3.7GHz 64GB RAM Nividia Quadro P2200 SpaceMouse
|
erstellt am: 16. Jan. 2012 08:31 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Versuch mal diese Zeile. ThisApplication.ColorSchemes.IconsColor = kAmberColorTheme Den Farbwechsel der buttons weglassen hab ich noch nicht herausgefunden. Aber das Zurückstellen schon ------------------ Grüsse, Toni Rechtschreibefehler gehören dem findigen Finder Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
EKW Mitglied Dipl.-Ing. Maschinenbau & IWE|Entwicklung & Konstruktion von Baumaschinenwerkzeugen
Beiträge: 185 Registriert: 12.09.2011 WorkStation: Intel Xeon E-2276M @2.80-4.70 GHz|K6/T12 64.00 GB RAM Win 7/64 Bit NVidia Quadro RTX 5000 ~ Dargestellt auf: 2 x 32" EIZO EV3285-BK ---- Autodesk Product Design Suite Ultimate 2012 Autodesk Product Design Suite Ultimate 2014 Autodesk Product Design Suite Ultimate 2017 Product Design & Manufacturing Collection 2020 Product Design & Manufacturing Collection 2023
|
erstellt am: 16. Jan. 2012 17:34 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Funktioniert schonmal Wenn er es natürlich von Anfang an die Farbe nicht ändern würde, wäre das von Seiten der Zeitersparnis noch besser, denn das Symbolfarbthema zu ändern dauert irgendwie am längsten vom ganzen Umswitchen. Viele Grüße,
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HaPeBe Mitglied Kontrukteur
Beiträge: 99 Registriert: 14.01.2008 Firma: Inventor 2016 64bit Windows 7 Professional Intel Core i7 3,4GHz 16GB RAM Grafikkarte NVidea Quatro 600 Privat: Inventor 2013 64bit Windows 7 Professional Intel Core i7 2,4GHz 16GB RAM Grafikkarte NVidea Geforce GTX auf Medion Erazor
|
erstellt am: 18. Jan. 2012 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
------------------------------------------------- hi daywa1k3r! Public Sub Background_Switch() If ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType Then ThisApplication.ColorSchemes.Item("Präsentation").Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType Else ThisApplication.ColorSchemes.Item("Himmelblau").Activate ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType End If End Sub ---------------------------------------------------------- Hallo Zusammen, das Makro funktionier prima, nur noch eine Frage: Wie stelle ich die Farben ein. Anstatt Himmelblau hatte ich gerne einen schwarzen (Einstellungen Kontrastreich/einfarbig)? Danke für den Tip. danke im voraus! [/B][/QUOTE] ------------------ Theorie ist Marx Praxis ist Murks Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RODER Mitglied Maschineningenieur
Beiträge: 494 Registriert: 04.01.2003 Inventor 2023 Pro Win10 64Bit i9-10900K 3.7GHz 64GB RAM Nividia Quadro P2200 SpaceMouse
|
erstellt am: 18. Jan. 2012 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
HaPeBe Mitglied Kontrukteur
Beiträge: 99 Registriert: 14.01.2008 Firma: Inventor 2016 64bit Windows 7 Professional Intel Core i7 3,4GHz 16GB RAM Grafikkarte NVidea Quatro 600 Privat: Inventor 2013 64bit Windows 7 Professional Intel Core i7 2,4GHz 16GB RAM Grafikkarte NVidea Geforce GTX auf Medion Erazor
|
erstellt am: 18. Jan. 2012 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Hallo Toni, bei mir steht jetzt: Public Sub Background_Switch() If ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType Then ThisApplication.ColorSchemes.Item("Präsentation").Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType Else ThisApplication.ColorSchemes.Item("Kontrastreich").Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType End If End Sub nur komme ich vom Kontrastreichen nicht mehr zurück auf den Weißen - mir der Schaltfläche. Was ist hier flasch? Grüße HaPe ------------------ Theorie ist Marx Praxis ist Murks Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RODER Mitglied Maschineningenieur
Beiträge: 494 Registriert: 04.01.2003 Inventor 2023 Pro Win10 64Bit i9-10900K 3.7GHz 64GB RAM Nividia Quadro P2200 SpaceMouse
|
erstellt am: 18. Jan. 2012 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Zitat: Original erstellt von HaPeBe:bei mir steht jetzt: Public Sub Background_Switch() If ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType Then ThisApplication.ColorSchemes.Item("Präsentation").Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType Else ThisApplication.ColorSchemes.Item("Kontrastreich").Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType End If End Sub nur komme ich vom Kontrastreichen nicht mehr zurück auf den Weißen - mir der Schaltfläche. Was ist hier flasch? [/B]
Nun die If then Abfrage sucht nach "kGradientBackgroundType" und stellt dann etwas um. Da du aber bei beiden Einstellungen "kOneColorBackgroundType" hast wird die If then Schlaufe gar nie durchlaufen... Wenn dir das nicht klar ist rate ich dir dringendst die API Hilfe zu Rate zu ziehen bevor du zu viel mit Makros rumspielst. http://www.morecam.ch/inventor-api-programmierung.html
------------------ Grüsse, Toni Rechtschreibefehler gehören dem findigen Finder Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 18. Jan. 2012 14:38 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
svensonite Mitglied
Beiträge: 3 Registriert: 06.10.2006
|
erstellt am: 15. Nov. 2013 19:18 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Hallo, ich weiß, der letzte Beitrag ist schon eine Weile her. Aber ich habe mir das Makro noch ein bissel komfortabler gemacht. Das haben meine Kollegen auch gleich haben wollen - aber auch gleich Änderungswünsche geäußert. Jetzt meine Frage, da ich hier einfach nicht weiter komme. Wie lese ich die aktuell eingestellte Hintergrundfarbe in eine Variable, um diese zum Schluß wieder herzustellen? Das gleiche wäre auch für die Pixelangabe und der Pfadangabe interessant. Hier mal eine kleine Demo, damit man sieht, was ich meine. Grüße, Sven Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 17. Nov. 2013 00:47 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Zitat: Original erstellt von svensonite: Hallo,ich weiß, der letzte Beitrag ist schon eine Weile her. ...
Ein >8 Jahre alter Thread Code:
' Die Funktion speichert die Hintergrundeinstellungen, ' ändert diese, und stellt die gespeicherte Einstellungen ' wieder her ' 'Igor Zupevc, FX64, 17. Nov. 2013Public Sub HintergrundSpeichernUndZurueckstellen() Dim oColorScheme As Inventor.ColorScheme Set oColorScheme = ThisApplication.ActiveColorScheme Dim iBackgroundType As Long iBackgroundType = ThisApplication.ColorSchemes.BackgroundType MsgBox "Die alte Einstellungen gespeichert" ThisApplication.ColorSchemes.Item(1).Activate ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType MsgBox "Neue Einstellungen gesetzt" oColorScheme.Activate ThisApplication.ColorSchemes.BackgroundType = iBackgroundType MsgBox "Die alten Einstellungen wiederhergestellt" End Sub
------------------ Grüße Igor FX64 Software Solutions - Inventor Tools FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
svensonite Mitglied
Beiträge: 3 Registriert: 06.10.2006
|
erstellt am: 17. Nov. 2013 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Hallo Igor, danke für die schnelle Hilfe. Klappt wunderbar. Und auch nach 8 Jahren hift es einem ungemein. Musste nur bei der Auswahl des Farbschemas von "1" auf "7" wechseln, um einen weißen Hintergrund zu bekommen. ThisApplication.ColorSchemes.Item(7).Activate Hättest jetzt zufällig auch noch einen Tip wie ich den vom Benutzer eingegeben Pfad speichere damit man ihn nicht jedesmal neu eingeben muss? Zumindest solange bis Inventor geschlossen wird. Ich habe den Ordner Desktop ja schon als Vorgabe, da den jeder User auf seinem Rechner hat. Gruß, Sven
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 17. Nov. 2013 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
Hallo Sven, Die einfachste Möglichkeit wäre es die globalen Variablen zu benutzen. Diese werden außerhalb der Funktion definiert und behalten ihre Gültigkeit solange die Inventor Instanz läuft (sofern die Markos innerhalb des Applikationsprojekts definiert sind). So kannst du wenn dein Formular geladen wird den Wert der Variable „Pfad“ in die Text Eigenschaft deiner TextBox schreiben, und bevor dein Formular geschlossen wird (oder beim jeden Klick auf OK) wird der Text aus der Textbox in die Variable zurückgeschrieben. Desweiterem ist für mich nicht ersichtlich ob du für die Zusammensetzung deines Pfades die Umgebungsvariablen benutzt (Ordner Desktop hat für jeden Benutzer einen anderen Pfad). Wenn nicht solltest du es. Ebenso könntest du zum Beispiel den DisplayName benutzen um einen dokumentenspezifischen Pfad zu bilden (oder den Namen für die Screenshots automatisch zu bilden). Hier ein Beispiel: Code:
' Ein Beispiel für die Benutzung von ' globalen Variablen mit Inventor VBA ' ' Igor Zupevc, FX64, 17.11.2013Global Path As String Global Index As Integer Global LastDoc As String Public Sub TestGlobal() If ThisApplication.Documents.Count = 0 Then MsgBox "No Document" Exit Sub End If If Path = "" Then Path = Environ("USERPROFILE") + "\Desktop\" + ThisApplication.ActiveDocument.DisplayName If LastDoc <> ThisApplication.ActiveDocument.DisplayName Then Index = 0 LastDoc = ThisApplication.ActiveDocument.DisplayName Path = Environ("USERPROFILE") + "\Desktop\" + ThisApplication.ActiveDocument.DisplayName If Dir(Path, vbDirectory) = "" Then MkDir (Path) End If MsgBox Path + "\Bild_" + CStr(Index + 1) Index = Index + 1 End Sub
Den Code ein paar Mal ausführen... ------------------ Grüße Igor FX64 Software Solutions - Inventor Tools FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
svensonite Mitglied
Beiträge: 3 Registriert: 06.10.2006
|
erstellt am: 21. Nov. 2013 19:56 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
MacFly8 Ehrenmitglied Konstrukteur Kessel- & Feuerungsbau
Beiträge: 1988 Registriert: 13.08.2007 HP Z17; 64GB RAM; Nvidia Quadro RTX3000; Inventor Professional PDSU 2012/2020 Mechanical 2012/2020
|
erstellt am: 22. Nov. 2013 18:31 <-- editieren / zitieren --> Unities abgeben: Nur für Klaus 2
|
Klaus 2 Mitglied Konstruktionsdienstleister
Beiträge: 12 Registriert: 01.05.2002
|
erstellt am: 05. Dez. 2013 14:33 <-- editieren / zitieren --> Unities abgeben:
Hallo Sven, als ich damals diesen Hintergrund-Farbwechsel hier angeschoben habe dachte ich schon ich wäre der einzige der so was benötigt. Als die Sache dann mal Fahrt aufnahm, und natürlich mit Hilfe der Anderen, wurde es dann noch richtig gut. Jetzt sehe ich allerdings das Du noch einen Schritt weiter gegangen bist und erstellst direkt auch noch den Screenshot, das finde ich einfach Klasse! Wärest Du so nett und würdest das komplette VBA hier zur Verfügung stellen, ich fummele mir hier nämlich jedes Mal einen Wolf bis das annähernd so klappt wie ich es gerne hätte. ------------------ Gruß Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |