Zone de texte assemblage

vspemens · Novembre 30, 2023, 10:41

Bonjour, je souhaiterais mettre un texte qui apparaisse sur mon assemblage 3D à chaque fois que je l’ouvre, j’ai essayé annotations/notes ou commentaires dans l’arbre feature manager avec activation de ma note mais rien n’apparait. Par avance merci.

Cyril.f · Novembre 30, 2023, 10:47

Bonjour,
Normalement par défaut l’affichage est désactivé.
Il faut sélectionner ces icônes normalement pour afficher les annotations/notes dans les ASM ou Pièces

vspemens · Novembre 30, 2023, 12:18

Merci @Cyril.f pour cette réponse. Du coup comment faire pour que ça reste par défaut car quand je ferme mon assemblage ça reste pas en mémoire. Merci par avance.

Maclane · Novembre 30, 2023, 12:34

Bonjour;
Il faudrait sauvegarder vos réglages dans vos modèles de documents (sldprt/sldasm).
Par contre pour vos anciens fichiers, à moins de recharger vos modelés, il faudra les re-configurer à la main (ou faire une macro).

' ******************************************************************************
' Affichage tête haute : Cacher types non utilisés
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swModelDocExt As SldWorks.ModelDocExtension

Sub main()

Set swApp = Application.SldWorks

Dim swModel             As SldWorks.ModelDoc2
Dim swModelDocExt       As SldWorks.ModelDocExtension

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc 'Travail sur le document actif sous SolidWorks

FilePath = swModel.GetPathName ' Chemin complet du fichier
FileName = swModel.GetTitle 'Nom du fichier avec extension
Filetype = swModel.GetType 'Donne le type de document ouvert avec :0=swDocNONE;1=swDocPART;2=swDocASSEMBLY;3=swDocDRAWING

If Filetype = 1 Then 'Si le document est un document pièce...
Set Part = swApp.ActiveDoc

'Efface plans
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)

'Efface axes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes, False)

'Efface axes temporaires
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, False)

'Efface points
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints2, False)

'Efface systeme de coordonnées
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCoordSystems, False)

'Efface Origines
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayOrigins, False)

'Efface Systeme de references
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumCoordSystems, False)

'Efface lignes neutres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPartingLines, False)

'Efface courbes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCurves, False)

'Affiche Annotations de premier niveau (Permet de visualiser les filets)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAllAnnotations, True)

'Efface Annotations de composants
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCompAnnotations, False)

'Affiche Esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketches, True)

'Affiche cotations esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swHideShowSketchDimensions, True)

'Affiches Relation esquisses
ETAT = Part.GetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations)
If ETAT = Faux Then boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations, True)

'Efface plans esquisses 3D
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketchPlanes, False)

'Efface Lumieres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLights, False)

'Efface Grille
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swGridDisplay, False)

'Efface Camera
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCameras, False)

'Efface Calques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDecals, False)

'Efface plans de coupes interactives
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLiveSections, False)

'Efface points de routage
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints, False)

'Efface nom des cotes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swShowDimensionNames, False)

'Efface symbole centre de masses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCenterOfMassSymbol, False)

'Efface cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldBead, False)

'Affiche (propriété document)representation filetages
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCosmeticThreads, False)

'Efface (propriété document)References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatums, False)

'Efface (propriété document)Cibles deReferences
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumTargets, False)

'Efface (propriété document) Cotes de fonctions
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayFeatureDimensions, False)

'Efface (propriété document) Cotes de References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferenceDimensions, False)

'Efface (propriété document) Cotes DimExpert
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDimXpertDimensions, False)

'Affiche (propriété document) Representation filetage Ombré
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads, True)

'Affiche (propriété document) Tolerances geometriques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayGeometricTolerances, True)

'Affiche (propriété document) Notes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayNotes, True)

'Affiche (propriété document) Etats de Surfaces
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySurfaceFinishSymbols, True)

'Efface (propriété document) Cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldSymbols, False)

'Efface (propriété document) Cube Visualisation
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDispGlobalBBox, False)

'*******************************************************************************************************************************************

ElseIf Filetype = 2 Then 'Si le document est un document Assemblage...

Set Part = swApp.ActiveDoc
'Efface plans
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)

'Efface axes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes, False)

'Efface axes temporaires
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, False)

'Efface points
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints2, False)

'Efface systeme de coordonnées
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCoordSystems, False)

'Efface Origines
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayOrigins, False)

'Efface Systeme de references
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumCoordSystems, False)

'Efface lignes neutres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPartingLines, False)

'Efface courbes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCurves, False)

'Affiche Annotations de premier niveau (Permet de visualiser les filets)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAllAnnotations, True)

'Efface Annotations de composants
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCompAnnotations, False)

'Efface Esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketches, False)

'Efface cotations esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swHideShowSketchDimensions, False)

'Efface Relation esquisses
ETAT = Part.GetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations)
If ETAT = Vrai Then boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations, False)

'Efface plans esquisses 3D
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketchPlanes, False)

'Efface Lumieres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLights, False)

'Efface Grille
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swGridDisplay, False)

'Efface Camera
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCameras, False)

