| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: dateien im jeweiligen Format speichern (1463 mal gelesen)
|
joeycool
Mitglied
Ingenieur TGA
   Beiträge: 1451
Registriert: 01.06.2004 MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200
|
erstellt am: 23. Mai. 2013 12:33  <-- editieren / zitieren -->   Unities abgeben:          
|
cad4fun
Ehrenmitglied
Beiträge: 1846
Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008
|
erstellt am: 23. Mai. 2013 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für joeycool 
|
CADwiesel
Moderator
CAD4FM UG
    
Beiträge: 1968
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 24. Mai. 2013 07:56 <-- editieren / zitieren --> Unities abgeben: Nur für joeycool
du könntest dir einen Button erstellen, mit dem du folgendes lisp aufrufst: Code:
(defun c:save_as_i_want( / DAT_ID ZEILE dat_name)
(vl-load-com)
(if(and(not(vl-catch-all-error-p(setq DAT_ID (vl-catch-all-apply 'open (list (setq dat_name(strcat(getvar"dwgprefix")(getvar"dwgname"))) "r")))))
(setq ZEILE (read-line DAT_ID))
)
(progn
(close DAT_ID)
(cond
((= (substr ZEILE 1 6) "AC1009") (setq as 'acR12_DWG))
((= (substr ZEILE 1 6) "AC1012") (setq as acR13_DWG))
((= (substr ZEILE 1 6) "AC1014") (setq as acR14_DWG))
((= (substr ZEILE 1 6) "AC1015") (setq as ac2000_dwg))
((= (substr ZEILE 1 6) "AC1018") (setq as ac2004_dwg))
((= (substr ZEILE 1 6) "AC1021") (setq as ac2007_dwg))
((= (substr ZEILE 1 6) "AC1024") (setq as ac2010_dwg))
)
(vl-catch-all-apply
'vla-SaveAs
(list (vla-get-activedocument(vlax-get-acad-object)) dat_name as)
)
)
)
)
Die Dateiversion wird durch lesen des ascii Dateieintrages am Anfang der Zeichnungsdatei ermittelt und dementsprechend hinterher auch wieder gespeichert. ------------------
Gruß
 CADwiesel
Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joeycool
Mitglied
Ingenieur TGA
Beiträge: 1451
Registriert: 01.06.2004 MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200
|
erstellt am: 24. Mai. 2013 08:21 <-- editieren / zitieren --> Unities abgeben:
|
joeycool
Mitglied
Ingenieur TGA
Beiträge: 1451
Registriert: 01.06.2004 MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200
|
erstellt am: 17. Jun. 2013 11:41 <-- editieren / zitieren --> Unities abgeben:
Moin zusammen, das Teil tut ja jetzt genau, was es soll, und ich habe alle zugänglichen Speicherbefehle (in Werkzeugkästen, Menüs, und Registerkarten) entsprechend umgeschrieben. Wie komm ich aber jetzt an die Speicherfunktionen, die beim Schliessen einer Datei (oder des Programms) über das Fenster "Änderungen speichern, ja, nein, abbrechen" aktiviert werden? Joeycool Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13508
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 17. Jun. 2013 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für joeycool
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
- 
