---

Hallo zusammen,

ich habe hier eine Frage zur Zeichnungsumgebung.
In den Anwendungsoptionen gibt es div. Einstellungen bzgl. der Strichstärke in der IDW. Es können die Strichstärken dynamisch angezeigt werden (was schön ist, beim Platzieren von Schweißsymbolen, Bemaßungen, etc. ) oder statisch (Reale Linienstärke anzeigen). Immer häufiger springe ich zwischen diesen beiden Optionen hin und her, um die Lesbarkeit der Zeichnung zu überprüfen. Der Weg zu dieser Option ist sehr weit, sprich man muss sich durch viele Fenster klicken.

Ich denke, dass diese Option wird in der Registy gespeichert wird. Wie kann man im Inventor ein Button / Hotkey definieren, um zwischen diesen Einstellungen hin und her zu wechseln?! VBA?

Best dank schon mal jetzt.

Gruß SKYSURFER

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

---

Hallo,

Ein leiser Stupser gegen das 3D-Gerät lässt die Anzeige der Linienstärke verschwinden. Wäre das ein erträglicher Workaround?

Rant:
Im konkreten Fall doppelt bitter, dass zwar z.B. ein Anpassungspunkt für das Minimenü namens "Linienstärke" vorhanden, dieser aber dann wirkungslos-ausgegraut ist.
Anzeige Linienstärke per Knopfdruck ein/aus - wiedermal eine der unendlich vielen Kleinigkeiten, das die hauseigene 2D-Konkurrenz schon seit Jahr(zehnt)en beherrscht, und IV nicht.
Schade, dass es für die derzeitige Wunschliste Zeichnungsumgebung schon zu spät ist.

------------------
mfg - Leo

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

---

Hallo Leo,

danke für deine Antwort.

Zitat:

---

Original erstellt von Leo Laimer:
Hallo,

Ein leiser Stupser gegen das 3D-Gerät lässt die Anzeige der Linienstärke verschwinden. Wäre das ein erträglicher Workaround?

---

Leider nein. Benutze ich die Voreistellung der Anwendungsoptionen, dann werden alle Linien dünn, sobald ich die 3D-Maus ganz sanft schubse.

Zitat:

---

Original erstellt von Leo Laimer:
Rant:
Im konkreten Fall doppelt bitter, dass zwar z.B. ein Anpassungspunkt für das Minimenü namens "Linienstärke" vorhanden, dieser aber dann wirkungslos-ausgegraut ist.
Anzeige Linienstärke per Knopfdruck ein/aus - wiedermal eine der unendlich vielen Kleinigkeiten, das die hauseigene 2D-Konkurrenz schon seit Jahr(zehnt)en beherrscht, und IV nicht.
Schade, dass es für die derzeitige Wunschliste Zeichnungsumgebung schon zu spät ist.

---

Ja, leider ist diese Liste schon unterwegs. Ich hoffe mal auf die .Net oder VBA-Profis. Evtl. haben diese noch einen Tip für mich.

Gruß
SKYSURFER

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

---

Die Druckvorschau könnte eine Alternative sein. Sie steht auch für die Benutzer-Befehlsleiste zur Verfügung.

------------------
Gruß
Werner

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

---

Netter Vorschlag, aber:
- man muss sich auch meist durch ein paar Dialoge hanteln (Maßstab, Blattgröße, Orientierung) dass die Vorschau passt
- die Anzeige in der Vorschau ist grad bei fraglichen Details nicht genau wie der Ausdruck
- Grafikperformance ist bei größeren Zeichnungen elendig schlecht
Aber immerhin bleibt das Zoom irgendwo in der Größenordnung von 1:1 am Bildschirm stecken (man kann nicht tiefer reinzoomen), also eine gewisse Erziehungsmaßnahme gegen zu fitzelig-kleine Zeichnungsdarstellungen.

------------------
mfg - Leo

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

---

Stimmt, das ist nicht die Ideallösung, sondern höchstens ein Kompromis.

------------------
Gruß
Werner

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

---

LineWeights.png

Zitat:

---

Original erstellt von Leo Laimer:
Schade, dass es für die derzeitige Wunschliste Zeichnungsumgebung schon zu spät ist.

---

Bis dahin dürfte das hier helfen wenn ich die Aufgabenstellung richtig verstanden habe (siehe Anhang):

Code:

---

' Funktion zum Umschalten der Linienstärken
'
' Igor Zupevc, FX64, 28.01.2014
Sub ToggleDisplayLineWeights()
    ThisApplication.DrawingOptions.DisplayLineWeights = Not ThisApplication.DrawingOptions.DisplayLineWeights
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then ThisApplication.ActiveDocument.Update
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

---

Linienstaerke.JPG

Hallo Igor,

Ich glaub, es war eigentlich gefragt in den gleich rechts daneben liegenden Einstellungen herumzuschalten.

------------------
mfg - Leo

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

---

Ahhhh, dann das hier:

Code:

---

' Den Typ für die Linienstärken umschalten
'
' Igor Zupevc, FX64, 28.01.2014
Sub ToggleDisplayLineWeightType()
    If ThisApplication.DrawingOptions.LineWeightType = kRangeLineWeight Then
        ThisApplication.DrawingOptions.LineWeightType = kTrueLineWeight
    Else
        ThisApplication.DrawingOptions.LineWeightType = kRangeLineWeight
    End If
   
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then ThisApplication.ActiveDocument.Update
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

---

Zitat:

---

Original erstellt von Leo Laimer:
Hallo Igor,

Ich glaub, es war eigentlich gefragt in den gleich rechts daneben liegenden Einstellungen herumzuschalten.

---

Richtig.

Gruß
SKYSURFER

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

---

Zitat:

---

Original erstellt von daywa1k3r:
Ahhhh, dann das hier:

Code:

---

' Den Typ für die Linienstärken umschalten
'
' Igor Zupevc, FX64, 28.01.2014
Sub ToggleDisplayLineWeightType()
    If ThisApplication.DrawingOptions.LineWeightType = kRangeLineWeight Then
        ThisApplication.DrawingOptions.LineWeightType = kTrueLineWeight
    Else
        ThisApplication.DrawingOptions.LineWeightType = kRangeLineWeight
    End If
   
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then ThisApplication.ActiveDocument.Update
End Sub

---

?

---

Hallo,

danke für das Script. Funktioniert super. Man kann es in die Rosette legen und hat es somit immer griffbereit.
Danke.

Gruß
SKYSURFER

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

---

Zitat:

---

Original erstellt von SKYSURFER:
Man kann es in die Rosette legen und hat es somit immer griffbereit.

---

OT: Die Saat geht auf 

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

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

---

Zitat:

---

Original erstellt von nightsta1k3r:

OT: Die Saat geht auf  

---

OT: Ich habe den "Fachbegriff" hierfür irgendwo im Forum gelesen  . Wusste dass ich jemand damit bespaße...

Gruß
SKYSURFER

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