---

Hallo Zusammen,

ich habe ein Makro das mir alle Hintergrundelemente ausblendet.
Zu finden sind diese unter den Pull-Down Menü Ansicht.

das klappt mit allen ausser mit den Trennfugen.

Hier mal ein paar Zeilen aus meinem Makro:

boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayLiveSections, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, False)
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayOrigins, False)

Mit dem Makrorecorder bekomme ich aber keine Zeile, warum auch immer.

Kann mir jemand sagen wie die Zeile für die Trennfugen lautet ?

Danke

------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen !

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

---

Hallo Joshua,

wie es scheint gibt es hier keinen Befehl dazu, weil wenn man in der Hilfe nach "swUserPreferenceToggle_e.swViewDisplayHideAllTypes" sucht findet man eine Liste mit allen möglichen Dingen die man ausblenden kann und die Trennfuge habe ich da jetzt nicht entdeckt.

[EDIT]Nach ein bisschen suche in der API-Hilfe habe ich zumindest den Command gefunden der das Ausführen des Befehls wiedergibt.

Code:

---

swModelDocExt.RunCommand swCommands_ViewPartingLines, "ViewPartingLines"

---

Leider gibt der Command nur stupide an "Drück das Knöpfen zum Ein-/Ausblenden der Trennfugen" unabhängig davon ob das Knöpfen schon gedrückt ist oder nicht, sprich wenn die Trennfugen eingeblendet sind, werden diese ausgeblendet und wenn sie ausgeblendet sind eben eingeblendet.
[/EDIT]

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 21. Dez. 2017 editiert.]

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

---

Hi,

ich hab im Internet auch nur Fragen dazu gefunden.
Leider keine Lösung......

Werd mal weiter suchen..

Danke

ciao

------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen !

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

---

Hallo,

hier mal eine Weg wie du alle Trennfugen über eine FeatureTraverse ausblenden könntest, hier werden aber die Trennfugen einzeln ausgeblendet und nicht Global.

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swFeat As Feature

Dim boolstatus As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel
    Set swFeat = swModel.FirstFeature

    Do While Not swFeat Is Nothing
   
        If swFeat.GetTypeName2 = "MoldPartingLine" Then
           
            boolstatus = swFeat.Select2(True, 1)
            swModel.BlankRefGeom
       
        End If
   
    Set swFeat = swFeat.GetNextFeature

    Loop

End Sub

---

Gruß
Bernd
------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 22. Dez. 2017 editiert.]

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