---

Ausblenden_Name.JPG

Hallo zusammen,

ich habe ein Makro, welches die Sichtbarkeit steuert.
Dieses möchte ich erweitern um die (siehe Beigefütes Bild) angezeigten Schaltflächen.

Da ich nicht weiß wie die Schaltflächen im VBA Editor angesprochen werden wollen, kann ich das dann nicht.

Wer weiß wie die Schaltflächen genannt werden, um dann in meinem Makro ausgeblendet werden sollen.

Danke!

[Diese Nachricht wurde von swx-cad-nutzer am 22. Nov. 2018 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hier wird mir geholfen:

http://help.solidworks.com/2018/english/api/swconst/viewhideshow.htm

und tatsächlich! Ich als DAU-User Makro umbauer habe es hinbekommen. Es funktioniert! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Makro:

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCoordSystems, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCurves, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketches, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayOrigins, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferencePoints2, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAllAnnotations, True)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCompAnnotations, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLiveSections, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCenterOfMassSymbol, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewSketchRelations, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDatumCoordSystems, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPartingLines, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swGridDisplay, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLights, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketchPlanes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayDecals, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swShowDimensionNames, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayWeldBead, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCameras, False)

    Set SelMgr = Part.SelectionManager
    Set swFeatMgr = Part.FeatureManager
    swFeatMgr.ShowFeatureName = True 'Feature Namen
    swFeatMgr.ShowFeatureDescription = False 'Feature-Beschreibungen
    swFeatMgr.ShowComponentDescriptions = True 'Komponentenbeschreibung
    swFeatMgr.ShowComponentNames = True 'Komponentennamen
    swFeatMgr.ShowComponentConfigurationNames = True ' Konfigurationsnamen der Komponente
    swFeatMgr.ShowComponentConfigurationDescriptions = False ' Konfigurationsbeschreibung der Komponente
    swFeatMgr.ShowDisplayStateNames = False 'Anzeigestatus ab SW 2012
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP