---

Guten Morgen zusammen, leider bin ich im Netz nicht fündig geworden. Daher wäre es schön, wenn mir jemand von euch mal einen Vorschlag machen könnte.

Ich benötige folgende Funktionen welche in einem Makro ausgelagert werden sollen.

1.) Ich möchte in der Registerleiste in den Tab Feature springen können.

2.) Ich möchte im Fenster Feauturemanager auf den Tab FeatureManager springen können.

3.) Ich möchte per Makro die benutzerdefinierten Eigenschaftenvorlage (Vorlagenoption) ändern können.

Für Antworten Danke ich auch vorab.
Ich kann mit dem Makrorekorder leider diese Funktionen nicht aufzeichnen.

Gruss
Andre

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

---

Zu Punkt 3

------------------
Ich lehne es ab, anzuerkennen, dass es Unmöglichkeiten gibt - Henry Ford

[Diese Nachricht wurde von Malte70 am 27. Nov. 2023 editiert.]

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

---

1. Activate SOLIDWORKS CommandManager Tab Example (VBA)
2. Change Active Tab in Manager Pane Example (VBA)
3. CustomPropertyBuilderTemplate Property (IModelDocExtension)

------------------
21 ist nur die halbe Antwort.

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

---

Hallo zusammen,
vielen Dank für eure Hinweise. Mit kleinen Anpassungen habe ich alles hinbekommen.

Lösung zu Punkt 1

Rem Tab vom Featuremanager auf "Feature" setzen
Sub main()

Dim swApp          As SldWorks.SldWorks
Dim swModelDoc      As SldWorks.ModelDoc2
Dim swModelDocExt  As SldWorks.ModelDocExtension
Dim retval          As Boolean
Dim cmdTabs        As Variant
Dim activeTab      As String
Dim activeTabIndex  As Long

Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set swModelDocExt = swModelDoc.Extension

swModelDocExt.ActiveCommandTabIndex = 0
End Sub

Lösung zu Punkt 2

Rem In Tabs vom Feature Manager springen
Sub main2()

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExtension As SldWorks.ModelDocExtension
Dim swModelViewManager As SldWorks.ModelViewManager
Dim tabs As Variant
Dim nbrTabs As Long
Dim nbrTab As Long

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExtension = swModel.Extension
Set swModelViewManager = swModel.ModelViewManager

Rem FeatureManager anzeigen
swModelDocExtension.HideFeatureManager (False)

Rem In Tabs springen 0 = Feature Manager; 2 = Configuration Manager
swModelViewManager.ActiveFeatureManagerTabIndex = 0

End Sub

Lösung zu Punkt 3

Rem Eigenschaften Vorlage öffnen
Sub main3()
Dim swApp          As SldWorks.SldWorks
Dim swModelDoc      As SldWorks.ModelDoc2
Dim swModelDocExt  As SldWorks.ModelDocExtension
Dim retval          As Boolean
Dim cmdTabs        As Variant
Dim activeTab      As String
Dim activeTabIndex  As Long

Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set swModelDocExt = swModelDoc.Extension

swModelDocExt.CustomPropertyBuilderTemplate(False) = "Teile HOM Soft.prtprp"
Rem Registerkarten einmal Wechseln, damit die neuen Eigenschaften angezeigt werden
End Sub

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