---

Hallo Zusammen,
vermutlich ist die Erklärung zu meinem Poblem recht einfach, doch erstmal das Problem:

Wie setze ich über LISP interne Blöcke sofort in den Ursprung.
Über die mir bekannte Variante _insert *<name> hat es nicht geklappt, oder mach ich was falsch ?

Danke für Eure Hilfe

Joachim

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

---

_insert fügt Blockreferenzen ein
_explode löst sie auf

z.B.
(defun C:INSERTS-EXPLODE ( / AUSWAHL INDEX)
  (if(or(setq AUSWAHL (ssget "I"  '((0 . "INSERT"))))
        (setq AUSWAHL (ssget      '((0 . "INSERT"))))
    )
    (progn
      (setq INDEX -1)
      (repeat(sslength AUSWAHL)
        (command "_explode" (ssname AUSWAHL(setq INDEX(1+ INDEX))))
      ) 
    )
  )
)

------------------
  - Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

abgesehen von CADmium´s Antwort: Mußt du wohl was falsch gemacht haben:

Befehl: (command "_-INSERT" "*TESTBLOCK" "0,0" 1 0)
_-INSERT Blocknamen eingeben oder [?] <*TEST>: *TESTBLOCK Einfügepunkt für
Block angeben: 0,0 Skalierfaktor für XYZ-Achsen angeben: 1
Drehwinkel angeben <0.00000000>: 0
Befehl: nil

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