| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Brühl und CIDEON: Synergien schaffen Wettbewerbsvorteile , ein Anwenderbericht
|
Autor
|
Thema: dateien im jeweiligen Format speichern (1513 mal gelesen)
|
joeycool Mitglied Ingenieur TGA
Beiträge: 1455 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: 1989 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: 1455 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: 1455 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: 13527 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 >>)
|