---

Ich muss in ein Bestehendes Scriptfile (ACAD2004) einen Befehl einfügen welcher allen Layern den Vorsatz E- voranstellt.

Ich kann zwar mit "-umbenenn LA" den entsprechenden Befehl in der Eingabeaufforderung aufrufen jedoch lassen sich dann nicht alle Layer auswählen was im Dialogfenster jedoch möglich ist.

Wäre sehr froh wenn mir da jemand weiterhelfen kann.

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

---

(defun LAYUMB (PRE)
  (vl-load-com)
  (if (=(type PRE)'STR)
    (vlax-for LAYER (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
      (vl-catch-all-error-p
        (vl-catch-all-apply
          'vla-put-name
          (list LAYER(strcat PRE(vla-get-name LAYER)))
        )
      ) 
    )
  )   
)

das Teil als lsp im supportpfad abspeichern, im script mit (load "DATEI.lsp") laden laseen und anschließend im Scrip mit
(LAYUMB "E-") aufrufen

------------------
- 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