---

Wie kann ich mittlels Lisp eine Region wieder in eine Polylinie verwandeln? Beim Ursprung entstehen ja nur Linien.

Ich versuche hier den Ansatz von http://ww3.cad.de/foren/ubb/Forum54/HTML/012237.shtml
weiterzuentwickeln.

Ziel ist also ein Befehl der Polylinien so wie Regionen vereingigt.
Zuerst sollen die Polylinien in Regionen verwandelt werden, dann erfolgt die Vereinigung und abschliessend die Rückverwandlung.

------------------
Gruß aus Wien
Bernhard

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

---

Hallo Bernhard,
vielleicht hilft Dir folgender Ansatz weiter.

Code:

---

(defun c:test ( / reg last_obj aws_temp)

  (setq reg (car(entsel "\nRegion auswählen:"))
        last_obj reg
aws_temp (ssadd))
  (command "_.explode" reg)
  (while (setq last_obj(entnext last_obj))
    (ssadd last_obj aws_temp))
  (command "_.pedit" (ssname aws_temp 0) "_Y" "_J" aws_temp "" ""))

---

------------------
viele Grüße

Jörn

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

---

Der Code funktioniert nur richtig, wenn die Region als letzes Element gezeichnet wurde.
Richtig ist es, beginnend von (entlast) die neuen Elemente (Linien/Bögen) zu sammeln und dann zu verbinden.
Allerdings kann eine Region ja auch Ellipsen enthalten (wird hier nicht passieren, da ja Polylinien zuerst zu Regionen umgewandelt werden), dann würde das PEDIT _Join versagen.

Zitat:

---

Original erstellt von joern bosse:
Hallo Bernhard,
vielleicht hilft Dir folgender Ansatz weiter.

Code:

---

(defun c:test ( / reg last_obj aws_temp)

  (setq reg (car(entsel "\nRegion auswählen:"))
        last_obj (ENTLAST) ; reg
aws_temp (ssadd))
  (command "_.explode" reg)
  (while (setq last_obj(entnext last_obj))
    (ssadd last_obj aws_temp))
  (command "_.pedit" (ssname aws_temp 0) "_Y" "_J" aws_temp "" ""))

---

---

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

@joern bosse @CAD-Huebner

Der Einwand betr. ENTLAST ist zwar richtig, dürfe aber IMHO keine Rolle spielen, da dir Region das letze erstellte Element wäre.

------------------
Gruß aus Wien
Bernhard

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

---

Anbei das Ergebnis:

Code:

---

