---

Guten Morgen/Tag,

ich hab da mal eine Frage. Ich nutze ziemlich oft das sehr nützliche IMPLODE.lsp (..Danke). Nun würde ich es mir gerne erweitern.
Ist: gewählte Objekte werden so wie im lisp fest definierten Basispunkt 0,0 "implodiert". Ich würde aber gerne den Basispunkt selbst bestimmen und ich bekomme das nicht hin 
Kann mir mal jemand etwas  auf die Sprünge helfen?? 

;  IMPLODE.LSP  Implode  (c)1996, Dennis Kiracofe
; changes ^v^ CAD Studio

(defun C:IMPlode (/ SLCT CDATE BNAME)
  (setvar "cmdecho" 0)
  (setq SLCT (ssget))
  (setq
      CDATEX (rtos (getvar "cdate") 2 9)
      BNAME  (strcat (substr CDATEX 10 8))
  )
  (command "_block" BNAME "0,0" SLCT "")
  (command
      "_insert" BNAME "0,0" "" "" ""
  )
)

Beste Grüße, Thika.

------------------
Schreibfehler mache nicht ich, sondern die Tastatur.
Beschwert euch also an der richtigen Stelle.

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

---

Probier es (ungetestet) so:
(defun C:IMPlode (/ SLCT CDATE BNAME)
  (setvar "cmdecho" 0)
  (setq SLCT (ssget))
  (setq
      CDATEX (rtos (getvar "cdate") 2 9)
      BNAME  (strcat (substr CDATEX 10 8))
  )
  (command "_block" BNAME (setq P(getpoint"\nBasispunkt")) SLCT "")
  (command "_insert" BNAME P "" "" "") 
)

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

---

@Cadmium:  Wow  , was für ein Tempo. Vielen Dank, funktioniert super!!

Beste Grüße, Thika.

------------------
Schreibfehler mache nicht ich, sondern die Tastatur.
Beschwert euch also an der richtigen Stelle.

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