---

Hallo Lispler,
ich weiss nicht, ob ich einfach nur auf dem Schlauch stehe, auf jeden Fall komme ich nicht weiter:
Ich moechte im Layout von MDT6-Dateien die Bemassungen per Script in automatisch ablaufenden Export-Jobs in den Ursprung zerlegen. Der Befehl 'ursprung' bzw. "._explode" reagiert in Scripts oder Lisp-Commandos aber anders als in MDT direkt.

Ich wähle die Bemassungen also mit (ssget "X" '(0 . "DIMENSION")) aus. In MDT6 direkt kann ich nun mit 'ursprung' und 'vorher' die gewählten Bemassungen zerlegen ("Objekte wählen:"). In Scripts und Lisp-Ausdrücken akzeptiert der Befehl aber nur die Auswahloptionen 'letztes', 'alle' und 'gruppe' ("Objekt wählen:").
Wenn ich die Option 'alle' wähle, sagt MDT: "Das Objekt konnte nicht aufgelöst werden."
Wenn ich aus den Bemassungen eine Gruppe bilde, wird nur jeweils das erste Objekt der Gruppe explodiert.

Hat jemand eine Idee, wie ich hier weiterkomme?
Auf Basis der Gruppenauswahl koennte ich ja vielleicht mit einer while-Schleife arbeiten. Aber geht's vielleicht auch einfacher?

Vielen Dank schon einmal im voraus,
Cornelia

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

---

Hallo Cornelia,

so richtig schlau werde ich aus deiner Frage nicht. Was soll denn alles in der Ursprung zerlegt werden?
Für die Bemaßungen sollte es mit folgender LISP-Zeile gehen.

(command "_.explode" (ssget "_X" '((0 . "DIM*"))))

Bei Fragen...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!

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

---

Hallo Holger,
vielen Dank schon einmal fuer deine Antwort.
Deine Befehlsfolge zerlegt aber leider nur EINE Bemassung, warum auch immer. Ich moechte ALLE Bemassungen im Layout in den Ursprung zerlegen...

Gruesse,
Cornelia

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

---

Hi,

"_explode" verhält sich, wie Du schon gesagt hast, in Lisp etwas anders als in AutoCAD selbst. Es kann nur einzelne Elemente auflösen. Deshalb dürft's so gehen:

(setq Index -1)
  (repeat (sslength (setq aws (ssget "_X" '((0 . "DIM*")))))
    (command "_.explode"
     (ssname aws (Setq Index (1+ Index)))
    )
  )

Gruß
CADchup

------------------
www.cadditions.de

[Diese Nachricht wurde von CADchup am 24. September 2003 editiert.]

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

---

Danke, CADchup, das klappt super.
Damit ist auch der Abend gerettet!
Grüße,
Cornelia

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

---

ACHTUNG! Sie antworten auf einen Beitrag der bereits einen Bart hat!

Ja, das weiss ich... Aber dieses Forum soll auch als Nachschlagewerk sein...
Ich goolge z.B. so: "site:cad.de MeineSuche"

In meinem Lisp wird zuerst abgefragt, ob es Bemassungen hat:

(if (/= nil (setq l (ssget "X" '((0 . "DIM*")))))(progn(setq Index -1)(repeat (sslength (setq aws (ssget "_X" '((0 . "DIM*")))))(command "_.explode"(ssname aws (Setq Index (1+ Index)))))))

mfg neo

------------------
Welcome to the Real

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

---

Zitat:

---

Original erstellt von neo4matrix:
(if (/= nil (setq ...

---

Nur gut, daß Axel das nicht mehr lesen muß  .

Anstelle von (if (/= nil irgendwas ...  ))
sollte man besser schreiben (if irgendwas ...)

(Nur so als kleiner Tip zum Thema Stilfragen.)

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

na dann zum nachschlagen "qaflags"

http://ww3.cad.de/foren/ubb/Forum145/HTML/002604.shtml

Edit: der Link will nicht
vllt. so

http://ww3.cad.de/foren/ubb/Forum145/HTML/002604.shtml

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
-Lots of irritating superfluous parentheses!-

[Diese Nachricht wurde von Dorfy am 02. Dez. 2016 editiert.]

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

---

Wenn man den Auswahlsatz an I gespeichert hat, braucht man nicht extra noch einen weiteren an AWS hängen.
Was jedoch sinnvoll wäre: Die Filtereinschränkrung auf den aktuellen Bereich, denn ein Autocad-Befehl(command..) wird nur Objekte des aktuellen Bereiches akzeptieren, nehme ich auf der Couch liegend an.

(if (setq AWS (ssget "_X" (list '(0 . "*DIM*)(cons 410 (getvar "CTAB")))))
mach was
(princ "\nKeine Bemassung im aktuellen Bereich gefunden")
)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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