---

hi all

wie kann ich über die API alle offenen dateien anzeigen lassen?

ich rufe ein fenster auf und will alle offenen dateien mit: retval = model.Lock() sperren.

oder soll ich das so oder so anders angehen?

gruss stefan

------------------
----------
encom GmbH

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

---

Aheu Stefan,

versuchs mal mit

retval = SldWorks.EnumDocuments2 ( )

Näheres dazu in der API-Hilfe.

Bis dann,
Kalle

------------------
-----------------------------------------
Es gibt immer mehr Lösungen als Probleme.

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

---

ahhh danke!!
genau das hatte ich gesucht aber nicht gefunden 

------------------
----------
encom GmbH

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

---

Hallo Zusammen,

genau das brauche ich auch. :-) Wenn ich das richtig verstanden habe, soll "EnumDocuments2()" mir alle "offenen" Dokumente (geladene Dokumente von SldWorks) liefern?! Allerdings weiss ich nicht, was für ein Typ der retval sein soll? Object wegen POINTER (laut API)?

Wenn ich den so setze, bekomme ich eine Fehlermeldung:
Lesen ist wegen der Eigenschaft nur Schreiben nicht möglich!

Also echt ... jeden Tag ein neues Problem :-)

Möchte einmal erleben, dass der schei... Rechner sagt:
Jens, überhaupt KEIN Problem! :-)

Lg JENS

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

---

Aheu Jens,

füge

Dim retval As SldWorks.EnumDocuments2

in Deinen Deklarationsblock ein und schon geht's.

Bis dann,
Kalle

------------------
-----------------------------------------
Es gibt immer mehr Lösungen als Probleme.

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

---

Aheu Jens,

ich glaub ich führ das mal noch etwas mehr aus, sonst kommt gleich die nächste Frage, da die API-Hilfe was das angeht ziemlich für'n Eimer ist (da gehört ein ordentliches Beispiel rein).
Hier mal eins was die nacheinander eine MessageBox mit dem Titel der ersten zwei Teile ausgibt:

Dim swApp As SldWorks.SldWorks
Dim ListOfDocuments As SldWorks.EnumDocuments2
Dim swModel As SldWorks.ModelDoc2
Dim lngDummy As Long
Sub main()

Set swApp = Application.SldWorks
Set ListOfDocuments = swApp.EnumDocuments2()
ListOfDocuments.Next 1, swModel, lngDummy
MsgBox swModel.GetTitle
ListOfDocuments.Next 1, swModel, lngDummy
MsgBox swModel.GetTitle
End Sub

ListOfDocuments.Next kriegt als ersten Parameter die Anzahl der Documente (Objekte), die es in ein Array von eben dieser Größe (der zweite Parameter) schreibt. Im Normalfall wird's wohl bei 1 und der normalen swModel Deklaration bleiben. In lngDummy wird dann noch reingeschrieben wieviele Documente übergeben worden sind (Du könntest ja mehr angeben als eigentlich offen sind). Neben Next gibt's da auch noch Skip (Elemente überspringen), Reset (die Liste wieder an den Anfang zurücksetzen) und Clone (was wohl kaum jemand brauchen wird).

Ich hoffe Du kannst hiermit ein bisschen was anfangen.

Bis dann,
Kalle

------------------
-----------------------------------------
Es gibt immer mehr Lösungen als Probleme.

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

---

Hallo zusammen,

ich mach in solchen Fällen einfach einen Loop über alle offenen Dokumente mit SldWorks.GetFirstDocument und dann im Loop ModelDoc.GetNext

Beispiel ist in der MakroMania im Makro Alle offenen Dateien speichern

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hallo Jungs,

danke Kalle, für den QuellText. :-)
Wenn ich das richtig verstanden habe (wahrscheinlich NEIN! :-)), dann ist "ListOfDocuments.Next 1, swModel, lngDummy" bzw. "ListOfDocuments" ein Zeiger, der auf die Liste der offenen Dokumente zeigt?! Und durch die Anweisung .Next1 "einfach" dazu gebracht wird auf das nächste Dokument zu zeigen!? Richtig?!

"lngDummy" habe ich noch nicht so recht verstanden! :-) Ich denke aber, dass es etwas mit "wieviele Elemete schon übergeben worden bzw. noch nicht übergeben worden sind" zutun hat. Fakt ist jedenfalls, dass wenn lngDummy = 0 ist, alle Dokumente "angezeigt" worden sind.

Da ich natürlich an allen Dokumenten interessiert bin, habe ich, man möge mir für meine fachliche Inkompetenz in Visual Basic verzeihen (bin erst seit einigen Wochen dabei), ein Beispiel für die Abfrage ALLER (Hallo, Stefan Berlitz :-)) Dokumente erstellt, was mir aber etwas sehr umständlich erscheint :-)

Das geht doch bestimmt vieeell einfacher?!

Dim swApp As SldWorks.SldWorks
Dim ListOfDocuments As SldWorks.EnumDocuments2
Dim swModel As SldWorks.ModelDoc2
Dim lngDummy As Long

Sub main()

Set swApp = Application.SldWorks
Set ListOfDocuments = swApp.EnumDocuments2()

If swApp.EnumDocuments2() Is Nothing Then
MsgBox ("Es ist kein Dokument geöffnet!")
Exit Sub
Else
Do
ListOfDocuments.Next 1, swModel, lngDummy
MsgBox (lngDummy)
If lngDummy = 0 Then
MsgBox ("Es wurden alle Dokumente ausgegeben!")
Exit Sub
End If
MsgBox swModel.GetTitle
Loop While lngDummy <> 0
End If
End Sub

Man beachte die Loop While Anweisung, da hätte ich auch HundKatzeMaus reinschreiben können :-)

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