Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Buttons für Hintergrund Farbwechsel (Seite 2)

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 Dieses Thema ist 2 Seiten lang:   1  2  nächster neuer Beitrag | nächster älterer Beitrag
  
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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

Hallo Inventorianer!

unter http://apps.exchange.autodesk.com/  gibt es "Screenshot for Inventor" was ich seit kurzem benutze...
möchte nur mal darauf hinweisen  

grüße S.

------------------
wer auf den eigenen Schnürsenkeln steht kann keine großen schritte machen

[Diese Nachricht wurde von 50cent am 13. Jan. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

nightsta1k3r
Ehrenmitglied V.I.P. h.c.
plaudern



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

Beiträge: 11223
Registriert: 25.02.2004

Hier könnte ihre Werbung stehen!

erstellt am: 13. Jan. 2012 10: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 Klaus 2 10 Unities + Antwort hilfreich

 
Zitat:
Original erstellt von 50cent:
unter http://apps.exchange.autodesk.com/  gibt es "Screenshot for Inventor"

Ich finde da nur das Screenshot-App für AutoCAD.
Wo genau soll das für Inventor sein      .


------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

50cent
Mitglied
Konstrukteur; CAD Admin


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

Hallo,

unten Rechts

------------------
wer auf den eigenen Schnürsenkeln steht kann keine großen schritte machen

[Diese Nachricht wurde von 50cent am 13. Jan. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

EKW
Mitglied
Dipl.-Ing. Maschinenbau & IWE|Entwicklung & Konstruktion von Baumaschinenwerkzeugen


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

Dennoch wäre ein durchgestyltes Makro ohne Macken von Vorteil.

Ich benutze den Code von InventorWizard.be dafür, was aber auch das Farbthema der Symbole ändert.

Viele Grüße,


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

nightsta1k3r
Ehrenmitglied V.I.P. h.c.
plaudern



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

Beiträge: 11223
Registriert: 25.02.2004

Hier könnte ihre Werbung stehen!

erstellt am: 13. Jan. 2012 15:17    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 Klaus 2 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von 50cent:
unten Rechts

Gracias, jetzt habs auch ich gefunden  .
War nicht mit der Nase drauf  und funzt auch beim Reifentesten  .

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

MacFly8
Ehrenmitglied
Konstrukteur Kessel- & Feuerungsbau


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

-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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

Nun dann schrieb doch einfach statt "Millennium" "Kontrastreich" rein...

------------------
Grüsse, Toni

Rechtschreibefehler gehören dem findigen Finder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

HaPeBe
Mitglied
Kontrukteur


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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


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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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



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

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 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 Klaus 2 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von HaPeBe:
...nur komme ich vom Kontrastreichen nicht mehr zurück auf den Weißen - mir der Schaltfläche.
Was ist hier flasch?

Code:

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 = kGradientBackgroundType
    End If
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


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

Beiträge: 3
Registriert: 06.10.2006

erstellt am: 15. Nov. 2013 19:18    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 Klaus 2 10 Unities + Antwort hilfreich

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



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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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

Public 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


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

Beiträge: 3
Registriert: 06.10.2006

erstellt am: 17. Nov. 2013 09:08    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 Klaus 2 10 Unities + Antwort hilfreich

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



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

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 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 Klaus 2 10 Unities + Antwort hilfreich

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

Global 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


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

Beiträge: 3
Registriert: 06.10.2006

erstellt am: 21. Nov. 2013 19:56    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 Klaus 2 10 Unities + Antwort hilfreich

Hallo Igor,

funktioniert super. Das hatte mir noch gefehlt.

Danke,
Sven

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

MacFly8
Ehrenmitglied
Konstrukteur Kessel- & Feuerungsbau


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

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 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 Klaus 2 10 Unities + Antwort hilfreich


Inv_Screenshot.jpg

 
eventuell hilft ja dem ein oder anderem auch das,

http://labs.autodesk.com/utilities/inventor_screenshot/

MfG MacFly


------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Klaus 2
Mitglied
Konstruktionsdienstleister


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

Beiträge: 12
Registriert: 01.05.2002

erstellt am: 05. Dez. 2013 14:33    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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Dieses Thema ist 2 Seiten lang:   1  2 

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)2024 CAD.de | Impressum | Datenschutz