---

Hallo Autocadgemeinde.

ich bin ein begeisteter Leser des Forum und hab auch die eher schlechte als rechte Suchfunktion genutzt, aber nichts gefunden.

Ich möchte alle Objekte eines Layers als einen Block auf dem selbigen konvertieren.

Momentan mache ich das so.
Layer aktuell, sauswahl -> layer, shift-strg c, shift-strg v.

da ich das öfters brauche, wäre es doch toll, wenn es ein lisp dazu geben würde, der das alles als oneklickwonder machen würde. frei nach dem motto, objekt auf layer anklicken und der ganze inhalt des layer wird zu einem block.

für die schnellen antworten bedanke ich mich schonmal.

------------------
mfg Cadnix

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

---

Willkommen bei Cad.de ... wenn du sowas öfter brauchst, sparst du duch sicher Zeit mit so einer One-Klick-Variante ... dafür muß man dann im Vorfeld für die Programmierung etwas mehr Zeit aufwenden .. wie weit bist du denn schon? Wo hakt dein Code ?
Oder erwartest du, dass jemand für dich diese Zeit aufwendet, was zusammensucht und eine Fertiglösung präsentiert ?  

P.S. Das Lisp an sich sollte dann  nicht das Problem sein. Schnipsel davon sind auf jeden Fall schon im Forum zu finden... aber dein Psosting liest sich eher wie Machmirmal und eine Anfrage nach einem Angebot für lau.... und das ist IMHO keine Wertschätzung den Programmierern gegenüber.
Wenn ich mich verlesen haben sollte, nix für ungut.

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

---

ja ne das ist schon klar, ich hätte gehofft, dass es so ein lisp schon gibt.
programmiertechnisch wird das wohl nie etwas bei mir. die gründe dafür sind vielfälltig. ich müsste bei lisp bei null anfangen...

wenn es keine lösung geben sollte, dann ist es auch gut. ich hab ja nie geschrieben, mach mal.
und wenn sich jemand bereit stellt, dann bin ich dankbar, ich habe in meinem leben auch schon vielen geholfen und nichts dafür bekommen.

man kann es ja auch so interpretieren, wenn man schon zwischen den zeilen liest, was man nicht immer machen sollte. wow, sowas hab ich auch schon gesucht, das kleine lisp würde meine effektivität erhöhen. ja wenn es nur jemand geben würde, der AHNUNG hat davon.

------------------
mfg Cadnix

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

---

na dann ... ungetestet hier reingekloppt :

(defun C:LAYBLOCK(/ LAYER AWS NAME)
  (if(and(setq LAYER(car(entsel"\nObjekt auf Layer wählen: ")))
         (setq LAYER(cdr(assoc 8 (entget LAYER))))
         (setq AWS(ssget "_x" (list (cons 8 LAYER)(cons 410 (getvar "CTAB")))))
         (> (sslength AWS)0)
     )
    (progn
      (setq NR 0)
      (setq NAME LAYER)
      (While (tblobjname "BLOCK" NAME)(setq NAME(strcat LAYER(itoa(setq NR(1+ NR))))))     
      (command "_block" NAME '(0 0 0) AWS "")
      (command "_Insert" NAME '(0 0 0) 1 1  0)
    )
  ) 
)

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

---

Wenn es sich bei den Blöcken um "externe" handeln soll, also aus der Zeichnung ausgelesen werden sollen, dann schau mal unter:

http://www.cadwiesel.de/  --> Sonstiges --> Layer --> Lay-wblk

------------------
Gruß

Michi

"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden."

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

---

Und ? Sorry der Nachfrage  .. konnten wir helfen ?

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