---

Hallo,

Super Forum hier, hat mir schon paarmal ganz gut gefolfen 

Jedoch finde ich jetzt etwas per Suche nicht - daher der neue Thread.

Und zwar habe ich AutoCad 2010 und ein Problem mit den Layern.
Nachdem alle Pläne fertig sind, ca. 500stk. sollen nun alle Layernamen "klein" geschrieben sein, d.h. keine Großbuchstaben enthalten.
Der Layername an sich selbst soll ident bleiben.

als Beispiel:

ist --> soll
ET_Elektro_SV --> et_elektro_sv

Wie kann ich das automatisiert machen für jeden Plan zumindest?
Habe mit LISP kaum Erfahrungen bist jetzt gemacht.

Danke für die Hilfe

MFG
Edi

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

---

ok .. kopier dir mal folgendes von der 1. bis zur letzten Klammer in deine Befehlszeile und starte mit LAYERKLEIN

(defun c:Layerklein()
  (vl-load-com)
  (vlax-for L (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
    (vla-put-name
      L
      (strcase (vla-get-name L)'T)
    ) 
  )
)

für Automatisierung für mehrere Zeichnungen --> _script ...
------------------
      - 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

---

Hallo,

Danke für die schnelle Hilfe,
funktioniert aber bei mir nicht ganz..

Folgendes kommt dabei raus:

---------------------------------

Befehl: (defun c:Layerklein()
(_>  (vl-load-com)
(_>  (vlax-for L (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
((_>    (vla-put-name
(((_>      L
(((_>      (strcase (vla-get-name L)'T)
(((_>    )
((_>  )
(_> )LAYERKLEIN
nil

---------------------------------

Befehl: (defun c:Layerklein()
(_>  (vl-load-com)
(_>  (vlax-for L (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
((_>    (vla-put-name
(((_>      L
(((_>      (strcase (vla-get-name L)'T)
(((_>    )
((_>  )
(_> )
C:LAYERKLEIN

Befehl: LAYERKLEIN
; Fehler: no function definition: VLAX-GET-ACAD-OBJECT

Befehl:

---------------------------------

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

---

ok ... tipp mal nur (vl-load-com)
und
(vlax-get-acad-object)
ein und poste das Ergebnis .. IMHO ist bei dir die ActivX-Schnittstelle nicht richtig initialisiert( d.h. in Windows angemeldet ) ... läuft evtl. auf ne Reparaturinstall raus ...

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

---

Ok,
hier das Ergebnis

-----

Befehl: *Abbruch*

Befehl: (vl-load-com)

Befehl:
LAYERKLEIN ; Fehler: no function definition: VLAX-GET-ACAD-OBJECT

Befehl:

-----

Befehl: (vl-load-com)
Befehl: (vlax-get-acad-object)
; Fehler: no function definition: VLAX-GET-ACAD-OBJECT

[Diese Nachricht wurde von EMEX am 29. Sep. 2010 editiert.]

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

---

.. na dann mach mal ne Reperaturinstallation ...

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

---

VIELEN DANK!

Habs gerade auch einen anderen PC ausprobiert, da funktionierte es perfekt

Superb

Ist wohl ein Problem mit dem COM/ActiveX auf meine PC.

MFG

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