Taille de textes automatique dans les MEP

vos questions concernant les API SolidWorks

Taille de textes automatique dans les MEP

Messagepar HeliCoid » Mar 15 Jan 2013, 14:25

Bonjour,

Je cherche puis un bon moment un moyen de faire en sorte que la taille des annotations et cotes d'une MEP soit automatiquement dimensionnés.
( plus la pièce est grosse , plus la taille de la police est grande )

J'ai fais un enregistrement de macro par SW :

Code: Tout sélectionner
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myTextFormat As Object
Set myTextFormat = Part.Extension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, swUserPreferenceOption_e.swDetailingDimension)
myTextFormat.CharHeightInPts = 55 'partie à modifier pour automatisation de la taille
boolstatus = Part.Extension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, swUserPreferenceOption_e.swDetailingDimension, myTextFormat)
Set myTextFormat = Part.Extension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingAnnotationTextFormat, 0)
myTextFormat.CharHeightInPts = 55 'partie à modifier pour automatisation de la taille
boolstatus = Part.Extension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingAnnotationTextFormat, 0, myTextFormat)
End Sub


Cette macro va dans les propriétés du document et modifie la police des annotations puis de la cotation.

Quand je lance cette macro (je n'ai fais aucune modification), le paramètre de taille du texte dans les options change bien pas dans la MEP; l'option indique que la taille de texte est à 55 mais reste à 20 dans la MEP.

Comment faire pour que SW mette à jour la taille des textes dans la MEP?

Merci d'avance!
SolidWorks 2015 SP5.0
HeliCoid
Ewok SolidWorks
 
Messages: 39
Inscription: Mar 22 Mar 2011, 10:40

Re: Taille de textes automatique dans les MEP

Messagepar James Bond » Mer 27 Fév 2013, 9:18

Salut,

alors question idiote de ma part tu me diras, as-tu fais Ctrl+B et/ou Ctrl+Q pour mettre à jour les côtes ?
  • La 3D c'est bien, SolidWorks c'est mieux !
James Bond
Padawan SolidWorks
 
Messages: 154
Inscription: Lun 18 Fév 2013, 12:33
Localisation: Aix-en-Provence - SW2012 SP05 - SW2013 SP05 - SW2014 SP01 - x64

Re: Taille de textes automatique dans les MEP

Messagepar MarcS » Mar 05 Mar 2013, 15:28

Si tu fait l'ajout de ce code au bout du tien

Dim PAnnotation As SldWorks.Annotation
Set SwView = Part.GetFirstView
While SwView Is Nothing = False
Set PAnnotation = SwView.GetFirstAnnotation3
While (Not PAnnotation Is Nothing)
retval = PAnnotation.SetTextFormat(0, False, myTextFormat)
Set PAnnotation = PAnnotation.GetNext3
Wend
Set SwView = SwView.GetNextView
Wend

Si je te donne un poisson tu pourras manger Aujourd’hui
mais si je t’apprend a pêcher tu pourras manger toute ta vie !!!
Salut !

Marc S.
Avatar de l’utilisateur
MarcS
Chevalier Jedi SolidWorks
 
Messages: 311
Inscription: Mar 06 Jan 2009, 20:10
Localisation: Quebec, Quebec SolidWorks 2017 SP 1.0 & SolidWorks 2014 SP 2.0


Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 6 invités

banniere