---

Hallo zusammen...

... diese Frage richtet sich an die VB'ler.

Ist es möglich alle Konfiurationsnamen einer SoWo-Datei (sldprt, sldasm) mittels Visual Basic auszulesen und in einer Variable zu speichern ??

Mir fehlt da jeglicher Ansatz.

------------------
Gruß Erhard

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

---

Hallo Erhard,
Der Befehl müsste lauten: GetConfigurationNames
Soweit ich weiss sind die Namen dann in einem Variant gespeichert. Die kannst Du dann mit einer Schleife auslesen.
Such einfach mal in der API Hilfe nach obigem Stichwort, dann findest Du die genaue Sytax. Leider kann ich Dir von zu Hause aus nicht genauer helfen. (Ich bekomme den Dongel leider nicht mit nach Hause  )

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Hallo Erhard,

wie gismo schon gesagt hat (und das sogar ohne SolidWorks  )brauchst du dafür die Calls ModelDoc.GetConfigurationCount und ModelDoc.GetConfigurationNames. Beispiele dafür kannst z.B. auf http://swtools.cad.de finden (Bereich Makros, die Nummern mm_09a oder mm22) oder in der MakroMania-Sektion auf http://solidworks.cad.de

Ciao und schönes Wochenende,
Stefan

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

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

---

HI Stefan,
ja die Befehle kenn ich (fast) Auswendig, nachdem ich mich eine ganze Weile damit herumgeschlagen habe und immer noch muß. 
LEider funzt mein Makro immer noch nicht so, wie ich es will  Aber ich bleibe dran!
Ich wünsche euch noch ein schönes restliches Wochenende (Ohne CAD?!)

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Vielen Dank für die raschen Antworten.

Dieser Code (aus der API-Hilfe) funktioniert recht gut....

Private Sub Command1_Click()
Call GetConfigurationList
End Sub
Sub GetConfigurationList()
Dim swApp As Object
Dim Part As Object
Dim numConfigs As Long
Dim Names As Variant

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Part = swApp.modelDoc()
numConfigs = Part.GetConfigurationCount()  'How many configurations do we have?
Names = Part.GetConfigurationNames()  'store the name(s) of the configurations
For i = 0 To (numConfigs - 1)
    'message = "Config #" + Str(i) + " is: " + Names(i)
    'swApp.SendMsgToUser (message) ' Send message to the user
    Debug.Print Names(i)
Next
Set Part = Nothing ' Clean up variables
Set swApp = Nothing
End Sub

....jedoch würde ich gerne die Konfigurationen auslesen ohne die Datei
im SoWo offen zu haben.
Jetzt hab ich schon den halben Tag rumprobiert, komm allerdings nicht weiter.
Anstatt dieser Zeile

Set Part = swApp.ActiveDoc

wäre irgend ein anderer Befehl nötig, um einen Pfad\Datei angeben zu können.
Geht das überhaupt?

------------------
Gruß Erhard

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

---

Hi Erhard,
soweit ich weiss, geht das leider nicht.

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Schade

Trotzdem Danke

------------------
Gruß Erhard

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