---

Hallo API - Profis

Wenn ich bei einer Datei mal vergessen habe vor dem Speichern die Ansicht auf den best möglichen Zoomfaktor einzustellen, habe ich beim nächsten öffnen in der Voransicht zu 70 % eine Detailansicht bei der ich das Teil oder die Baugruppe nicht richtig erkennen kann.

Deshalb habe ich mir ein Makro erstellt, mit dem ich ein Teil oder Baugruppe in der isometrischen Ansicht und Zeichnungen in der größt möglichen Ansicht abspeichern kann.

Da ich das Makro immer erst am Ende der Bearbeitung einsetze, schließe ich anschließend diese Datei.
Jetzt habe ich versucht das Schließen der Datei noch in mein Makro einzubauen, habe es aber nicht geschafft da ich leider in VBA nicht so fitt bin.

Wer kann mir dabei helfen??

Hier ist noch das vorhandene Makro:

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.ShowNamedView2 "*Isometrisch", 7
Part.Save2 False
Part.ViewZoomtofit2
Part.Save2 False
End Sub

Habe es mit:
Set Part = Nothing
swApp.CloseDoc "Teil1"
Set swApp = Nothing

versucht, aber die Datei wird nach dem Speichern nicht geschlossen.

Was mache ich da Falsch 

------------------
Pfürti Jörg W 

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

---

Hi Jörg,
soweit ich weiss musst Du bei closeDoc den gesamten Dateinamen angeben. Versuchs doch mal hiermit:

Name = Part.GetPathName()
swApp.CloseDoc Name

So mache ich das in meinen Makros!!

[edit] Hey, das war mein 300. Beitrag  ich schmeiss 'ne virtuelle Runde Bier (und für Stefan 'nen Cappuccino ] [/edit]

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

[Diese Nachricht wurde von gismo am 23. Januar 2003 editiert.]

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

---

Ich würd es ja mit
ModelDoc.Close bzw in Deinem Fall Part.Close machen.
Geht das nicht ?
In der API-Hilfe steht dazu: This function closes the current document
Das muß doch gehen.

------------------
mfg uc

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

---

Hallo Jörg,

ich mach das so ähnlich wie gismo mit

SwApp.CloseDoc Part.GetTitle

Du siehst, auch beid er API führen viele Wege nach Rom.

Ciao,
Stefan

PS: Superklasse Thomas, und danke für den Capuccino 

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

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

---

anpassen,speichernundschließen.zip

Hallo Spezis

Super    mit der Antwort von Gismo hat es funktioniert.
Ich geb auch noch ne Runde
Unities sind unterwegs

@ Gismo
Glückwunsch und mach weiter so. Wir lieben Dich

@ Stefan
Habe dir noch mal das komplette Makro für die Makro Tauschbörse mitgeschickt.

------------------
Pfürti Jörg W 

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

---

Moin Jörg,
vielen Dank für die "Blumen". Ich schäm mich ja richtig *rotanlauf* 
Was ich eigentlich sagen wollte: irgendwas klappt mit dem Download der Datei nicht. Könntest Du die nochmal hochladen? (evtl. ohne Komma im Dateimnamen?)
Vielen Dank im Voraus!

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

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

---

anpassen-speichern-schließen.zip

Hallo gismo

Das ist mir aber jetzt peinlich 
Also hier der zweite Versuch

------------------
Pfürti Jörg W 

[Diese Nachricht wurde von Jörg W am 24. Januar 2003 editiert.]

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

---

anpassen_speichern_schließen.zip

Hallo zusammen

Und der dritte Versuch
Ich hoffe das ich das heute noch hinbekomme

------------------
Pfürti Jörg W 

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

---

Hi Jörg,
es klappt immer noch nicht. Nimm mal das ß raus und tausche es gegen ss. Das ist glaub ich das Problem!!

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

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

---

Makro.zip

Ich nochmal

Bin warscheinlich zu B...
auf ein neues

------------------
Pfürti Jörg W 

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

---

Da das Thema grad aktuell war, hab ich gleich mal eine Frage dazu: Funktioniert das Makro auch in SWX 2007? Hat da schon jemand was ausprobiert?

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

KnightFight

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