---

Hallo liebe Kollegen,
ich habe ein Verzeichnis mit über 1000 kleinen Dateien, zu denen ich gerne ein Dia hätte.
Dazu habe ich ein altes Script von mir (von AutoCAD 2004) raugekramt und über den Multe Script Creator laufen lassen.
Früher ging das immer ohne Probleme.

Jetzt habe ich das Problem, dass zwar für jede DWG eine Dia Datei erstellt wird, aber leider ohne Dateiendung.
Wenn ich die Datei per Hand zu*.sld ändere wird im Dia nichts angezeigt (alles schwarz).

Das Script sieht folgendermaßen aus:

zoom
g
machdia

Wird der Befehl machdia von mir direkt eingegeben wird auch ein korrektes Dia mit Dateiendung erstellt. Nur über das Script nicht.

Kann mir da jemand helfen? Oder gibt es eine andere Möglichkeit massenhaft aus Dateien Dias zu erstellen (vorher zoom g)?

Vielen Dank schon mal

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

---

Zitat:

---

Original erstellt von he-st:
Multe Script Creator

---

Was ist das?

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 02. Okt. 2015 editiert.]

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

---

Ein Tool, mit dem man ein Script auf mehrere Dateien anwenden kann.
Es wird dann jede gewählte Datei geöffnet, Script ausgeführt, Datei geschlossen, nächste Datei.

Dies aber nur am Rande, weil wenn ich das Script direkt in AutoCAD ausführe dann kommt das selbe Ergebnis raus.

[Diese Nachricht wurde von he-st am 02. Okt. 2015 editiert.]

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

---

Stapelverarbeitung von einer Reihe von Dateien kann man auch ohne extra Scriptgenerator, sondern mit Windows Bordmitteln lösen.
Hier mal ein Übungsbeispiel von Autodesk.
http://help.autodesk.com/view/MAP/2016/DEU/?guid=GUID-7CB0E677-3E8B-41DA-9EBA-2192E8FFAD5E

Ja ich kann bestätigen, dass AutoCAD 2016 beim Befehl MACHDIA den Zeichnungsnamen ohne die Extension .SLD vorschlägt und speichert.
Die Extension kann man aber angeben oder auch später umbenennen, es entsteht eine gültige Diadatei, die mit Befehl MACHDIA angezeigt werden kann.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Zitat:

---

Original erstellt von he-st:
wenn ich das Script direkt in AutoCAD ausführe dann kommt das selbe Ergebnis raus.

---

Probiere dieses Script:

zoom
g
machdia
(strcat (getvar "dwgname") ".sld")

Sollte Dich das .dwg im DiaNamen stören, läßt sich das durchaus entfernen. Der Lispausdruck wird nur "etwas" länger.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 03. Okt. 2015 editiert.]

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
ich kann bestätigen, dass AutoCAD 2016 beim Befehl MACHDIA den Zeichnungsnamen ohne die Extension .SLD vorschlägt und speichert.

---

Wird der Befehl innerhalb eines Scriptes aufgerufen, trifft diese Aussage für alle von mir getesteten ACAD-Versionen bis hinab zu ACAD 2004 zu. (Weiter zurück kann ich nicht mehr).
Keine Ahnung, warum das dann beim TE früher (mit ACAD 2004) anders gewesen sein soll. 

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
... es entsteht eine gültige Diadatei, die mit Befehl MACHDIA angezeigt werden kann.

---

Nur um Mißverständnisse zu vermeiden, Du meintest vermutlich "ZEIGDIA".

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Zitat:

---

Original erstellt von jupa:
Nur um Mißverständnisse zu vermeiden, Du meintest vermutlich "ZEIGDIA".   Jürgen

---

Ganz sicher sogar   MACHDIA -> ZEICHDIA

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 02. Okt. 2015 editiert.]

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

---

Zitat:

---

Original erstellt von jupa:

Sollte Dich das .dwg im Scriptnamen stören, läßt sich das durchaus entfernen.

---

Ein mögliches Script mit dieser Funktionalität könnte folgendermaßen aussehen:

zoom
g
machdia
(defun str-reverse (s1 / str lfd)
  (setq str "")
  (setq lfd 1)
  (while (<= lfd (strlen s1))
    (setq str (strcat (substr s1 lfd 1) str))
    (setq lfd (1+ lfd))
  )
  str
)
(strcat (str-reverse (strcat (substr (str-reverse (getvar "dwgname")) 1 0) (substr (str-reverse (getvar "dwgname")) 5)))
".sld")

Nicht schön (ich sehe schon die Schelte aus der LISP-Ecke auf mich zukommen), aber funktioniert.

[EDIT]
Dank Sebastians Hinweis  verkürzt  auf:

zoom
g
machdia
(strcat (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) ".sld")

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 03. Okt. 2015 editiert.]

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

---

LispEcke: Der String kann auch umschrieben werden in dem sagt: Ab erstem Zeichen wiedergeben, für die Länge (- Gesamtlänge 4), die Funktionalität liefert SUBSTR .

Weiteres:
(vl-filename-base xxxxx)
(cadr(fnsplitl xxxxx))

Edit, String drehen: vl-string->list und vl-list->list und reverse

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

@ jupa
Das verkürzte Script funktioniert. Danke schon mal.
Hab jetzt nur noch das Problem, dass die SLD Datei nicht im Verzeichnis der DWG gespeichert wird, sondern im Verzeichnis wo sich das Script befindet.
Kann man das irgendwie anpassen?

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

---

Zitat:

---

Original erstellt von he-st:

Kann man das irgendwie anpassen?

---

Ungetestet:
LISP-Zeile ändern in (Fett markiertes wurde hinzugefügt):

(strcat (getvar "dwgprefix")(substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) ".sld")

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 05. Okt. 2015 editiert.]

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

---

Ja jetzt funktioniert es 
Vielen herzlichen Dank 

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