---

Hallo,
ich möchte mit einem Makro u.a. die Umschaltung der Ansicht des Teils/der Baugruppe auf "Schattiert mit Kanten" bewerkstelligen.
Dazu habe ich dieses Makro mit dem Makrorecorder aufgenommen:

Option Explicit
' **********************************************
' Macro1.swb - macro recorded on 04/05/06 by RKB
' **********************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ViewDisplayShadedWithEdges
End Sub

Leider kennt aber SWX seinen selbst aufgezeichneten Befehl "Part.ViewDisplayShadedWithEdges" nicht.
Es kommt die Meldung "Laufzeitfehler 438: Objekt untertsützt diese Eigenschaft oder Methode nicht" und ich komme über diese Programmzeile nicht hinweg.
Weiß jemand eine andere Möglichkeit, per API die Umschaltung auf "Schattiert mit Kanten" zu realisieren?
Viele Grüße
Thomas

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

---

Zitat:

---

Original erstellt von Thomas5:
Weiß jemand eine andere Möglichkeit, per API die Umschaltung auf "Schattiert mit Kanten" zu realisieren?
Viele Grüße
Thomas

---

probier mal:

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set PartView = Part.ActiveView
PartView.DisplayMode = 5
End Sub

damit sollte es klappen !

------------------
mfg uc

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

---

Zitat:

---

Original erstellt von u.clemens:
damit sollte es klappen !

---

... und es hat geklappt.
Vielen Dank und viele Grüße!
Thomas

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