Pole tekstowe zespołu

vspemens · 30 Listopad 2023 10:41

Witam, chciałbym umieścić tekst, który pojawia się na moim zespole 3D za każdym razem, gdy go otwieram, próbowałem adnotacji/notatek lub komentarzy w drzewie menedżera funkcji z aktywacją mojej notatki, ale nic się nie pojawia. Z góry dziękuję.

Cyril_f · 30 Listopad 2023 10:47

Witam
Zwykle domyślnie wyświetlacz jest wyłączony.
Należy wybrać te ikony normalnie, aby wyświetlić adnotacje/notatki w ASM lub częściach

vspemens · 30 Listopad 2023 12:18

Dziękuję @Cyril_f za tę odpowiedź. Jak więc ustawić go jako domyślny, ponieważ po zamknięciu zestawu nie pozostaje on w pamięci. Z góry dziękuję.

Maclane · 30 Listopad 2023 12:34

Witam;
Ustawienia należy zapisać w szablonach dokumentów (sldprt/sldasm).
Z drugiej strony, w przypadku starych plików, o ile nie załadujesz ponownie modeli, będziesz musiał je ponownie skonfigurować ręcznie (lub utworzyć makro).

' ******************************************************************************
' 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

W tym makrze przełącz ustawienia między Prawda i Fałsz zgodnie z własnymi oczekiwaniami...

Pozdrowienia.

Cyril_f · 30 Listopad 2023 12:36

Zwykle po zapisaniu zachowuje ustawienia wyświetlania.
W przypadku innych zespołów utworzonych na podstawie modelu należy skonfigurować go w ten sam sposób i zapisać w ASMDOT

vspemens · 30 Listopad 2023 13:13

Dziękuję za odpowiedzi, w porządku, wyświetlacz jest domyślnie aktywowany, z drugiej strony nie widzę utworzonej przeze mnie notatki ani komentarza, myślałem, że zobaczę to na ekranie 3D, ale nic!! Chyba, że jest inna metoda?

Cyril_f · 30 Listopad 2023 13:14

O ile się nie mylę, widoki adnotacji znajdują się na jednej z płaszczyzn, więc są widoczne tylko w określonych pozycjach

Maclane · 30 Listopad 2023 13:23

musisz także pobawić się adnotacjami w Treemanagerze:

Albo z widocznością " Nienaruszonych obiektów " lub za pomocą płaszczyzn, na których tworzone są adnotacje.
Szczerze mówiąc, nie jest to zbyt " przyjazne dla użytkownika "...

vspemens · 30 Listopad 2023 14:11

Może jest inny tryb niż te notatki, którego nie znam, aby pokazać mi alert podczas otwierania mojego zestawu?

Maclane · 30 Listopad 2023 14:27

Są komentarze, ale też niekoniecznie są one bardzo widoczne.

(Do powiązania z "Pokaż wskaźnik komentarza" na wyświetlaczu drzewa...)

Cyril_f · 30 Listopad 2023 14:59

Jest oznaczenie, ale jest takie samo, jest ustalone na orientacji.
Trochę barbarzyńskie rozwiązanie, utwórz część w asm i zrób wytłoczenie tekstu