---

Hallo

ich bin kein Programmierer und habe kaum LISP Kenntnisse.
Vielleicht kann mir irgendjemand helfen.

Ich habe AutoCAD 2004, öffne eine beliebige Datei, kopiere mir über die Zwischenablage einige Elemente und schließe diese Datei wieder.
Dann erstelle ich eine neue Datei mit Vorlage und kopiere diese Elemente hinein.

Nun möchte ich die Datei wieder unter den Dateinamen der ursprünglichen Datei speichern und die alte überschreiben.

Wie kann ich der neuen Datei den alten Dateinamen geben?
Ich habe schon den alten Dateinamen in eine Textdatei geschrieben mit:

(setq NAME (open "dateiname.txt" "w"))
(write-line (getvar 'dwgname) NAME)
(close NAME)

und erhalte diesen auch wieder in der neuen Datei mit:
(setq NAME (open "dateiname.txt" "r"))
(read-line NAME)

Wie bekomme ich diesen jetzt noch ins _save Kommando (inkl. Verzeichnis)

------------------
Gruß Steffen
www.datenaustausch.com

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

---

Hallo Stffen,

zunächst würde ich die Datei mit Pfad auslesen, dann würde es so aussehen.

Code:

---

(setq NAME (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
      f (open "c:\\name.txt" "w")
      )
(write-line NAME f)
(close f)
;...
(setq f (open "c:\\name.txt" "r"))
(setq NAME (read-line f))
(close f)
(command "_.saveas" "" NAME)

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

hmmpf holger war schneller :-)

egal setze es trotzdem rein, da ich es etwas anders gestalte....wie auch immer ;-)

Code:

---

(defun c:saveNew2Old (/ key val)
  (setq key "HKEY_CURRENT_USER\\Software\\MeinSchlüssel"
val "FileName"
  ) ;_ end setq
  (if (vl-registry-read key val)
    (progn (princ "\n...speichere ")
  (command "_.saveas" "" (vl-registry-read key val) "J")
  (vl-registry-delete key val)
    ) ;_ end progn
    (progn
      (princ "\n...lese Dateinamen und Pfad aus")
      (vl-registry-write key val (strcat (getvar "dwgprefix") (getvar "dwgname")))
    ) ;_ end progn
  ) ;_ end if
  (princ)
) ;_ end defun

---

mein fitzelsp schreibt in die registry und nachdem ein _saveas ausgeführt wurde, wird der wert auch wieder gelöscht. dient auch als sicherheit.
als erstes prüft es, ob ein wert "meinSchlüssel" existiert, wenn ja wird ausgelesen und gespeichert.
existiert der schlüssel nicht, dann wird er halt erstellt.

falls du aus sicherheits gründen beim _saveas eine rückfrage haben möchtest, ob überschrieben werden soll, dann mußt du nur im command befehl das hier löschen --> "J" !!

[Diese Nachricht wurde von benwisch am 24. Juni 2003 editiert.]

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

---

Danke euch beiden

das hat geholfen.

------------------
Gruß Steffen
www.datenaustausch.com

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

---

Hi Benwisch,
prima Idee, das mit dem Speichern in der Registrierung...
Aber wie sieht es denn damit aus, wenn der angemeldete Benutzer keine Schreibrechte auf die Registrierung hat? Hast Du da irgendwelche Erfahrungen gemacht?

------------------
Ciao,
Marc

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

---

hi marc
dann muß es ja zwangsläufig zu einer fehlermeldung kommen. aber gibt es dann nicht auch probleme mit acad ?? acad schreibt ja auch werte in reg, z.b. wenn ein programm in die startgruppe gelegt wird, oder ein neuer supportpfad gesetzt wird. IMHO müßte hier, dann das bet-system einen riegel vorschieben...hmmm denke da gerade an die vorgabe von acad, daß man als hauptnutzer angemeldet sein muß !

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

---

Hi Benwisch,
"hmmm denke da gerade an die vorgabe von acad, daß man als hauptnutzer angemeldet sein muß!"

... was ja ab 2004 nicht mehr der Fall sein soll...

------------------
Ciao,
Marc

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

---

Hallo Marc

muß Dir leider mitteilen, daß das immer noch der Fall ist.
Sonst bekommst Du wieder die Meldung mit dem Regedit.

------------------
Gruß Steffen
www.datenaustausch.com

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

---

upps, einer vor mir...

is' ja interessant. und wo schreibt dann acad die benutzereinstellungen hin ? in ini-dateien o.ä ??
würde mich auch nicht wundern, wenn ms und autodesk einen vertrag abgeschlossen hätte, daß acad hier eine sondergenehmigung hat (also trotz schreibverbot dann doch schreibrecht ?!?)

weißt du (oder STP) wie in acad 2004 das gelöst ist ?

[Diese Nachricht wurde von benwisch am 24. Juni 2003 editiert.]

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