---

Hallo,
ich würde gerne die Grenzen von mehreren Polylinien auslesen.

Was ich gefunden habe:
Polylinie in Region umwandeln und dann mit dem Befehl Liste die Daten der Region anzeigen. Da werden die Koordinaten der linken unteren sowie der rechten oberen Ecke angezeigt:

Befehl: liste
Objekte wählen: 1 gefunden
REGION
Begrenzungsrahmen:
Untere Begrenzung X = 137.2860 , Y = 134.5110 , Z = 0.0000
Obere Begrenzung X = 408.4518 , Y = 311.6538 , Z = 0.0000

Zuerst wollte ich diese Werte über die Datenextraktion (_EATTEXT) auslesen, aber sie werden nicht ausgegeben.

Könnte man über LISP eine Liste mit den Koordinaten der Begrenzung machen?

Mit freundlchen Grüßen
cad-bonn

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

---

Schau Dir mal DIESE Funktion an (und vielleicht auch den ganzen Beitrag).

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 09. Mai. 2011 editiert.]

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

---

Zitat:

---

Original erstellt von cad-lisp:

die Größe kannst du mit der Funktion  vla-getboundingbox ermitteln.
Hier ein keines Beispiel.

(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
  (list p0 p1)
   
)

hoffe es hilft dir weiter

Gruß
cad-lisp

---

Hallo Henning,
danke für den Tipp!
Ich habe das LISP von cad-lisp etwas ergänzt. Ich würde nämlich gerne noch das umfassende Rechteck zeichnen lassen, aber gleichzeitig die Koordinaten anzeigen.

Ich habe also etwas angehängt (siehe fetter Teil unten).
Nun wird das Rechteck gezeichnet, jedoch werden die Koordinaten nicht mehr angezeigt. 

(defun c:box ( / 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
  (list p0 p1)
 
  (command "_rectang" p0 p1))
)

MfG
cad-bonn

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

---

so besser
(defun c:box ( / 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
  (list p0 p1) 
  (command "_rectang" p0 p1)
  (list p0 p1) 
))

wenn nicht , hilft auch ein
(princ(list p0 p1))
oder ein
(alert(vl-princ-to-string(list p0 p1)))

.. kann man natürlich alles noch aufhübschen 

------------------
      - 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

---

Vielen Dank für die schnelle Antwort, klappt wunderbar!

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

---

Hallo Thomas, nochmal Danke!
jetzt versuche ich noch einen Text (Befundnummer) zu wählen, und dieser Text soll in der Befehlszeile aufgelistet werden. Mein Versuch sieht so aus:

(defun c:box ( / ELE LL P0 P1 UR BFNR)
  ;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
  (list p0 p1)

 
  (command "_rectang" p0 p1)
  (list p0 p1)
 
  (setq bfnr(entsel "\nBitte Befundnummer wählen:"))
 
)

Es wird die Koordinate und Objektname angezeigt (siehe Screenshot), aber wie könnte ich stattdessen den Textinhalt (hier die 212) anzeigen lassen? Die rot umrandeten Meldung würde ich gerne weglassen.
Bin leider noch nichtmal LISP-Anfänger.
Gruß
cad-bonn

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

---

(vla-get-textstring  (vlax-ename->vla-object (car (entsel "\nBitte Befundnummer wählen:")))) ?

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Hallo Heiko,

dein Zeilchen funktioniert und hat mir sehr weitergeholfen!

MfG cad-bonn

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

---

Guten Morgen,

noch eine Frage zur Befehlszeile. Hab ich dort die Möglichkeit mir auch die waren Koordinaten anzeigen zu lassen? Im obigen Srceenshot werden die Koordinaten mit 2.5149e+006 und 5.63116e+006 ausgegeben, anstatt mit 2514952.123 und 5631623.563.

MfG cad-bonn

[Diese Nachricht wurde von cad-bonn am 01. Jun. 2011 editiert.]

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

---

