---

hi

ich habe hier ein paar hundert zeichnungen, von jeder zeichnung muss ich bestimmte layer kopieren. diese haben immer den selben namen.

gibt es eine möglichkeit diese automatisch zu makieren?
ein lisp wo  der layername in der lisp datei steht, und er die makiert?,

wäre mir wirklich sehr geholfen damit.
hoffe es kann mir jemand helfen.

ich verwende dieses lisp um einen layer zu makieren.
jedoch funktioniert es nicht damit mehrer zu makieren. evtl. gibt es da eine möglichkeit?

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
(setq e (nentsel "Select entity on a layer: "))
(if e (setq ss (ssget "_X" (list(cons 8 (cdr (assoc 8 (entget (car e)))))))))
(if (zerop (getvar"CMDACTIVE"))
  (progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
)
ss
)

danke

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

---

schnell mal (ungetestet) ein bisschen angepasst

jetzt wirst du solange nach einen Element zum Layer bestimmen gefragt, biss du mit der rechten Mausstate (oder du wählst ins leeer) untebrichst

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
  (setq lay "");
  (while (setq e (nentsel "Select entity on a layer: "))
      (setq lay (strcat lay "," (cdr (assoc 8 (entget (car e))))))
  )
  (if (/= lay "") (setq ss (ssget "_X" (list(cons 8 (substr lay 2))))))
  (if (zerop (getvar"CMDACTIVE"))
    (progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
  )
ss
)

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

funktioniert bestens.

danke, das erleichtert meine arbeit erheblich.

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

---

Hallo fuchsi!

Hab dein kurzes Programm getestet und es funktioniert wunderbar. Meine Fragen:

1) Ist es auch möglich, dass ab dem ersten ausgewählten Layer schon eine Hervorhebung (Griffe) sichtbar ist und nicht erst nach Abschluss des Auswahl mit Enter?

2) Ist es auch möglich, mit "Fenster" mehrere Layer gleichzeitig auszuwählen und hervorzuheben?

Hab zwar schon versucht zu basteln, leider aber ohne Erfolg.

Grüße - vevi

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