---

Hallo zusammen!

Hoffe jemand hat ne lösung für mich!!!

Folgendes Problem: Ich hab eine Modelldatei die ich mit einem zusatz speichern möchte also z.B: die Zeichnung  C:\Zusammenbau.dwg soll zu C:\Zusammenbau_einfach.dwg werden. Dann läuft der rest des Lisp-Programmes und die Datei wird noch einmal gespeichert.

Wie könnte dieser "saveas" befehl aussehen?¿?¿?

mfg John

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

---

Hallo John,

in etwa so:

Code:

---

(defun c:FileSave ( / FilePfad)
  (setq FilePfad (strcat
               (getvar "DWGPREFIX")
               (cadr (fnsplitl (getvar "DWGNAME")))
               "_einfach"
               (caddr(fnsplitl (getvar "DWGNAME")))))

  (JB_FileSave:Command FilePfad)
  )

;;;per Command speichern, Dateiformat entsprechend
;;;"DefaultFormatForSave"
(defun JB_FileSave:Command (FilePfad / )
  (cond((=(getenv "DefaultFormatForSave")"48")
(if (findfile FilePfad)
  (command "_.saveas" "2010" FilePfad"_Y")
  (command "_.saveas" "2010" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"49")
(if (findfile FilePfad)
  (command "_.saveas" "DXF" "_v" "2010" "" FilePfad"_Y")
  (command "_.saveas" "DXF" "_v" "2010" "" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"36")
(if (findfile FilePfad)
  (command "_.saveas" "2007" FilePfad"_Y")
  (command "_.saveas" "2007" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"24")
(if (findfile FilePfad)
  (command "_.saveas" "2004" FilePfad"_Y")
  (command "_.saveas" "2004" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"37")
(if (findfile FilePfad)
  (command "_.saveas" "DXF" "_v" "2007" "" FilePfad"_Y")
  (command "_.saveas" "DXF" "_v" "2007" "" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"25")
(if (findfile FilePfad)
  (command "_.saveas" "DXF" "_v" "2004" "" FilePfad"_Y")
  (command "_.saveas" "DXF" "_v" "2004" "" FilePfad)))
       ((=(getenv "DefaultFormatForSave")"1")
(if (findfile FilePfad)
  (command "_.saveas" "DXF" "_v" "R12" "" FilePfad"_Y")
  (command "_.saveas" "DXF" "_v" "R12" "" FilePfad))))
  )

---

Angemerkt:
fnsplitl zerlegt den Dateinamen
wenn Du das 2013-Format berücksichtigen willst musst Du den Code erweitern

Ob es läuft weiß ich nicht, keine Zeit zum testen. Kannst Dich ja mal durchprobieren.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

[Diese Nachricht wurde von joern bosse am 19. Apr. 2012 editiert.]

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

---

Danke für die prompte Antwort!

Ziel soweit erfüllt !  ... jedoch hab ich den Unteren teil nicht verstanden =( ... war aber auch nicht notwendig da ich sowieso nur in 2004_format speichern wil

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