---

Hallo!

Habe da ein eigenartiges Phänomen:
Ich lade beim Start von ACADM2004 eine Lisp.
In dieser Lisp steh u.a. folgende Zeile:

(command "_explode" "ALLE" )

Die Lisp wird aber nach Befehlsaufruf nicht erfolgreich ausgeführt.
Schreib ich diese Zeile jedoch 3x hintereinander:

(command "_explode" "ALLE" )
(command "_explode" "ALLE" )
(command "_explode" "ALLE" )

funktioniert's !?!

Hat da wer eine Idee?

------------------
wisch

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

---

Hallo wisch,

der Befehl _explode (Ursprung) kann mit Lisp nur ein Objekt auflösen!

So geht es:

  (while
    (setq #ss# (ssget "x"))
    (if #ss#
      (command "_explode" #ss# "")
    )
  )

Aber warum um Himmelswillen willst Du alles beim starten eine Datei in den Ursprung versetzen

------------------
Grüße Thomas   

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

---

Hi!

Vorweg - bin kein Lisp-Spezialist!
Habe deinen Befehl so übernommen, nur bleibt der Befehlsaufruf nicht mehr stehen - ist das eine Schleife?

Der Grund ist der, ich will eigentlich nur alle Blöcke in der Zeichnung auflösen (nicht Polylinien!), denn aus dem Schriftfeld will ich über ein Wort (mit definierter Schrifthöhe 2,5mm) den Maßstabswert ausrechnen, mit dem ich später wieder einen Block mit eben diesem Maßstab einfüge.
Zu dem Wort gelange ich jedoch nur, wenn es als Textelement zu finden ist und nicht in einem Block mit Attributen "vergraben" ist.

------------------
wisch

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

---

wähle einfach alles, gehe in die eigenschaften, wähle dort nur die blöcke und laß diese dann explodieren.

voila! block konfetti

gruß sinsa

------------------
toll, da lernte ich mühsam sprechen um im hohen alter mit dem lispeln anzufangen 

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

---

Hallo Wisch,

es ist in der Tat eine Schleife. Nur die Bedingung zum Enden ist nicht gesetzt. Da du nur die Blöcke explodieren möchtest ist nur eine kleine Änderung notwendig, und die Schleife wird nicht merh durchlaufen, wenn kein Block mehr gefunden wird.
(while
    (setq #ss# (ssget "_X" '((0 . "INSERT"))))
    (if #ss#
      (command "_explode" #ss# "")
    )
  )

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD

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

---

Explode_auswahl.zip

Hallo Wisch!
Zum Auswahl "explodieren" (nur die Blockreferenzen )
hilft die vielleicht der Dateianhang weiter.
(etwas aufgeblähter und etwas komfortabler als Holgers Fünfzeiler  )
Gruß Thomas

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

---

@ Sinsa

Ich denke nicht, dass du die Blockreferenz, oder sogar alle Blockreferenzen auflösen musst, um an deinen Text ranzukommen.
ist der Text ein Attributwert, so kann man den ganz einfach auslesen, Tools dazu gibt's hier wie Sand am Meer, ist dein Text tatsächlich ein Text, kann man die Blocktabelle durchsuchen und den wert auslesen.
Aber um's genauer zu machen, könntest du mag etwas detailiertere Angaben zu deinem Vorhaben machen, dann können wir dir evtl auch etwas genauer helfen - aber nur, falls dir dein bisheriges Vorgehen zu unbefriedigend ist.

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

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

---

@BRISCHKE

Vielen Dank, jetzt funzt's so wie ich es brauche!

------------------
wisch

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