---

Hallo zusammen,

eigentlich bin ich im Inventor unterwegs, aber ich will aktuell einen Kumpel in SW und VBA unterstützen bzw. Ihn ein bisschen VBA zeigen...
Deswegen habe ich zu ihm gemeint, dass er im VBA-Editor einfach mal die Applikation und das aktive Dokument zuweisen und im Lokalfenster die Objekte aufklappen soll.
Im Inventor kann man sich so das Objektmodell der Applikation und des aktiven Dokuments anschauen.
Zu meiner Verwunderung waren jedoch beide Objekte in SW im Lokalfenster leer.

Eine Suche hierzu hat mir leider keine Ergebnisse geliefert, weswegen ich hier mal nachfragen möchte.

Was mach ich falsch? 

Aktuelle Vorgehensweise:

- VBA-Editor öffnen
- Lokalfenster anzeigen lassen
- Code unten einfügen
- F8 Schrittweise den Code durchlaufen
- Zugewiesenes Objekt im Lokalfenster aufklappen » Leer 

Danke und Grüße
MB-Ing.

Code:

---

Dim swApp As Object
Dim Part As Object

Sub TestSw()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

End Sub

---

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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

---

Hallo,

du hast swApp und swPart nur generisch als Object dimensioniert. Daher weiß der VBE nicht was für Eigenschaften und Methoden zur Verfügung stehen.

Dimensioniere wie folgt:

Code:

---

dim swApp as SldWorks.SldWorks
dim swPart as ModelDoc 'oder auch ModelDoc2

---

[Diese Nachricht wurde von R3vo am 02. Mai. 2023 editiert.]

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

---

Zitat:

---

Original erstellt von R3vo:
Hallo,

du hast swApp und swPart nur generisch als Object dimensioniert. Daher weiß der VBE nicht was für Eigenschaften und Methoden zur Verfügung stehen.

Dimensioniere wie folgt:

Code:

---

dim swApp as SldWorks.SldWorks
dim swPart as ModelDoc 'oder auch ModelDoc2

---

[Diese Nachricht wurde von R3vo am 02. Mai. 2023 editiert.]

---

@R3vo:
Vielen Dank für Deinen Hinweis. Da hast Du natürlich Recht. :)

Aber auch nach der Modifikation ist das Objekt im Lokalfenster leer. :(

Danke und Grüße
MB-Ing.

Code:

---

Sub TestSw()

Dim swApp as SldWorks.SldWorks
Dim swPart as ModelDoc 'oder auch ModelDoc2

Set swApp = Application.SldWorks
Set swPart = swApp.ActiveDoc

End Sub

---

------------------
Wissen ist Macht. Nichts wissen macht auch nichts  

[Diese Nachricht wurde von mb-ing am 02. Mai. 2023 editiert.]

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

---

Gab es kürzlich schon.
siehe -> Thema:  Einsicht von Objekten und untergeordneten Objekten im vba-Editor

Zitat:

---

Das liegt daran das du z.B. swApp als SldWorks oder als Object deklariert hast.
Wenn du es als iSldWorks deklarierst siehst du auch die ganzen Variablen und Objekte.
Das liegt daran das die Standard-Objekte in SWX-API alles Objects sind, mit dem i voran sind sie dann Typenkonform.

---

Für die meisten SWX-Objekte gibt es eine Alternative mit dem vorangestelltem "i".

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

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

---

Zitat:

---

Original erstellt von HenryV:
Gab es kürzlich schon.
siehe -> Thema:  Einsicht von Objekten und untergeordneten Objekten im vba-Editor

Für die meisten SWX-Objekte gibt es eine Alternative mit dem vorangestelltem "i".

---

@HenryV:

Vielen herzlichen Dank für Deine Antwort und Lösung.

Sorry für den unnötigen Thread, aber den Anderen habe ich leider nicht gefunden 

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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

---

Kein Problem.
Hab den den Thread auch erst nach längerem Suchen wiedergefunden.

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

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