---

Hallo Zusammen,
wie kann ich eine befüllte ListBox (deren Optionshaken durch den User gesetzt werden) weiter abarbeiten in Richtung speichern/drucken o.ä.? Mir fehlt im wahrsten Sinne des Wortes irgendwie der richtige Anstoß. Kann mir da jemand einen Schubs in die richtige Richtung geben? Die Suche hier im Forum waren leider nicht besonders ergiebig.

1000 Dank!

------------------
Viele Grüße, THSEFA 

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

---

Hallo THSEFA,
evtl. so:

'Das gewählte Element (0-2) wird in der Eigenschaft SelectedIndex abgelegt.

Select Case ListBox1.SelectedIndex
  Case 0
  swApp.CloseDoc myDwgDoc.GetPathName  'Dokument schließen
  Case 1
  myDwgDoc.PrintDirect    'Dokument drucken
  Case 2
  Dim Model As Object
  Set Model = swApp.ActiveDoc
  Model.SaveAs2 saveFileName, 0, True, False    ' der Speichervorgang
End Select

Ich hoffe dass es dir weiterhilft und dass ist, was du gesucht hast.
Ich habe dieses Beispiel aus meinem Basic Buch abgeschrieben und die Anweisungen aus meinen Makros übernommen.
Viel Erfolg, Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo Andi,
sieht vielversprechend aus! 

Melde mich nachher, ob es funktioniert...

------------------
Viele Grüße, THSEFA 

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

---

Hallo Andi,
leider ist es mir nicht gelungen, die markierten Werte (Liststyle -> Option) damit abzuarbeiten.

Es muss doch möglich sein, diese Liste entsprechend der Option auszulesen (ob der Haken drin ist oder nicht). Hat noch jemand eine Idee hierzu? 

------------------
Viele Grüße, THSEFA 

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

---

Das hier geht zwar durch alles in der Liste durch, beachtet aber nicht die Auswahl, die der User getroffen hat...

Code:

---

dim filename as string
dim  nErrors As Long
dim nWarnings As Long
dim swapp as SldWorks.SldWorks
set swapp = Application.SldWorks

For i = 0 To ListBox1.ListCount - 1
filename= ListBox1.List(i)
swApp.OpenDoc6 filename, 1, swOpenDocOptions_Silent, "", nErrors, nWarnings
Next i

---

Bin so kurz davor, dass hier erfolgreich abzuschließen! Brauche echt nur den Anstoß...  

------------------
Viele Grüße, THSEFA    

[Diese Nachricht wurde von THSEFA am 13. Jan. 2012 editiert.]

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

---

Hallo THSEFA,
kannst du mir mal das Makro zur Verfügung stellen?
Vielleicht bin ich auf dem anderen Auge als du blind und zusammen hätten wir dann zwei. 

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Zitat:

---

Original erstellt von Andi Beck:
Hallo THSEFA,
kannst du mir mal das Makro zur Verfügung stellen?
Vielleicht bin ich auf dem anderen Auge als du blind und zusammen hätten wir dann zwei.  

Grüße, Andi  

---

...hoffentlich sind dass dann die beiden richtigen!

Am Montag stelle ich es hier rein, vorher komme ich da nicht wieder ran. Du wirst ganz scher eine gewisse Ähnlichkeit mit deinem Assembly-Print-Drawings-Makro bemerken, da es der Ideengeber für die Lösung  meines Problems war. Jetzt aber hab ich erst mal WE und brauch erst mal etwas Abstand. Trotzdem schon mal ein herzliches Dankeschön für deine Bereitschaft mir weiterhelfen zu wollen.

Schönes Wochenende, bis Montag! 

------------------
Viele Grüße, THSEFA 

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

---

CT-Freigabe03.zip

Hallo Zusammen,
anbei das Makro, in welchem sich mein Problemchen versteckt.

Das mit der Auswahl habe ich in der Zwischenzeit lösen können, aber es tat sich ein neuer Abgrund auf. Die Listbox wird im "Private Sub cmdExport" ausgelesen. Nun möchte ich eben dieses Teil öffnen. Leider weigert sich SolidWorks störrisch, die Datei auch tatsächlich zu öffnen. Hab nun schon fast alles ausprobiert, was ich so kenne und auch gefunden habe. Leider ohne Erfolg. Wer möchte hier nochmal drüberschauen um mir eventuell einen Tipp geben zu können?

