---

Hallo,
die folgende Lisp-Routine wurde von Cadmium 2004 ins Forum gestellt:

(setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tuer"))))
(repeat(sslength AUSWAHL) 
  (command "_explode" (setq OBJ(ssname AUSWAHL 0)) "")
  (ssdel OBJ AUSWAHL)
)

Leider wird nach dem Ausführen der Befehl wiederholt. Kann man das irgendwie abstellen oder muß eine Systemvariable gesetzt werden, damit die Wiederholung nicht ausgeführt wird? Die Routine wäre dann perfekt für mich.
Lieben Gruß Beate

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

---

Hallo Beate,
WELCHER Befehl wird wiederholt? Falls das _explode sich wiederholt - kurz und ungetestet: Mach mal aus

Code:

---

(command "_explode" (setq OBJ(ssname AUSWAHL 0)) "")
(command "_explode" (setq OBJ(ssname AUSWAHL 0)))

---

ohne die "". Hoffe, das hilft?!
Frederik

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

---

Hallo Frederik,
zu Deiner Frage welcher Befehl wird wiederholt: das Dialogfenster _appload wird geöffnet.

Leider weiß ich nicht wie ich die beiden Zeilen anwenden soll, sorry.
Danke und Gruß
Beate

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

---

Hallo Beate,
die Sache mit _appload kann ich leider nicht nachvollziehen. Wenn ich bei mir diesen

Code:

---

(defun testauswahl (/ auswahl obj);lokale Variablen!
(setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tesblock"))))
(repeat(sslength AUSWAHL) 
  (command "_explode" (setq OBJ(ssname AUSWAHL 0)))
  (ssdel OBJ AUSWAHL)
)
)

---

eingebe, so löst er alle Blöcke mit dem Namen "testblock" auf.

Die "" in der 5. Zeile habe ich entfernt, da ACAD sonst den letzten Befehl erneut aufruft (entspricht [Enter] oder [Leertaste]). Auf ACAD2004 läuft´s einwandfrei... Kopier Dir doch mal den obigen Code und teste in ACAD - Aufruf mit "(testauswahl)", ohne die "" natürlich. Was passiert?
Frederik

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

---

Super, danke, funktioniert bestens.
Gruß Beate

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

---

Hi,
kurz und schmerzlos:

Code:

---

(if (setq AUSWAHL (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer"))))
  (progn
    (setq ALT-QAFLAGS (getvar "qaflags"))
    (setvar "qaflags" 1)
    (command "_explode" AUSWAHL "")
    (setvar "qaflags" ALT-QAFLAGS)
  )
)

---

Oder schick und sicher mit Rückmeldung und variabel:
Aufruf in Deinem Fall dann mit:

Code:

---

(INSERTSEXPLODE "tuer")

---

Variabel, weil man die Funktion auch mit allem füttern könnte was wcmatch so verarbeiten kann:

Code:

---

(INSERTSEXPLODE "tuer,fenster,schriftfeld")

(INSERTSEXPLODE "*")

---

Und hier die Funktion:

Code:

---

(defun INSERTSEXPLODE (STR-BLOCKNAMES / ALT-QAFLAGS AUSWAHL AUSWLEN)
  (if (setq AUSWAHL (ssget "X"
                          (list '(0 . "INSERT")
                                (cons 2 STR-BLOCKNAMES)
                                (cons 410 (getvar "ctab"))
                          )
                    )
      )
    (progn
      (setq ALT-QAFLAGS (getvar "qaflags"))
      (setvar "qaflags" 1)
      (if (not (vl-catch-all-error-p
                 (vl-catch-all-apply
                   'vl-cmdf
                   (list "_.explode" AUSWAHL "")
                 )
               )
          )
        (if (> (setq AUSWLEN (sslength AUSWAHL)) 0)
          (princ (strcat "\n>"
                        (itoa AUSWLEN)
                        "< Blöcke für das Muster >\""
                        STR-BLOCKNAMES
                        "\"< mit \"Ursprung/_Explode\" zerlegt!"
                )
          )
          (princ (strcat "\n0 Blöcke für das Muster >\""
                        STR-BLOCKNAMES
                        "\"< gefunden, NICHTS zerlegt!"
                )
          )
        )
      )
      (setvar "qaflags" ALT-QAFLAGS)
    )
    (princ (strcat "\nKEINE Blöcke für das Muster >\""
                  STR-BLOCKNAMES
                  "\"< gefunden, NICHTS zerlegt!"
          )
    )
  )
  AUSWLEN
)

---

...
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 14. Sep. 2006 editiert.]

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

---

OT: Da ich ja auch loben soll  : Fein Marc! Gibt 'n Bienchen!

------------------
  - 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, toll, woll!

aber das mit 2000 hasde ja immer noch nicht geändert. 2000 braucht kein Argument weniger.

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

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

---

Hi CADwiesel,
vielen Dank für den Tip. Dann habe ich wohl etwas falsch verstanden.
Ich hab' den Code jetzt geändert. Kannst Du mal verifizieren, dass der Code auch unter R2000/i läuft?

------------------
Ciao,
Marc

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

---

@Marc,
vielen Dank für die beiden Versionen. Die kurze klappt perfekt. Die längere und sichere leider nicht. Die lange Routine wäre gut, wenn sich unser Kunde wieder etwas neues ausdenkt.
Gruß Beate

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

---

Hi,
ich habe die lange Version vor 'ner Stunde überarbeitet (Danke Wieseli ;-) ). Hast Du DIE NEUE schon probiert? Oder ist Deine Version schon älter?

------------------
Ciao,
Marc

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