Hallo Team,
Hier habe ich ein Problem, ich habe einen Praktikanten, der ein ASM mit + 200 Geländern entworfen hat, die eine maximale Bildqualität haben.
Seine Geländer befinden sich entweder auf der ersten, zweiten oder sogar auf der zweiten Ebene oder sogar mehr.
Mein Problem ist, dass ich jede Leitplanke öffnen muss, um die Qualität zu senken, es wird mich wahnsinnig viel Zeit kosten.
Meine Frage ist, dass es ein Makro gibt, das jedes Teil öffnen würde, um die Qualität zu verringern und die Änderung zu speichern.
Vielen Dank.
Möge die Macht mit euch sein.
1 „Gefällt mir“
Hallo
Wenn Sie die oberste Baugruppe öffnen, gehen Sie normalerweise in die Bildqualität (in den Optionen) und aktivieren die Option: "Auf alle referenzierten Teiledokumente anwenden".
Dadurch wird die Bildqualität auf alle Teile der geöffneten Baugruppe angewendet.
Bearbeiten: Mit einem kleinen Bild
4 „Gefällt mir“
Hallo
In der Tat gut gesehen, bin ich immer auf der Suche nach Mittag bis 14 Uhr, während die Lösung vor meinen Augen liegt.
Gut Gemacht
Möge die Macht mit euch sein.
Hoppla, noch ein Klick der Seite 
Es ist behoben.
Möge die Macht mit euch sein.
1 „Gefällt mir“
Hallo, ich habe gerade ein Makro erstellt, das die Qualität auf ein Minimum reduziert:
Option Explizit
’ ******************************************************************************
" von F.PENNERAS
' 27. DEZ 2023
’ ******************************************************************************
Früh gebundene Variablen
Dim swApp als SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dimmen des Teils als SldWorks.ModelDoc2
' Hinzuzufügende Variablen (Variablenvariablen)
Dim CurVal als Double
Dim MaxVal als Doppelzimmer
MinVal als Doppelzimmer dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Dim swTextFormat As SldWorks.TextFormat
Dim TextFormatObj als Objekt
Dimmen ModelDocExtension als ModelDocExtension
Sub main()
• Verbindung zum aktuell aktiven SolidWorks Dokument
Legen Sie swApp = Application.SldWorks fest
Festlegen von swDoc = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Festlegen von ModelDocExtension = Part.Extension
'Fehlerbehandlung, wenn keine Dokumente geladen werden
Wenn Part nichts ist, dann MsgBox "Eine Solid Works-Datei muss aktiv sein!", vbCritical: Sub beenden
' Rufen Sie die aktuellen, minimalen und maximalen Werte aus den Einstellungen für die Schattierungsabweichung der Bildqualität ab.
' Laden Sie diese Werte in die Variablen 'CurVal', 'MinVal' und 'MaxVal'.
swDoc.Extension.GetUserPreferenceDoubleValueRange swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
' Setzt einen neuen Wert für die Schattierungsabweichung
swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, MaxVal
' Deaktivieren Sie das Kontrollkästchen 'Kantenlänge optimieren'.
Part.SetUserPreferenceUmschalten swImageQualityUseHighQualityEdgeSize, False
' Deaktivieren Sie das Kontrollkästchen 'Facetisierung speichern'.
Part.SetUserPreferenceToggle swImageQualitySaveTesselationWithPartDoc, False
' Deaktivieren Sie das Kontrollkästchen 'Kurvenqualität verbessern'.
Part.SetUserPreferenceUmschalten swImageQualityWireframeHighCurveQuality, False
' Legen Sie einen neuen Wert für 'Drahtgitterauflösung und HLR/HLV in hoher Qualität' fest.
Part.SetUserPreferenceIntegerValue swImageQualityWireframeValue, 1
Ende Sub
1 „Gefällt mir“