---

Hallo Fangemeinde,

wie ist es möglich mehrere Layouts (ca. 100) gleichzeitig umzubenennen ?

In der Benamung müssen zum Teil nur einzelne Buchstaben bzw. Zahlen geändert werden.

Danke!

MfG

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

---

Meiner Meinung nach : Am einfachsten mit Lisp und den ActivX-Funktionen 

(defun c:LAYOUTS-RENAME ( / ITEM OLDNAME NEWNAME)
  (vlax-for ITEM
    (vla-get-Layouts
        (vla-get-activedocument
          (vlax-get-acad-object)
        )
    )
    (setq OLDNAME (vla-get-name ITEM))
    (setq NEWNAME (strcat OLDNAME "-NEU"))
    (vl-catch-all-error-p
      (vl-catch-all-apply
        'vla-put-name
        (list ITEM NEWNAME)
      )
    ) 
  )
)

Wie sich der Neue Name ermittelt muß du natürlich noch reinbasteln, und zwar hier :
    (setq NEWNAME (strcat OLDNAME "-NEU"))
Viel Spaß!

------------------
- Thomas -

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