da hilft sowas wie (rtos 2.3453e12 2 3) weiter

------------------
  - 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

---

Danke für die Antwort! Ich hab es mal ausprobiert.

Ergebnis:
Befehl: (rtos 2.51489e+006 2 3)
"2514890"

Leider werden die Kommastellen nicht ausgegeben.

Liegt das Problem vielleicht an meinem LISP-Programm, da es zu "große" Koordinaten sind?
Ich hab mal meine Zeichnung näher an den Ursprung verschoben, da hat es auch dann mit den Nachkommastellen geklappt. Jetzt muß ich halt die Verschiebung wieder auf die Koordinaten addieren, dass find ich etwas umständlich.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(defun c:box ( / BFNR ELE LL P0 P1 UR)
  ;Funktion gibt Punkte für umfassendes Rechteck zurück
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setq bfnr(vla-get-textstring  (vlax-ename->vla-object (car (entsel "\nBefundnummer wählen:")))))
 
  (setq ele(entsel "\nBefund 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
  (list p0 p1)

  (command "_rectang" p0 p1)
  (setvar "cmdecho" 1)
 

  (list bfnr p0 p1)
 
)

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

---

Zitat:

---

Original erstellt von cad-bonn:
Danke für die Antwort! Ich hab es mal ausprobiert.

Ergebnis:
Befehl: (rtos 2.51489e+006 2 3)
"2514890"

Leider werden die Kommastellen nicht ausgegeben.

---

Ähmmm da sind gar keine Kommastellen ungleich 0 .. wenn die Nullen nach dem Komma nicht unterdrückt werden sollen, mußt du DIMZIN auf 4 oder so stellen

------------------
  - 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

---

DIMZIN = 0
LUPREC = 4 (Edit: Nachkommastellen)

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

[Diese Nachricht wurde von Dorfy am 01. Jun. 2011 editiert.]

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

---

Hallo,

Hbe es mit den Systemvariablen probiert. Ich schaff es immer noch nicht mir die genauen Koordinaten mit drei Nachkommastellen (z.b. 2534567.345) in der Befehlszeile anzeigen zu lassen. Über den Umweg _id wird die korrekte Koordinate angezeigt:

X = 2514905.652    Y = 5631162.610    Z = 0.000

Ich scheiter aber daran den Befehl _id in mein LISP einzubauen!

mfg cad-bonn

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

---

Wenn mehr als
2.34567890123e+006 = 2345678.90123

Befehl: (rtos 2.34567890123e+006 2 3)
"2345678.901"

Code 2 = Dezimal
Code 3 = 3 Nachkommastellen

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

Udo Hübner
www.CAD-Huebner.de

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

---

Mit dem Befehl rtos kann ich nicht auf ein Koordinatenpaar (x und y-Wert) zugreifen.

Befehl: ( rtos 2.51489e+006 5.63116e+006 2 3)
; Fehler: Zu viele Argumente

Im Lisp wäre das bei mir die Variable p0, welche in einer Liste gespeichert wird. Hab ich die Möglichkeit nur auf ein Element der Variablen zuzugreifen (z.b. x-Wert), um dann rtos anzuwenden?

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

---

du hast deine Koordinaten als Liste (einmal p0 und p1), an die einzelnen Werte kommst du mit zBsp.: car und Co.....
Die Einzelwerte kannst du mit rtos in einen String umwandeln und zBsp
mit princ + eingeschobene Texte wieder ausgeben.

edit: (princ (rtos p1x...) (rtos p1y...) "lala" (rtos p0x... (rtos p0y) "lalülala"
p1x = (car p1) usw...

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

[Diese Nachricht wurde von Dorfy am 01. Jun. 2011 editiert.]

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

---

Vielen, vielen Dank für eure Bemühungen und Tipps. Bin endlich am Ziel!

rtos und car und co waren die richtigen Hinweise!

MfG cad-bonn

[Diese Nachricht wurde von cad-bonn am 01. Jun. 2011 editiert.]

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