PS: Das ganze hat noch den ultimativen Beta-Status... 

------------------
Viele Grüße, THSEFA 

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

---

CT-Freigabe03-AB-01.zip

Hallo THSEFA,
jetzt nur noch auf die schnelle, weil es mal wieder viel zu spät ist. 
Ich habe mit dem OpenDoc6 auch keinen Erfolg gehabt, warum auch immer.
Jetzt habe ich es mit einem anderen Befehl aufgemacht.
Schau es dir mal an.

Ich muss dir zu ein paar anderen Sachen Morgen noch einiges Sagen.
Dazu ist es mir jetzt aber zu Spät.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Zitat:

---

Original erstellt von Andi Beck:
...Dazu ist es mir jetzt aber zu Spät.

Grüße, Andi  

---

Das kann ich mir vorstellen!!! 

Hab erst mal vielen Dank, soweit funktioniert es bei meiner Test-BG. Hab zwar spät abends auch noch einen Weg gefunden, aber so kann ich wenigstens mal einen Weg  auswählen... 

------------------
Viele Grüße, THSEFA 

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

---

CT-Freigabe05.zip

Hallo Andi,
hier nochmal mein Makro, welches jetzt schon funktioniert! 

Aber sauber programmieren ist ganz sicher was anderes! 

------------------
Viele Grüße, THSEFA 

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

---

Hallo THSEFA,
schönes Makro geworden.
Ich musste erst mal meine Testbaugruppe tunen, da ich weder Freigaben noch deine Artikelnummer verwende.
Nun sind mir 2 Sachen aufgefallen die du evtl. mal Überprüfen solltest.

Bei mir kommt immer bei der Zeichnung der obersten Baugruppe der Hinweis, ob dieses Teil aufgelistet werden soll, da nicht freigegeben. Bei mir sind aber Baugruppe und Zeichnung freigegeben.

Hat eine Zeichnung nicht die Eigenschaft "Artikelnummer", habe ich einen Totalabsturz von SW.
Füge ich diese Eigenschaft nachträglich ein, läuft das Makro an dieser Stelle weiter und kein Absturz mehr.

Für mich ist das zwar nicht so wichtig, da ich dieses Makro nicht einsetzen werde, aber doch sehr Interessant, weil ich einige Anregungen bzgl. Assembly-Print-Drawings erhalten habe.

Sei gegrüsst, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo Andi,
erst nochmal vielen Dank für deine wertvollen Tipps! Und wäre deine Vorlage nicht, dann würde ich heute immer noch jedes Teil und Zeichnung aus einer Baugruppe einzeln in den benötigten Formaten abspeichern... 

Das mit der Freigabe habe ich auch bemerkt, als ich das Makro erstmals an einer anderen Baugruppe getestet hatte. Das mit der fehlenden Artikelnummer aber habe ich noch nicht bemerkt! 
Da mache ich mich heute gleich mal auf die Suche. Zum Glück gehts erst nächste Woche richtig los bei uns, daher kann ich mir die Zeit noch nehmen.

Ich freue mich, wenn ich dir wenigstens eine Anregung geben konnte, denn die vergebenen ÜŽs allein sind eigentlich viel zu wenig für deine Unterstützung!

Also nochmals recht herzlichen Dank!

------------------
Viele Grüße, THSEFA 

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

---

Hallo Thsefa,
das mit der obersten Baugruppe und der Freigabe habe ich schon eine konkrete Vermutung.
Dieser Fehler ist wahrscheinlich schon in Assembly-Print-Drawings enthalten.
Ist mir nur nicht aufgefallen, weil ich die Funktion selber nicht nütze.
Ich schau heute abend mal danach und geb dir Bescheid.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Mir ist auch noch ein Fehler aufgefallen: wenn die oberste Baugruppenzeichnung auch mit auf ist, bringts beim PDF-Erstellen den Code durcheinander. Hab ich gerade korrigiert... 

Ich such mal noch weiter nach Fehlern und stelle heute Abend die neueste Version hier rein!

------------------
Viele Grüße, THSEFA 

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