---

Hallo zusammen,

ich greife einen alten Beitrag auf, weil das momentan bei uns, wieder mal, ein Thema ist.
https://ww3.cad.de/foren/ubb/Forum2/HTML/016900.shtml#000000

Kennt jemand von Euch ev. die API Eigenschaft oder Methode,
um "Gewindedarstellungsanzeige" für Zeichnungsansichten
auf "Hohe Qualität" bzw. auf "Entwurfsqualität" zu setzen?

Ich habe in der API-Hilfe nichts gefunden.

------------------
Grüße
Heinz

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

---

Hallo Heinz,

(sorry habe gerade gesehen, dass du noch mit SW2020 arbeitest - den Befehl gibt es erst seit SW2021)

versuchs mal damit: für Entwurfsqualität bei SetDisplayMode4 letzten Wert auf False stellen

Dim ViewCount As Long

Dim displayMode As Integer
Dim displayEdgesInShadedMode As Boolean
Dim displayUseParentDisplayMode As Boolean

Dim i As Long               ' loop counter
Const swDocNONE = 0         ' Used to be TYPE_NONE
Const swDocPart = 1         ' Used to be TYPE_PART
Const swDocASSEMBLY = 2     ' Used to be TYPE_ASSEMBLY
Const swDocDRAWING = 3      ' Used to be TYPE_DRAWING
Const swDocSDM = 4          ' Solid data manager.

Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set DrawingDoc = swApp.ActiveDoc
    ' kein Dokumewnt -> User benachrichtigen
    If DrawingDoc Is Nothing Then
        MsgBox "Kein Dokument offen, was sollte ich denn wohl tun?"
        Exit Sub
    End If
    ' dito wenn es keine Zeichnung ist
    If (DrawingDoc.GetType <> swDocDRAWING) Then
        MsgBox "Nur sinnvoll bei Zeichnungen"
        Exit Sub
    End If

    Set ActiveSheet = DrawingDoc.GetCurrentSheet
    ActiveSheetName = ActiveSheet.GetName

    SheetCount = DrawingDoc.GetSheetCount
    Names = DrawingDoc.GetSheetNames

    For i = 0 To SheetCount - 1

        ' nächstes Blatt aktivieren
        DrawingDoc.ActivateSheet Names(i)

        Set View = DrawingDoc.GetFirstView

        While Not View Is Nothing
                ' dann den aktuelle Anzeigeart holen
                displayMode = View.GetDisplayMode
                '  schattierter Mode holen
                displayEdgesInShadedMode = View.GetDisplayEdgesInShadedMode

                    displayUseParentDisplayMode = View.GetUseParentDisplayMode
                    ' SetDisplayMode4 works for SW2021 and above
                    View.SetDisplayMode4 displayUseParentDisplayMode, displayMode, False, displayEdgesInShadedMode, True

            Set View = View.GetNextView
        Wend
    Next i

    ' dann das vorher aktuelle Blatt reaktivieren
    DrawingDoc.ActivateSheet ActiveSheetName

End Sub

[Diese Nachricht wurde von Winni-two am 14. Nov. 2024 editiert.]

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

---

View-Quality-01.PNG

Hallo Winni-two,

danke für Deine Antwort!
So wie ich das interpretiere ändert Dein Makro die Einstellungen
unter "Anzeigeart" und nicht unter "Gewindedarstellungsanzeige"
Ich würde gerne die, im Bild markierte, Eigenschaft ändern.

------------------
Grüße
Heinz

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

---

Hallo Heinz,

View.SetDisplayMode4 displayUseParentDisplayMode, displayMode, False, displayEdgesInShadedMode, True

Der zweite Wert "False" müsste die Anzeigeart auf hohe Qualität setzten

View.SetDisplayMode4 displayUseParentDisplayMode, displayMode, False, displayEdgesInShadedMode, True

und der letzte Wert "True" müsste die Gewindedarstellung auf hohe Qualität setzten

So funktioniert es mindestens bei mir (SW2021)

Gruss Winni

[Diese Nachricht wurde von Winni-two am 14. Nov. 2024 editiert.]

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

---

Hallo,

unter SWX 2020 müsste es SetDisplayMode3 sein:

https://help.solidworks.com/2020/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iview~setdisplaymode3.html

SetDisplayMode4 kam mit SWX 2021  

------------------
==========
Gruß
Andreas
==========

[Diese Nachricht wurde von ad_man am 14. Nov. 2024 editiert.]

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

---

Hallo Andreas

der SetDisplayMode3 kann aber nicht die Gewindedarstellung auf hohe Qualität setzten.

Gruss Winni

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

---

Dann wird es unter SWX2020 wohl nichts geben... 

------------------
==========
Gruß
Andreas
==========

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

---

Vorstellbar wäre, durch die Views zu traversieren, jeweils den Property-Manager der Ansicht zu aktivieren und dann mittels Sendkeys-Anweisungen die Einstellung umzuschalten.
GGf. zwischendurch noch ein ForceRebuild oder was auch immer.

Aber schon beim erneuten Durchlesen des Satzes geht automatisch jede Motivation zu so etwas verloren...

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

---

View-Quality-02.PNG

Guten Morgen,

Danke an Alle für die Antworten und Vorschläge.
Ich habe das Thema mit den fehlerhaften Ausdrucken auch an unseren Re-Seller geschickt.
Mal sehen was die antworten.

Angeblich sollen wir demnächst SWX 2023 bekommen,
vielleicht können wir uns damit dann helfen.

PS
im Anhang ein Bild, was mit den fehlerhaften Ausdrucken gemeint ist.

------------------
Grüße
Heinz

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