---

Hallo zusammen,

ich möchte mit einem Lisp-Programm einen Blcok erstellen, die Objekte (der Block) sollen allerdings in der Zeichnung beibehalten werden.
Beim Erstellen von Hand kann man im Dialog "beibehalten" wählen.
Gibt es dafür vielleicht einen Befehl, denn bei meinem Prog werden die gewählten Objekte aus der Zeichnung entfernt.

(defun c:test_myblock ( / b_punkt )
(setq b_punkt (getpoint "\nBitte Basispunkt wählen:"))
(command "._block" "testname" b_punkt
)

hab auch schon probiert noch ein "_insert" dahinter zu hängen und den Block einfach direkt wieder einzufügen...funzt aber nicht, da der Befehl "block" anscheinend erst beendet werden muss.

Wäre super wenn mir da jemand weiterhelfen könnte.
Vielen Dank schon ma...

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

---

naja, als Lispprogramm zum Block erstellen würd ich die command-Variante nicht gerade bezeichnen, aber naja..

Anbei mal 2 Bsp-Funktionen mit ebendiesem Command

(defun c:blocked(/ name POINT AWS) 
  (while(not(and(setq NAME(getstring"\nBLOCKNAME : "))(/= NAME "")(not(tblobjname "BLOCK" NAME)))))
  (while(not(setq POINT  (getpoint "\nBasispunkt: "))))
  (while(not(and(setq AWS    (ssget))(> (sslength AWS)0))))
  (command "_-block" NAME POINT AWS "")
  (command "_-insert" NAME POINT 1 1 0)
)

(defun c:blocked(/ name POINT AWS) 
  (while(not(and(setq NAME(getstring"\nBLOCKNAME : "))(/= NAME "")(not(tblobjname "BLOCK" NAME)))))
  (while(not(setq POINT  (getpoint "\nBasispunkt: "))))
  (command "_-block" NAME POINT)
  (while (/=(getvar "CMDACTIVE")0)(command pause)) 
  (command "_-insert" NAME POINT 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

---

Danke erst mal für die schnelle antwort...

ok..dann eben ein lisp-progrämmchen 

was mir nur fehlte war:
(while (/=(getvar "CMDACTIVE")0)(command pause))

Danke vielmals 

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