Bonjour la team,
voila j’ai un souci, j’ai un stagiaire qui a dessiné un asm avec + de 200 garde corps qui ont une qualité d’image au max.
ses garde corps son soit au premier niveau, second niveau voir même plus.
mon problème est que je dois ouvrir chaque garde corps baisser la qualité est enregistre, ça vas me prendre un temps de dingue.
ma question existe t’il une macro qui ouvrirait chaque pièce pour baisser la qualité est enregistrer la modification.
merci .
que la force soit avec vous.
1 « J'aime »
Bonjour,
normalement, si tu ouvres l’assemblage superieur, ensuite tu vas dans qualité d’image (dans les options), et tu coches l’option :" appliquer a tous les documents de pieces references".
Cela va appliquer la qualite d’image a toutes les pieces de l’assemblage ouvert.
edit: avec une petite image
4 « J'aime »
Bonjour,
effectivement bien vu, je suis toujours à chercher midi à 14h alors que la solution est sous mes yeux.
good job
que la force soit avec toi.
oups encore un clic de traverse 
c’est corrigé.
que la force soit avec toi.
1 « J'aime »
Bonjour je viens de faire une macro qui passe la qualité au minimum:
Option Explicit
’ ******************************************************************************
’ by F.PENNERAS
’ DEC 27, 2023
’ ******************************************************************************
’ Early bound variables
Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim Part As SldWorks.ModelDoc2
’ Variables To Add (Variable Variables)
Dim CurVal As Double
Dim MaxVal As Double
Dim MinVal As Double
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swTextFormat As SldWorks.TextFormat
Dim TextFormatObj As Object
Dim ModelDocExtension As ModelDocExtension
Sub main()
’ Connexion au document SolidWorks actuellement actif
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set ModelDocExtension = Part.Extension
'Gestionnaire d’erreur si aucun document n’est chargé
If Part Is Nothing Then MsgBox « A Solid Works file must be active! », vbCritical: Exit Sub
’ Obtenir les valeurs actuelles, minimales et maximales à partir des préférences d’écart d’ombrage de la qualité de l’image.
’ Charger ces valeurs dans les variables « CurVal », « MinVal » et « MaxVal ».
swDoc.Extension.GetUserPreferenceDoubleValueRange swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
’ Fixe une nouvelle valeur pour l’écart d’ombrage
swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, MaxVal
’ Decochez la case « Optimiser la longueur des bords ».
Part.SetUserPreferenceToggle swImageQualityUseHighQualityEdgeSize, False
’ Decochez la case « Sauvegarder la facetisation ».
Part.SetUserPreferenceToggle swImageQualitySaveTesselationWithPartDoc, False
’ Decochez la case « Ameliorer la qualité de la courbe ».
Part.SetUserPreferenceToggle swImageQualityWireframeHighCurveQuality, False
’ Définir une nouvelle valeur pour « Résolution filaire et haute qualité HLR/HLV ».
Part.SetUserPreferenceIntegerValue swImageQualityWireframeValue, 1
End Sub
1 « J'aime »