Tekstvak voor assemblage

vspemens · 30 november 2023 om 10:41

Hallo, ik wil graag een tekst plaatsen die elke keer dat ik deze open op mijn 3D-assemblage verschijnt, ik heb annotaties/notities of opmerkingen geprobeerd in de functiebeheerboom met activering van mijn notitie, maar er verschijnt niets. Bij voorbaat dank.

Cyril_f · 30 november 2023 om 10:47

Hallo
Normaal gesproken is het display standaard uitgeschakeld.
U moet deze pictogrammen normaal gesproken selecteren om de annotaties/notities in de ASM of Parts weer te geven

vspemens · 30 november 2023 om 12:18

Dank u @Cyril_f voor dit antwoord. Dus hoe zorg ik ervoor dat het standaard blijft, want als ik mijn assemblage sluit, blijft het niet in het geheugen. Bij voorbaat dank.

Maclane · 30 november 2023 om 12:34

Hallo;
U moet uw instellingen opslaan in uw documentsjablonen (sldprt/sldasm).
Aan de andere kant, voor uw oude bestanden, tenzij u uw modellen opnieuw laadt, moet u ze met de hand opnieuw configureren (of een macro maken).

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

Schakel in deze macro de instellingen tussen Waar en Onwaar volgens uw verwachtingen...

Vriendelijke groeten.

Cyril_f · 30 november 2023 om 12:36

Normaal gesproken behoudt het door op te slaan de weergave-instelling.
En voor de andere assemblages die op basis van het model zijn gemaakt, moet u deze op dezelfde manier instellen en opslaan onder ASMDOT

vspemens · 30 november 2023 om 13:13

Bedankt voor je antwoorden, het is oké dat het display standaard is geactiveerd, aan de andere kant zie ik de notitie of opmerking die ik heb gemaakt niet, ik dacht dat ik het op het 3D-scherm zou zien, maar helemaal niets!! Tenzij er een andere methode is?

Cyril_f · 30 november 2023 om 13:14

Als ik me niet vergis, staan de annotatieaanzichten op een van de vlakken, dus alleen zichtbaar in bepaalde posities

Maclane · 30 november 2023 om 13:23

je moet ook nog even jongleren met de annotaties in de Treemanager:

Ofwel met de zichtbaarheid van " Onaangetaste objecten " of door gebruik te maken van de vlakken waarop de annotaties zijn gemaakt.
Het is eerlijk gezegd niet erg " Gebruiksvriendelijk "...

vspemens · 30 november 2023 om 14:11

Misschien is er een andere modus dan deze notities die ik niet ken om me een waarschuwing te laten zien bij het openen van mijn vergadering??

Maclane · 30 november 2023 om 14:27

Er zijn wel commentaren, maar die zijn ook niet per se erg zichtbaar.

(Te koppelen aan "Toon commentaarindicator" in de boomstructuur...)

Cyril_f · 30 november 2023 om 14:59

Er is de markering, maar die is hetzelfde, het is gefixeerd op een oriëntatie.
Een beetje barbaarse oplossing, maak een deel in de asm en maak een extrusie van een tekst