|
Autor
|
Thema: API Dokument schließen (2811 mal gelesen)
|
Jörg W
Mitglied
Maschinenbautechniker und CAD Admin
( Bin dabei: Tag steht noch nicht fest )
   Beiträge: 1074
Registriert: 12.07.2001 Win XP
SW2006 SP5.1
SW2008 SP3.0
Intel CORE2, 2,4 GHz
4GB DDRRam
Quadro FX1500
|
erstellt am: 23. Jan. 2003 15:01    Unities abgeben:          
Hallo API - ProfisWenn 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 |
gismo
Mitglied
SWX Support
Beiträge: 1020
Registriert: 05.03.2001 Dell M6300;
Quadro FX1600m;
Vista x64;
SWX2008Premium;
SWX2009 Premium;
Mehr läuft nicht auf Vista64
|
erstellt am: 23. Jan. 2003 15:30 Unities abgeben:
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 |
u.clemens
Mitglied
Konstrukteur
Beiträge: 841
Registriert: 04.07.2000 engineer's law
o cheap
o fast
o good
check only two !
|
erstellt am: 23. Jan. 2003 15:35 Unities abgeben:
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 |
StefanBerlitz
Guter-Geist-Moderator
IT Admin (CAx)
( Bin dabei: 2.-5.12 )
Beiträge: 5611
Registriert: 02.03.2000 I have not failed.
I've just found
10,000 ways
that won't work.
--Thomas Edison
|
erstellt am: 23. Jan. 2003 15:52 Unities abgeben:
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 |
Jörg W
Mitglied
Maschinenbautechniker und CAD Admin
( Bin dabei: Tag steht noch nicht fest )
Beiträge: 1074
Registriert: 12.07.2001 Win XP
SW2006 SP5.1
SW2008 SP3.0
Intel CORE2, 2,4 GHz
4GB DDRRam
Quadro FX1500
|
erstellt am: 24. Jan. 2003 07:45 Unities abgeben:
Hallo SpezisSuper  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 |
gismo
Mitglied
SWX Support
Beiträge: 1020
Registriert: 05.03.2001 Dell M6300;
Quadro FX1600m;
Vista x64;
SWX2008Premium;
SWX2009 Premium;
Mehr läuft nicht auf Vista64
|
erstellt am: 24. Jan. 2003 09:37 Unities abgeben:
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 |
Jörg W
Mitglied
Maschinenbautechniker und CAD Admin
( Bin dabei: Tag steht noch nicht fest )
Beiträge: 1074
Registriert: 12.07.2001 Win XP
SW2006 SP5.1
SW2008 SP3.0
Intel CORE2, 2,4 GHz
4GB DDRRam
Quadro FX1500
|
erstellt am: 24. Jan. 2003 09:41 Unities abgeben:
Hallo gismoDas 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 |
Jörg W
Mitglied
Maschinenbautechniker und CAD Admin
( Bin dabei: Tag steht noch nicht fest )
Beiträge: 1074
Registriert: 12.07.2001 Win XP
SW2006 SP5.1
SW2008 SP3.0
Intel CORE2, 2,4 GHz
4GB DDRRam
Quadro FX1500
|
erstellt am: 24. Jan. 2003 09:45 Unities abgeben:
Hallo zusammenUnd 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 |
gismo
Mitglied
SWX Support
Beiträge: 1020
Registriert: 05.03.2001 Dell M6300;
Quadro FX1600m;
Vista x64;
SWX2008Premium;
SWX2009 Premium;
Mehr läuft nicht auf Vista64
|
erstellt am: 24. Jan. 2003 09:46 Unities abgeben:
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 |
Jörg W
Mitglied
Maschinenbautechniker und CAD Admin
( Bin dabei: Tag steht noch nicht fest )
Beiträge: 1074
Registriert: 12.07.2001 Win XP
SW2006 SP5.1
SW2008 SP3.0
Intel CORE2, 2,4 GHz
4GB DDRRam
Quadro FX1500
|
erstellt am: 24. Jan. 2003 09:47 Unities abgeben:
Ich nochmalBin warscheinlich zu B...
auf ein neues ------------------
Pfürti Jörg W
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
|  |
THSEFA
Mitglied
Konstrukteur / CAD-Administrator
Beiträge: 572
Registriert: 27.11.2002 SWX 2009 SP 4.0
Windows XP Prof. SP3
Intel Core2Quad CPU
Q6600 2,4GHz
4 GB Ram
|
erstellt am: 08. Nov. 2006 10:55 Unities abgeben:
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 |
Foren auf CAD.de (alle Foren)
UBBFriend: Senden Sie diese Seite per eMail an einen Freund!
