Textfeld Assembly

vspemens · 30. November 2023 um 10:41

Hallo, ich möchte einen Text einfügen, der jedes Mal auf meiner 3D-Baugruppe angezeigt wird, wenn ich sie öffne, ich habe Anmerkungen/Notizen oder Kommentare im Feature-Manager-Baum mit Aktivierung meiner Notiz ausprobiert, aber es wird nichts angezeigt. Vielen Dank im Voraus.

Cyril.f · 30. November 2023 um 10:47

Hallo
Normalerweise ist die Anzeige standardmäßig deaktiviert.
Sie müssen diese Symbole normal auswählen, um die Anmerkungen/Notizen im ASM oder in Teilen anzuzeigen

vspemens · 30. November 2023 um 12:18

Vielen Dank @Cyril.f für diese Antwort. Wie kann ich also dafür sorgen, dass es standardmäßig bleibt, denn wenn ich meine Assembly schließe, verbleibt sie nicht im Arbeitsspeicher. Vielen Dank im Voraus.

Maclane · 30. November 2023 um 12:34

Hallo;
Sie sollten Ihre Einstellungen in Ihren Dokumentvorlagen (sldprt/sldasm) speichern.
Auf der anderen Seite müssen Sie Ihre alten Dateien, es sei denn, Sie laden Ihre Modelle neu, von Hand neu konfigurieren (oder ein Makro erstellen).

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

Schalten Sie in diesem Makro die Einstellungen zwischen Wahr und Falsch um, wie Sie es erwarten...

Herzliche Grüße.

Cyril.f · 30. November 2023 um 12:36

Normalerweise wird beim Speichern die Anzeigeeinstellung beibehalten.
Und für die anderen Baugruppen, die aus dem Modell erstellt werden, müssen Sie es auf die gleiche Weise einrichten und unter ASMDOT speichern

vspemens · 30. November 2023 um 13:13

Vielen Dank für Ihre Antworten, es ist in Ordnung, das Display ist standardmäßig aktiviert, auf der anderen Seite sehe ich die Notiz oder den Kommentar, den ich erstellt habe, nicht, ich dachte, ich würde es auf dem 3D-Bildschirm sehen, aber überhaupt nichts!! Es sei denn, es gibt eine andere Methode?

Cyril.f · 30. November 2023 um 13:14

Wenn ich mich nicht irre, befinden sich die Anmerkungsansichten auf einer der Ebenen, sind also nur an bestimmten Positionen sichtbar

Maclane · 30. November 2023 um 13:23

Sie müssen auch mit den Anmerkungen im Baummanager jonglieren:

Entweder mit der Sichtbarkeit von " Nicht betroffene Objekte " oder unter Verwendung der Ebenen, auf denen die Anmerkungen erstellt werden.
Es ist ehrlich gesagt nicht sehr " UserFriendly "...

vspemens · 30. November 2023 um 14:11

Vielleicht gibt es einen anderen Modus als diese Notizen, den ich nicht kenne, um mir beim Öffnen meiner Assembly eine Warnung anzuzeigen??

Maclane · 30. November 2023 um 14:27

Es gibt Kommentare, aber sie sind auch nicht unbedingt sehr sichtbar.

(Zu verknüpfen mit "Kommentarindikator anzeigen" in der Baumanzeige...)

Cyril.f · 30. November 2023 um 14:59

Es gibt die Markierung, aber sie ist die gleiche, sie ist auf eine Ausrichtung fixiert.
Eine etwas barbarische Lösung, erstellen Sie einen Teil im ASM und machen Sie eine Extrusion eines Textes