(DEFUN c:plver  (/ awspl len n elempl awsreg reg last_obj aws_temp)
  (COMMAND "_UNDO" "_Group")
  (SETQ awspl (SSGET '((0 . "LWPOLYLINE"))))
  (SETQ len (SSLENGTH awspl))
  (SETQ n 0)
  (WHILE (< n len)
    (SETQ elempl (SSNAME awspl n))
    (SETQ n (1+ n))
    (COMMAND "_.REGION" elempl "")
    (SETQ awsreg (IF awsreg
                  (SSADD (ENTLAST) awsreg)
                  (SSADD (ENTLAST))))
    )
  (COMMAND "_.UNION" awsreg "")
  (SETQ reg      (ENTLAST)
        last_obj reg
        aws_temp (SSADD))
  (COMMAND "_.explode" reg)
  (WHILE (SETQ last_obj (ENTNEXT last_obj))
    (SSADD last_obj aws_temp)
    )
  (COMMAND "_.pedit" (SSNAME aws_temp 0) "_Y" "_J" aws_temp "" "")
  (COMMAND "_UNDO" "_END")
  (PRINC)
  )

---

Leider smiliy trotz Code-Tag / deaktiviert ...

Anwendungserfahrungen und konktrete Verbesserungsvorschläge ausdrücklich erwünscht.

------------------
Gruß aus Wien
Bernhard

[Diese Nachricht wurde von Bernhard GSD am 25. Okt. 2005 editiert.]

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

---

hallo Bernhard!
super routine.
ich habe mir erlaubt ein paar zeilen einzufuegen fuer die behandlung der 'peditaccept'-variable. es gibt naemlich einen abbruch wenn die auf '1' steht.
danke
peter

(DEFUN c lver  (/ awspl len n elempl awsreg reg last_obj aws_temp)
  (COMMAND "_UNDO" "_Group")
(setq oldpeditaccept (getvar "peditaccept"))
(setvar "peditaccept" 0)
  (SETQ awspl (SSGET '((0 . "LWPOLYLINE"))))
  (SETQ len (SSLENGTH awspl))
  (SETQ n 0)
  (WHILE (< n len)
    (SETQ elempl (SSNAME awspl n))
    (SETQ n (1+ n))
    (COMMAND "_.REGION" elempl "")
    (SETQ awsreg (IF awsreg
                  (SSADD (ENTLAST) awsreg)
                  (SSADD (ENTLAST))))
    )
  (COMMAND "_.UNION" awsreg "")
  (SETQ reg      (ENTLAST)
        last_obj reg
        aws_temp (SSADD))
  (COMMAND "_.explode" reg)
  (WHILE (SETQ last_obj (ENTNEXT last_obj))
    (SSADD last_obj aws_temp)
    )
  (COMMAND "_.pedit" (SSNAME aws_temp 0) "_Y" "_J" aws_temp "" "")
(setvar "peditaccept" oldpeditaccept)
  (COMMAND "_UNDO" "_END")
  (PRINC)
  )

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

---

hi !

ich wollte gerade die funktion ausprobieren - ohne erfolg.

dann habe ich mir den code angesehen und frage mich was mit der abfrage

(SETQ awspl (SSGET '((0 . "LWPOLYLINE"))))

bezweckt werden soll ! ich möchte doch REGIONEN auswählen und die haben den GC = REGION !!!

kann mir einer weiterhelfen ??

gruß Jan :-)

------------------
jan :-)

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Der Code funktioniert nur richtig, wenn die Region als letzes Element gezeichnet wurde.
Richtig ist es, beginnend von (entlast) die neuen Elemente (Linien/Bögen) zu sammeln und dann zu verbinden.
Allerdings kann eine Region ja auch Ellipsen enthalten (wird hier nicht passieren, da ja Polylinien zuerst zu Regionen umgewandelt werden), dann würde das PEDIT _Join versagen.

---

unabhängig davon, dass das (entlast) ghier keine Rolle spielt, gibt es dabei noch was zu beachten :

Ist das letzte Objekt zufällig ein Block mit Attributen, oder eine alte Polylinie mit Kontrollpunkten gibt (entlast) das INSERT bzw die POLYLINE zurück ! Ein (entnext last_obj) gibt dann nicht die neu erstellten Objekte, sondern erst die Atttribute bzw. Kontrollpunkte !

Also sicherheitshalber immer so:

(setq last_obj (entlast))
(while (entnext last_obj) (setq last_obj (entnext last_obj)))

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hi Jan,

Zitat:

---

Original erstellt von Bernhard GSD:
Ziel ist also ein Befehl der Polylinien so wie Regionen vereingigt.
Zuerst sollen die Polylinien in Regionen verwandelt werden, dann erfolgt die Vereinigung und abschliessend die Rückverwandlung.

---

und das scheint die Funktion zu machen. Wo ist das Problem?

Gruß
CADchup

------------------
CADmaro.de

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

---

hallo fuchsi !

willst du damit

Code:

---

(WHILE (SETQ last_obj (ENTNEXT last_obj))
    (SSADD last_obj aws_temp)
    )

---

ersten ?

so das darauf folgendes wird:

Code:

---

(WHILE

    (setq last_obj (entlast))
    (while (entnext last_obj) (setq last_obj (entnext last_obj)))

    (SSADD last_obj aws_temp)
    )

---

irgendwie verstehe ich dich nicht ganz !

kannst mir nochmal den weg zeigen ?

gruß Jan :-)

------------------
jan :-)

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

---

hallo CADchup,

da haben sich die mails wohl überholt.

ich meine nicht was sie machen soll - sondern was technisch passiert. habe mich wohl wieder einmal undeutlich ausgedrückt.

ich habe die funktion, der überschrift nach zu urteilen, auch dazu benutzen wollen um regionen in polylinien zu konvertieren und nicht noch mit anderen elementen zusammen zu bringen.

gruß Jan :-)

------------------
jan :-)

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

---

@Jan

Ich wollte eigentlich nur darauf hinweisen, dass ein (entlast) nicht unbedingt das letzte Element in der Datenbank beinhaltet.

Das hat aber mit dem Problem in diesem Post eigentlich nichts zu tun.

Also in folgendem Beispiel von CAD-HUEBNER

(defun c:test ( / reg last_obj aws_temp)

  (setq reg (car(entsel "\nRegion auswählen:"))
        last_obj (ENTLAST) ; reg
aws_temp (ssadd))
  (command "_.explode" reg)
  (while (setq last_obj(entnext last_obj))
    (ssadd last_obj aws_temp))
  (command "_.pedit" (ssname aws_temp 0) "_Y" "_J" aws_temp "" ""))

waäre das zuletzt erzeugte Element vor dem (command "._explode" ..) zufällig ein Block mit Attributen gewesen, so würde das Lisp versuchen, auch die Attribute und das Sequend (und damit den Block selber) zur Polylinie hinzuzufügen -> Fehler !

Also so ist es besser

(defun c:test ( / reg last_obj aws_temp)

  (setq reg (car(entsel "\nRegion auswählen:"))
        last_obj (ENTLAST) ; reg
aws_temp (ssadd))
(while (entnext last_obj) (setq last_obj (entnext last_obj)))

  (command "_.explode" reg)

  (while (setq last_obj(entnext last_obj))
    (ssadd last_obj aws_temp))
  (command "_.pedit" (ssname aws_temp 0) "_Y" "_J" aws_temp "" ""))

aber da in diesem Problem eh gewährleistet ist, dass die betroffenen region das letzte Element ist, ist das wie gesagt nur eine Anmerkung am Rande

[Diese Nachricht wurde von fuchsi am 07. Aug. 2007 editiert.]

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

---

hi !

ich danke dir vielmals für die wegweisung.

gruß Jan :-)

------------------
jan :-)

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

---

Hallo zusammen

vielleicht nur so als Anregung für den Zugriff auf die nach EXPLODE
vorhandenen Elemente.
Nach EXPLODE kann man die Elemente mit (ssget "_P") erhalten.
Dadurch braucht man sich auch keine Gedanken darüber zu machen,
was ev. für ein Element das letzte ist.

------------------
Grüße
Heinz

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