---

Hallo Leute, ich habe eine Zeichnung bekommen die viele Regionen enthält. Es handelt sich um Schraffurumrandungen mit Inselbereichen. Ich kann nun aber die Außenumrandung nicht verändern. Habe mit dem Befehl Ursprung versucht mir zu helfen, bringt aber nix, da dann die Polylinien in Linien aufgelöst werden. Welche Möglichkeit gibt es, Regionen aufzulösen und die Umgrenzung als Polylinie zu erhalten?

Danke Jürgen

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

---

Hallo Jürgen,

mal den Befehl umgrenzung versucht ?

------------------
Gruß
Heiko

"Kunst kommt von können, nicht von wollen, sonst müsste es ja Wunst heißen." - Karl Valentin

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

---

oder sowas als Automatismus... kann ja auch auf eine Auswahl von Regionen (also mehrere auf einmal ) erweitert werden

(defun C:Region2PL(/ Region LASTOBJ AWS)
  (if(and(setq Region(car(entsel"\nRegion wählen:")))
        (=(strcase(cdr(assoc 0(entget Region))))"REGION")
        (setq LASTOBJ (entlast))
    )
    (progn
      (command "_explode" Region)
      (setq AWS (ssadd))
      (while (setq LASTOBJ(entnext LASTOBJ))
        (ssadd LASTOBJ AWS)
      )
      (command "_pedit" "_m" AWS "" "_y" "_j" 0.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

---

Hallo Heiko,

ich kannte den Befehl Umgrenzung noch gar nicht. Habe ihn angewendet, klappt sehr gut. Habe jetzt wieder Polylinien als Umrandung.

Klappt der Befehl nur wenn ich in die Fläche reinklicke oder kann ich den Befehl auch auf die ganze Zeichnung durch ziehen eines Fensters anwenden?

Gruß Jürgen

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

---

Währe es nicht ratsam die Region weiterhin zu nutzen und mit:
Vereinigung
Differenz
(Schnittmenge)
Die ggf. assoziativen Schraffuren passen sich dann auch an.
Gruß

------------------
  ...  günter

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

---

Hallo Thomas,

habe gerade dein LISP-Programm gestartet. Wie kann ich alle Regionen auf einmal ansprechen? Ich habe mit Filter die Regionen herausgesucht und dann dein Programm gestartet. Habe dann "v" für vorher eingegeben, aber leider erkennt das Programm den Auswahlsatz nicht.
WAs kann ich machen?

Gruß Jürgen

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

---

na um mehrere Regionen auf einmal umzuwandeln nimm das:
(defun C:Regions2PL(/ AUSWAHL INDEX Region LASTOBJ AWS)
  (if(setq AUSWAHL(ssget '((0 . "REGION"))))
    (progn
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (setq REGION (ssname AUSWAHL(setq INDEX(1+ INDEX))))
        (setq LASTOBJ (entlast))   
        (command "_explode" Region)
        (setq AWS (ssadd))
        (while (setq LASTOBJ(entnext LASTOBJ))
          (if (member (cdr(assoc 0 (entget LASTOBJ))) '( "LINE" "POLYLINE" "LWPOLYLINE" "ARC"))
            (ssadd LASTOBJ AWS)
          ) 
        )
        (if (>(sslength AWS)0)
          (command "_pedit" "_m" AWS "" "_y" "_j" 0.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

---

Hallo Thomas,

hat jetzt super funktioniert. Vielen Dank für deine schnelle Hilfe.

Jürgen

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

---

Hallo zusammen,
erst mal vorstellen.
Ich bin eigentlich aus dem CoCreate Forum.
Wir benutzen einen AutoCad Platz hauptsächlich zum Aufbereiten von Kunden Cad-daten
bevor wir sie in unserer Cad-umgebung weiterverwenden.
Bin durch suchen in diesen Beitrag gekommen.
Wir haben aktuell das gleiche Problemchen.
Die Regionen werden von unserem Translator nicht sauber übersetzt.
Wenn ich sie auflöse ist alles ok.
Da dies aber zu Fuss bei Zeichnungen mit vielen Regionen viel Arbeit ist,
würde ich das gerne verwenden. 

Nun die Frage eines "blutigen Anfängers" und Nichtlisplers:
Wie bekomme ich dieses Lisp unter eine Schaltfläche in meinem Werkzeugkasten?

Gruss Friedhelm

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

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

---

Hi,

hilft dir für's erste das hier weiter?
http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml 

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Vielen Dank, hat geholfen.
Ui's sind unterwegs
Gruss
Friedhelm

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

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