---

Hallo liebe Autolispgemeinde,

zwecks mangelnder Sicherungsdisziplin in meiner Firma
habe ich mir eine Zeichnungsspeicherung vor dem
Druckbefehl eingebaut.
Die Zeichnung wird im aktuellen Pfad im Ordner "Aktuell"
abgespeichert.
Ich möchte aber das die Zeichnung in einem anderen Ordner
abgespeichert wird und zwar in "Verteilt".
Weiss aber nicht wie ich das in meinem Code bekomme.
Habe schon in diesem Forum und auf der Web Seite von Afralisp
nachgeschaut.
Kann mir jemand einen Tip geben.

Gruß Jürgen

Hier der Code

(defun c:Index ( / sl)

(setq Pfad (getvar "DWGPREFIX"))
(setq Dwg_Name (getvar "DWGNAME"))
(setq Vpfad (strcat Pfad DWG_Name))

(setq sl (getfiled "Zeichnung in Verteilt abspeichern" Vpfad  "dwg" 5))
;;5=speichern 10=öffnen

(princ)
);defun
(princ)

[Diese Nachricht wurde von Jürgen Scheeren am 06. Okt. 2004 editiert.]

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

---

(setq Dwg_Name (strcat "c:\\verteilt\\"(getvar "DWGNAME")))
(command "_saveas" "" dwg_name)

vieleicht so?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Jürgen,

Anderer Ansatz:
_qsave und dann ein vl-copy.
Dann geschieht das auch unbemerkt für den Anwender und er zeichnet nicht einfach in der Sicherungskopie rum.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

oder so aber ich wollte nicht gleich mit vl ins Haus fallen - da wäre ja auch noch was per Reactor drin *lol*

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

...
genau .. und dann noch erweitert um die Funktionen, dass die XRefs gebunden werden und der Dateiname um das Datum und Uhrzeit ergänzt werden. So hat man immer auch den Planstand zur Hand, der irgendwann mal geplottet wurde.
Um dass dann allerdings noch händeln zu können wäre ein gleichzeitiger Eintrag in eine Datenbank sehr hilfreich.

Wenn das hier jetzt so klingt, als nehme ich den Beiterag nicht ernst, das wäre falsch. Ich meine es ernst, das wäre doch mal eine Herausforderung!

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo CADwiesel,
Hallo Holger,

vielen dank für die schnellen Antworten.
Das abspeichern soll schon von jedem User
bewußt vollzogen werden.
Ich arbeite mit der getfiled-Funktion und das
Dialogfeld zum Speichern öffnet sich im Ordner
"Aktuell" (aktueller Verzeichnispfad) es soll
sich aber im Order "Verteilt" öffnen.
Da der Verzeichnispfad für jedes Projekt anders ist
und nur die Ordner "Verteilt" und "Aktuell" immer
gleich sind würde ich gerne auch mit der Funktion
"DWGPREFIX" weiter arbeiten.

Gruß Jürgen

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

---

was willst du mit dwgprefix? ist doch nicht richtig.
Du mußt entweder mit substr einige Zeichen von dwgprefix löschen oder mit strcat welche dazupacken, so das du auf deinen gewünschten pfad kommst
Poste doch mal Beispiele (ist - soll)

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Vielleicht hilft dir das weiter
(vl-string-subst "VERTEILT" "AKTUELL" (strcase(getvar "DWGPREFIX")))
.. wenn "Aktuell" im Pfad vorkommt, wird er durch "verteilt ersetzt..

------------------
- Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Cadwiesel,

Du hast recht,
für den Pfad
P:\SW_Schönebeck\SWSK403-P_BHKW_700_kW\AutoCAD\Aktuell\001-A-e.dwg
soll der Pfad
P:\SW_Schönebeck\SWSK403-P_BHKW_700_kW\AutoCAD\Verteilt\001-A-e.dwg
eingesetzt werden.
Das mit substr hört sich schon gut an, vieleicht kannst Du mir ein
Beispiel zeigen.

Gruß Jürgen

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

---

Hallo Thomas,

Volltreffer.
Vielen dank, wieder was gelernt.
Giebt volle U's

Auch Danke an Holger und Cadwiesel für
die superschnelle Hilfe.

Gruß Jürgen

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