---

Hallo!

Mir ist neu, dass ich den Befehl _layer nicht herkömmlich, wie das bspw bei _insert möglich ist, mit repeat wiederholen kann.
Kopiere ich aber die Zeile (command "layer" "off" (nth (setq i (1+ i)) llist))
x-mal in die Befehlszeile macht command genau das, nämlich die Layerliste auf off/aus stellen

Code:

---

(defun c:-- ()
  (setq llist
(list  "M-BEF-EL"               
          "M-BEF-EL-INFO"     
          "M-BEF-EL-TEXT"     
          "M-BEF-FV"           
                "M-BEF-FV-INFO"     
          "M-BEF-FV-TEXT"     
          "M-BEF-GAS"         
          "M-BEF-GAS-INFO"     
          "M-BEF-GAS-TEXT"     
          "M-BEF-OPTO"         
          "M-BEF-OPTO-INFO"   
          "M-BEF-OPTO-TEXT"   
          "M-BEF-TELE"         
          "M-BEF-TELE-INFO"   
          "M-BEF-TELE-TEXT"   
          "M-BEF-VA-D"         
          "M-BEF-VA-INFO"     
          "M-BEF-VA-S"         
          "M-BEF-VA-ST"       
          "M-BEF-VA-TEXT"     
          "M-BEF-VA-V")
)
  (setq i 0)
  (repeat (length llist)
    (command "layer" "off" (nth (setq i (1+ i)) llist))
    )
  )
 

---

------------------
Gruss Dirk

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

---

du beendest den Command aufruf auch nicht richtig

Besser ist ( wenn schon command und kein Errorhandling)

(defun c:LAYOF ()
  (mapcar
      '(lambda(X)(command "_layer" "_off" X "")) 
      '( "M-BEF-EL"               
        "M-BEF-EL-INFO"     
        "M-BEF-EL-TEXT"     
        "M-BEF-FV"           
        "M-BEF-FV-INFO"     
        "M-BEF-FV-TEXT"     
        "M-BEF-GAS"         
        "M-BEF-GAS-INFO"     
        "M-BEF-GAS-TEXT"     
        "M-BEF-OPTO"         
        "M-BEF-OPTO-INFO"   
        "M-BEF-OPTO-TEXT"   
        "M-BEF-TELE"         
        "M-BEF-TELE-INFO"   
        "M-BEF-TELE-TEXT"   
        "M-BEF-VA-D"         
        "M-BEF-VA-INFO"     
        "M-BEF-VA-S"         
        "M-BEF-VA-ST"       
        "M-BEF-VA-TEXT"     
        "M-BEF-VA-V"
        )
  )
)

beachte das abschließende "" im command aufruf

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

---

@Dirk, CADmium hat es zwar im Grunde schon gesagt, aber teste das bitte unbedingt mal selbst (Lerneffekt größer  )

tippe mal ein:
-layer<enter>
off<enter>
"M-BEF-VA-V"
-layer<enter>
off<enter>
"M-BEF-VA-TEXT"
-layer<enter>
off<enter>
"M-BEF-VA-ST"

Genau das macht dein Programm..
PS: Nehme doch bitte die internationalen Befehle, also den Unterstrich gefolgt vom englischen Befehl.
_Layer
_off

oder auch _-LAYER

oder _LINE

usw.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Du könntest es auch so machen, dass in der repeat-Schleife nur die Optionen des Layerbefehls abgearbeitet werden:

Code:

---

(command "_layer")
(repeat (length llist)
  (command "_off" (nth (setq i (1+ i)) llist))
)
(command "")

---

Das hat den Vorteil, dass die Layeraktionen in EINEM Befehl durchgeführt werden.
Und vergiß nicht, EXPERT auf 1 zu stellen.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

@cadmium:
immer wieder eine fixe Antwort, die mir u.a. neue Methoden beibringt

@cadffm:
Ja ich habe das "" vergessen - verflixt

------------------
Gruss Dirk

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