![]() |
|
Bitte drücken Sie nicht mehrfach auf "Antwort speichern".
*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.
Beiträge: 13464 / 249 ACAD ------------------CADmium (defun C:LAYRENAME(/ L N)
(vl-load-com)
(vlax-for L (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
(if (wcmatch (strcase(setq N(vla-get-name L)))"A_*")
(vl-catch-all-apply 'vla-put-name (list L (strcat "XY_" (substr N 3))))
)
)
)
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."