---

Hallo, ich seh mal wieder den wald vor Bäumen nicht:

mit

Code:

---

(command "_-insert" Blockname Punkt X Y Drehung <Attribute> )

---

will ich verschiedene Blöcke mithilfe einer einzigen Routine einfügen.
Die Blöcke können unterschiedlich viele Attribute haben oder auch gar keins. Wie kann ich die dem COMMAND-Befehl übergeben?

Erster Gedanke: Liste mit den Attributwerten belegen und die einzelnen Elemente innerhalb COMMAND INSERT aufrufen, also auch Liste=NIL, wenns keine Attribute gibt. Aber sowohl FOREACH als auch WHILE geben nur das letzte Element zurück, und MAPCAR gibt eine Liste zurück.

Sicherlich ein altes Problem, aber den richtigen Thread hab ich auch nicht gefunden.

------------------
Gruß
SebZ

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

---

mal ein Bsp-Code

(setq ATTLIST '("A" "B" "C"))
(setvar "Attdia" 0)
(command "_-insert" Blockname Punkt X Y Drehung)
(while (/=(getvar "cmdactive")0)
  (if (=(type (car ATTLIST))'STR)
    (command (car ATTLIST))
    (command " ")
  ) 
  (setq ATTLIST(cdr ATTLIST)) 
) 

.. denke sagt mehr als Worte

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

danke!
der springende Punkt ist, dass die Befehlsübergabe in mehrere einzelne COMMAND-Aufrufe zerteilt werden kann bzw. muss, und das hatte ich missachtet.

------------------
Gruß
SebZ

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

---

Eigentlich ist das doch nicht so wild.
Du rufst den commandteil bis zu den Attributen auf, dann kannst du in 'ne while-schleife und mit der Abfrage von cmdecho prüfen, wie lange Attribute abgefragt werden und die dann eben so lange ausfüllen.
Oder was noch besser, oder sicherer ist, die Blockreferenzen ohne Attributeingabe (attreq 0) und dann per (entlast) auf die Referenz zugreifen, die Attribute durchlaufen und dann ausfüllen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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