---

Servus

Hab mir ein kleine Lisp zusammengebastelt. Und Stosse nun an meine Grenzen  .

Macht:
Dieses Lisp Speichert mir einfach eine neue Version von z.B. "Zeichnung 01.dwg" als "Zeichnung 02.dwg" ab.
Soll:
Sie soll aber auch die "Zeichnung 01.dwg" in das Unterverzeichnis "_Alt-Varianten" verschieben.
Problem:
Mit "Shell" stosse ich an meine Grenzen da nachdem Befehl "move" shell fertig ist, und meine Pfadangaben in Acad nur Fehlermeldungen verursachen.
Frage:
Wie bekomm ich jetzt mit "Shell" od. sonstwie die "Zeichnung 01.dwg" in "_Alt-Varianten".

----------------------------------------------------------------------
(defun c:Variante (/ now next DWG_neu DWG_alt)
  (setq DWG_alt (strcat (getvar "dwgprefix") (getvar "DWGNAME")))
  (setq now (substr (getvar "DWGNAME") (- (strlen (getvar "dwgname")) 5) 2))
  (setq next
(if (= "01" now) "02" ;start prüft Version
  (if (= "02" now) "03"
    (if (= "03" now) "04"
      (if (= "04" now) "05"
(if (= "05" now) "06"
  (if (= "06" now) "07"
    (if (= "07" now) "08"
      (if (= "08" now) "09"
(if (= "09" now) "10"
  (if (= "10" now) "11"
    (if (= "11" now) "12"
      (if (= "12" now) "13" "tomuch")
      )
    )
  )
)
      )
    )
  )
)
      )
    )
  );end prüft Version
);end setq next
  (setq Datei (strcat (getvar "dwgprefix") (substr (getvar "DWGNAME") 1 (- (strlen (getvar "dwgname")) 6)) next))
  (command "_saveas" "" Datei)
  (command "shell" "move" dwg_alt (strcat (getvar "dwgprefix") "/_Alt-Varianten"))
  ); end Defun
----------------------------------------------------------------------

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

... wenn mit shell, dann z.b. so :

(command "shell" "move D:\\t.dwg C:\\t.old")

!!! man beachte die Position der "" !!!

... move kann auch gleich mit umbenennen

P.S. nutz doch vl-filecopy  und das mit mit dem neuen Namen .. naja.

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 08. Jul. 2004 editiert.]

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

---

THX Cadmium

Hast mir guten Tipp gegeben mit "vl-file-rename" funktioniert fast wie move. 

OK falls wer das Lisp haben will.

;;; ***********************************************************************
;;; Speichert die aktulle z.B."Zeichnung 01.dwg" als z.B."Zeichnung 02.dwg" ab
;;; und verschiebt die "Zeichnung 01.dwg" in den Ordner "_Alt-Varianten" (im Verzeichnis der "Zeichnung 01.dwg")
;;;***********************************************************************

(defun c:Variante (/ now next DWG_neu DWG_alt DWG_alt_VZ)
  (setq DWG_alt (strcat (getvar "dwgprefix") (getvar "DWGNAME")))
  (setq DWG_alt_VZ (strcat (getvar "dwgprefix") "/_Alt-Varianten/" (getvar "DWGNAME")))
  (setq now (substr (getvar "DWGNAME") (- (strlen (getvar "dwgname")) 5) 2))
  (setq next
(if (= "01" now) "02" ;start prüft Version
  (if (= "02" now) "03"
    (if (= "03" now) "04"
      (if (= "04" now) "05"
(if (= "05" now) "06"
  (if (= "06" now) "07"
    (if (= "07" now) "08"
      (if (= "08" now) "09"
(if (= "09" now) "10"
  (if (= "10" now) "11"
    (if (= "11" now) "12"
      (if (= "12" now) "13" "tomuch")
      )
    )
  )
)
      )
    )
  )
)
      )
    )
  );end prüft Version
);end setq next
  (setq Datei (strcat (getvar "dwgprefix") (substr (getvar "DWGNAME") 1 (- (strlen (getvar "dwgname")) 6)) next))
  (command "_saveas" "" Datei)
  (vl-file-rename dwg_alt DWG_alt_VZ)
  ); end Defun

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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