---

Hallo

Ich suche nach einer Funktion oder Tool womit ich ein Rechteck um eine Region oder Polyline
Man wählt die Region oder Polyline und es Zeichnet ein Rechteck um das Objekt.

Gruss

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

---

In Anlehnung an:
http://ww3.cad.de/foren/ubb/Forum145/HTML/000078.shtml#000001 

Code:

---

(defun c:ufr ( / ELE LL P0 P1 UR )
  ;Funktion gibt Punkte für umfassendes Rechteck zurück
  (vl-load-com)

  (setq ele(entsel "\nBitte Element wählen:"))

  (vla-getboundingbox (vlax-ename->vla-object (car ele)) 'll 'ur)

  (setq p0 (vlax-safearray->list ll));Punkt links unten
  (setq p1 (vlax-safearray->list ur));Punkt rechts oben
  (command "_rectangle" p0 p1)
)

---

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

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Danke für die schnelle Antwort Thomas

Genau was ich gesucht habe!!!!!!

Gruss

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

---

Hallo Thomas!

Kann man das Lisp so hinbiegen damit es auch im BKS funtioniert. Ich meine Form im Wks zeichnet dann Ausrichtung BKS und dann eine Umrandung zeichnen. Im Moment landet die Umrandung irgendwo.

LG Martin

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

---

Code:

---

(defun c:ufr ( / ELE LL P0 P1 UR )
  ;Funktion gibt Punkte für umfassendes Rechteck zurück
  (vl-load-com)

  (setq ele(entsel "\nBitte Element wählen:"))

  (vla-getboundingbox (vlax-ename->vla-object (car ele)) 'll 'ur)

  (setq p0 (trans (vlax-safearray->list ll) 0 1));Punkt links unten
  (setq p1 (trans (vlax-safearray->list ur) 0 1));Punkt rechts oben
  (command "_rectangle" p0 p1)
)

---

Sollte ich mich verhaut haben, möge man mich bitte zu recht weisen... 

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

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Guten Morgen Thomas!

Danke für deine Bemühungen. Jetzt bleibt die Umrandung zwar bei der Form aber die Umrandung wird nicht über die Eckpunkte gezogen. Wie schon gesagt im WKS funktioniert es gut aber im BKS leider noch nicht.

lg Martin

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

---

Bitte?

Hast du eventuell ein Beispiel dafür?

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

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo.

1. Ich zeichne eine Polylinienform (nur Geraden kein Bogen oder so) im WKS.
2. Nun richte ich das BKS an einer Schräge dieser Polylinie aus
3. Wenn ich nun beim ausgerichteten BKS das Lisp laufen lasse wird die Umrandung nicht an den äußersten Punkten erstellt.
Wie gesagt im WKS funktioniert es wunderbar.

lg Martin

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

---

nur mal am Rande, dass das Thema hier schon mal behandelt wurde

------------------
  - 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!
Danke für den Link.

Das Lisp funtioniert nun soweit recht gut. Nur die Umrandung wird immer zum WKS ausgerichtet dargestellt. Ideal wäre, wenn die Umrandung sich nach dem BKS ausrichten würde. Geht das überhaupt? Wäre das machbar?

LG Martin

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

---

Machbar ist vieles ... aber Boundingbox liefert die Min/max koordianten im WKS.. und 'n Lisp mit richtiger  Koordinatenanalyse ist etwas aufwendiger...und die andere Variante: Objekt um den BKS-Drehwinkel Temporär auf BKS-Welt zurückdrehen, mit Boundingbox die Koordinaten ermitteln .. im WKS das Rechteck zeichnen und mit dem schon ermittelten BKS-Winkel auf das BKS zurückdrehen finde ich auch nicht das Gelbe vom Ei
------------------
      - 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!

Danke für deine Hilfe.
Da du für deine Hilfe ja max einige "uus" bekommst machst du eh sehr viel für uns "Laien". Danke dafür.

Zu meinen Fragen vieleicht noch kurz: Man braucht dies als Tischler zum Aufteilen von Platten. Da die Maserung des Zuschnittes in verchiedene Richtungen geht richte ich diese mit dem BKS aus. Dafür wäre dann die Umrandung im ausgeríchteten BKS die dann die Länge und Breite des Zuschnittes anzeigen würde und ich diese Umrandung dann auf eine vorgegebene Platte auflegen könnte.

Verstanden???   

Danke! Martin

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