Hallo team,
Hier heb ik een probleem, ik heb een stagiair die een ASM heeft ontworpen met + 200 leuningen die een maximale beeldkwaliteit hebben.
De leuningen bevinden zich op het eerste niveau, het tweede niveau of zelfs meer.
Mijn probleem is dat ik elke vangrail moet openen om de kwaliteit te verlagen, het gaat me waanzinnig veel tijd kosten.
Mijn vraag is dat er een macro is die elk onderdeel zou openen om de kwaliteit te verlagen en de wijziging op te slaan.
Bedankt.
Moge de kracht met je zijn.
1 like
Hallo
Normaal gesproken, als u de bovenste assemblage opent, gaat u naar Beeldkwaliteit (in de opties) en vinkt u de optie aan: "Toepassen op alle gerefereerde onderdeeldocumenten".
Hierdoor wordt de beeldkwaliteit toegepast op alle onderdelen van de open assemblage.
edit: met een kleine afbeelding
4 likes
Hallo
Inderdaad goed gezien, ik ben altijd op zoek naar 12 tot 14 uur terwijl de oplossing voor mijn ogen ligt.
Goed gedaan
Moge de kracht met je zijn.
oeps weer een klik van de zijkant 
Het is opgelost.
Moge de kracht met je zijn.
1 like
Hallo, ik heb net een macro gemaakt die de kwaliteit tot een minimum beperkt:
Optie Expliciete
’ ******************************************************************************
' door F.PENNERAS
' 27 DECEMBER 2023
’ ******************************************************************************
Vroeg gebonden variabelen
Dim swApp als SldWorks.SldWorks
Dim swDoc als SldWorks.ModelDoc2
Dim deel als SldWorks.ModelDoc2
' Variabelen om toe te voegen (variabele variabelen)
Dim CurVal als dubbel
Dim MaxVal als dubbel
Dim MinVal als dubbel
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Dim swTextFormat als SldWorks.TextFormat
Dim TextFormatObj als object
Dim ModelDocExtension als ModelDocExtension
Sub hoofd()
• Verbinding met het momenteel actieve SolidWorks-document
Stel swApp = Toepassing.SldWorks in
Stel swDoc in = swApp.ActiveDoc
Deel instellen = swApp.ActiveDoc
Set ModelDocExtension = Deel.Extensie
'Foutafhandelaar als er geen documenten zijn geladen
Als een deel niets is, dan MsgBox "Een Solid Works-bestand moet actief zijn!", vbCritical: Exit Sub
' Haal de huidige, minimale en maximale waarden op uit de voorkeuren voor schaduwafwijkingen van de beeldkwaliteit.
' Laad deze waarden in de variabelen 'CurVal', 'MinVal' en 'MaxVal'.
swDoc.Extension.GetUserPreferenceDoubleValueRange swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
' Stelt een nieuwe waarde in voor de schaduwafwijking
swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, MaxVal
' Schakel het selectievakje 'Randlengte optimaliseren' uit.
Part.SetUserPreferenceToggle swImageQualityUseHighQualityEdgeSize, onwaar
' Verwijder het vinkje uit het vakje 'Facetisatie opslaan'.
Part.SetUserPreferenceToggle swImageQualitySaveTesselationWithPartDoc, False
' Verwijder het vinkje uit het vakje 'Curvekwaliteit verbeteren'.
Part.SetUserPreferenceToggle swImageQualityWireframeHighCurveQuality, False
' Stel een nieuwe waarde in voor 'Wireframe-resolutie en HLR/HLV van hoge kwaliteit'.
Part.SetUserPreferenceIntegerValue swImageQualityWireframeValue, 1
Einde Sub
1 like