'Efface Calques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDecals, False)

'Efface plans de coupes interactives
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLiveSections, False)

'Efface points de routage
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints, False)

'Efface nom des cotes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swShowDimensionNames, False)

'Efface symbole centre de masses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCenterOfMassSymbol, False)

'Efface cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldBead, False)

'Affiche (propriété document)representation filetages
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCosmeticThreads, True)

'Affiche (propriété document)References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatums, True)

'Efface (propriété document)Cibles deReferences
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumTargets, False)

'Efface (propriété document) Cotes de fonctions
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayFeatureDimensions, False)

'Efface (propriété document) Cotes de References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferenceDimensions, False)

'Efface (propriété document) Cotes DimExpert
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDimXpertDimensions, False)

'Affiche (propriété document) Representation filetage Ombré
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads, True)

'Affiche (propriété document) Tolerances geometriques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayGeometricTolerances, True)

'Affiche (propriété document) Notes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayNotes, True)

'Affiche (propriété document) Etats de Surfaces
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySurfaceFinishSymbols, True)

'Efface (propriété document) Cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldSymbols, False)

'Efface (propriété document) Cube Visualisation
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDispGlobalBBox, False)

'****************************************************************************************************************
ElseIf Filetype = 3 Then 'Si le document est un document Mise en Plan...
Set Part = swApp.ActiveDoc

'Efface plans
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)

'Efface axes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes, False)

'Efface axes temporaires
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, False)

'Efface points
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints2, False)

'Efface systeme de coordonnées
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCoordSystems, False)

'Efface Origines
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayOrigins, False)

'Efface Systeme de references
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumCoordSystems, False)

'Efface lignes neutres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPartingLines, False)

'Efface courbes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCurves, False)

'Affiche Annotations de premier niveau
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAllAnnotations, True)

'Efface Annotations de composants
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCompAnnotations, False)

'Efface Esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketches, False)

'Affiche cotations esquisses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swHideShowSketchDimensions, True)

'Affiches contraintes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations, True)

'Efface plans esquisses 3D
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketchPlanes, False)

'Efface Lumieres
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLights, False)

'Efface Grille
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swGridDisplay, False)

'Efface Camera
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCameras, False)

'Efface Calques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDecals, False)

'Efface plans de coupes interactives
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLiveSections, False)

'Efface points de routage
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints, False)

'Efface nom des cotes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swShowDimensionNames, False)

'Efface symbole centre de masses
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCenterOfMassSymbol, False)

'Efface cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldBead, False)

'Affiche (propriété document)representation filetages
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCosmeticThreads, True)

'Efface (propriété document)References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatums, True)

'Efface (propriété document)Cibles deReferences
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumTargets, False)

'Efface (propriété document) Cotes de fonctions
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayFeatureDimensions, True)

'Efface (propriété document) Cotes de References
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferenceDimensions, True)

'Efface (propriété document) Cotes DimExpert
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDimXpertDimensions, False)

'Affiche (propriété document) Representation filetage Ombré
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads, True)

'Affiche (propriété document) Tolerances geometriques
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayGeometricTolerances, True)

'Affiche (propriété document) Notes
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayNotes, True)

'Affiche (propriété document) Etats de Surfaces
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySurfaceFinishSymbols, True)

'Efface (propriété document) Cordons de soudures
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldSymbols, False)

'Efface (propriété document) Cube Visualisation
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDispGlobalBBox, False)

End If

End Sub

Dans cette macro, basculer les reglages entre True (voir) et False (Cacher) selon vos attentes…

Cordialement.

Cyril.f · Novembre 30, 2023, 12:36

Normalement en enregistrant ça conserve le paramétrage d’affichage.
Et pour les autres assemblages créé à partir du modèle il faut le paramétré de la même façon et enregistrer sous ASMDOT

vspemens · Novembre 30, 2023, 1:13

Merci pour vos réponses, c’est bon l’affichage est bien activé par défaut par contre je vois pas la note ou commentaire que j’ai crée, je pensais voir cela sur l’écran de la 3D mais rien du tout !! A moins qu’il y ait une autre méthode ?

Cyril.f · Novembre 30, 2023, 1:14

Sauf erreur de ma part les vues d’annotations sont sur un des plans donc visible que dans certaines positions

Maclane · Novembre 30, 2023, 1:23

il faut aussi jongler avec les Annotations dans le Treemanager:

Soit avec la visibilité de « Objets non Affectés » soit en utilisant les plans sur lesquel les annotations sont crées.
C’est franchement pas très « UserFriendly »…

vspemens · Novembre 30, 2023, 2:11

Il y a peut être un autre mode que ces notes que je ne connais pas pour m’afficher une alerte en ouvrant mon assemblage ??

Maclane · Novembre 30, 2023, 2:27

Il existe les Commentaires, mais, eux non plus ne sont pas forcément très visibles.

(A associer avec "Montrer indicateur de commentaires " dans l’affichage de l’arbre…)

Cyril.f · Novembre 30, 2023, 2:59

Il y a le marquage mais c’est pareil c’est figé sur une orientation.
Solution un peu barbare , créer un part dans l’asm et faire une extrusion d’un texte