Datei schließen & öffnen ; crosspost.Lisp (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Datei schließen & öffnen ; crosspost.Lisp (1432 mal gelesen)
cadffm Ehrenmitglied V.I.P. h.c. 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 15. Aug. 2003 09:22 <-- editieren / zitieren --> Unities abgeben: Isch hätte gern..... ein "Zeichnung schließen (ohne speichern) und erneut öffnen Button ! - Jetzt wo endlich das Lt-feature mit dem Pulldown für "Zurück" in die Vollversion übernommen wurde ist es zwar eigentlich nicht mehr von Nöten, aber dennoch hätte ich sowas gern. Da ich in Lisp nur innerhalb einer Datei agieren kann wird das wohl damit nicht funktionieren (lasse mich aber liebend gern belehren). In VBa dürfte das aber doch möglich sein ... aktuelle Datei... 1. "merken" 2. schließen (ohne speichern) 3. erneut öffnen Befehl aufŽs KnöpfŽchen und der Sebastian hat ein tolles Geburtstagsgeschenk ! -wer hilft ? vielen dank an ALLE die sich an dem Thread beteiligen. ------------------ Gruß Sebastian Der Feind des Guten ist das Bessere. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Karsten HST Mitglied Bauingenieur Beiträge: 54 Registriert: 22.04.2003	erstellt am: 15. Aug. 2003 13:55 <-- editieren / zitieren --> Unities abgeben: Nur für cadffm OldName = ThisDrawing.FullName 'Zeichnungsname merken ThisDrawing.Close False 'Zeichnung schließen ohne speichern Documents.Open OldName 'Zeichnung wieder öffnen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
OlliBaer Mitglied Dipl. Ing. TGA Beiträge: 19 Registriert: 06.08.2003	erstellt am: 15. Aug. 2003 16:49 <-- editieren / zitieren --> Unities abgeben: Nur für cadffm Hallo, ich würde es so machen: Sub ButtonNeu() Dim ZGesamt As String ZGesamt = ThisDrawing.FullName If ThisDrawing.FullName <> "" Then ThisDrawing.Close (False) Documents.Open ZGesamt Else MsgBox ThisDrawing.Name & " wurde noch nicht gespeichert!" End If End Sub wenn es eine ungespeicherte Zeichnung ist, bekommt man sonst eine unschöne fehlermeldung ;-) bis dann Olli Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Ehrenmitglied V.I.P. h.c. 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 18. Aug. 2003 00:25 <-- editieren / zitieren --> Unities abgeben: habe kaum Zeit und CAD-Station zum testen (diese Antwort geht noch ) - vorab Danke, sieht toll aus - gebe nochmal bescheid... ------------------ Gruß Sebastian Der Feind des Guten ist das Bessere. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Ehrenmitglied V.I.P. h.c. 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 28. Aug. 2003 09:07 <-- editieren / zitieren --> Unities abgeben: ich werde es über Vba machen, ist "sauberer" \| statt Lisp/script danke an beide ! ------------------ Gruß Sebastian Die Befehlszeile ist dein Freund...lesen bildet ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)