---

Hallo,

mein Problem ist, dass ich in sehr vielen DWG`s die Namen auf den Layoutreiter ändern muß.
Beispiel. Jetzt steht drinnen:
038ZE12112949_001.dwg  038ZE12112949_002.dwg  038ZE12112949_003.dwg  038ZE12112949_004.dwg

und drinnen stehen soll jetzt:

001.dwg  002.dwg  003.dwg  004.dwg  usw.
Bei ein zwei Dateien händisch kein Problem, aber bei Über 200 Dateien ne morz Handarbeit.
Manchmal sind es auch nur 3 oder 1 Layout pro Datei, dass sollte das  Makro auch erkennen.

Hat jemand zufällig so ein Makro oder gar eine Lösung für mein Problem?

VIELEN DANK

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

---

sowas ?

(defun C:LAYOUTRENAME(/ L N DT:STR-DIV R)
  (vl-load-com)
  (defun DT:STR-DIV(STRING SEPARATOR / POS OFFSET LISTE)
    (if(and(=(type STRING) 'STR)(=(type SEPARATOR) 'STR))
      (progn
        (setq OFFSET (1+(strlen SEPARATOR)))
        (if(setq POS (vl-string-search SEPARATOR STRING))
          (list (substr STRING 1 POS)(substr string (+ POS OFFSET)))
          (list STRING)
        )
      )
    )
  )
  (vlax-for L (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
    (if(and(setq N(vla-get-name L))
          (setq N(strcase N))
          (setq N(cadr(DT:STR-DIV N "_")))
          (not(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list L N))))
      )
      (setq R (cons N R))
    ) 
  )
)

Läßt sich automatisieren für alle Dateien in einem Verzeichnis usw.

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme 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

---

Guten Morgen,

ist das Lisp??

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

---

ja

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme 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