Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Zeichnungsversionen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Zeichnungsversionen (399 mal gelesen)
sigy
Mitglied



Sehen Sie sich das Profil von sigy an!   Senden Sie eine Private Message an sigy  Schreiben Sie einen Gästebucheintrag für sigy

Beiträge: 32
Registriert: 24.09.2004

Win XP P4 3GHz 1GB RAM
MDT6 SP4

erstellt am: 24. Sep. 2004 13:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,
Da es bei 3-D-Modellen immer mal wieder zu Schwierigkeiten (oder Abstürzen) kommen kann habe ich mir ein kleines Programm geschrieben, das schnell eine Zeichnung unter neuen, Datum-bezogenen Namen abspeichert. Dann kann ich auf eine ältere Version zurückgreifen.
Vielleicht kann es jemand brauchen.


(defun c:spals ()
;;;Die geöffnete Datei hat den Namen: "zchngname-24-1207.dwg"
  (setq oname1 (getvar "dwgname"))
  (setq oname0 (getvar "DWGPREFIX"))
  (setq oname (strcat oname0 oname1))
  (if (= oname "" ) (command "sichals" "2000")
(progn
  (setq lname (strlen oname))
  (setq oname (substr oname 1 (- lname 11)))
    (setq cd(rtos(getvar"cdate")2 6))
(setq cd (strcat
    oname
    (substr cd 7 2)
    "-"
    (substr cd 10 4)
".dwg"
    ))
    (print cd)
;;;Am 24. wird um 12:30 unter "zchngname-24-1230.dwg abgespeichert
  (command "sichals" "2000" cd)
  ))
  )


------------------
Konstruktive Grüße
sigy

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz