---

Hallo,
für normale Attribute verwende ich die Funktion TEXTBOX um die umgrenzenden Koordinaten festzustellen (z.B. um das Attribut mit einem Rechteck zu umfassen).

Bei mehrzeiligen Attributen funktioniert das nicht, hat irgendwer eine Idee, wie man da verfahren kann??
Bin wie immer für jeden Tipp dankbar.

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

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

Hallo,
ich glaube ich habe die Lösung bereits, im GC 42 und 43 sind Breite und Höhe hinterlegt. Also, ich ziehe die Frage erstmal zurück.

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

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

Vielleicht ist die Expresstool funktion für die interessant

(acet-geom-textbox e1 0.2) ; 0.2 offset Textumrandung

also so
(setq tb (acet-geom-textbox (entget (car (nentsel))) 0.2)) ; 0.2 offset Textumrandung

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

[Diese Nachricht wurde von cadplayer am 19. Apr. 2013 editiert.]

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

---

Hallo Dirk,
danke für Deine Rückmeldung, ich habe es jetzt aber schon gelöst:

Code:

---

;;;Mehrzeiliges Attribut picken
(defun c:test ( / KOORDS OBJ)
  (if (=(vlax-get (vlax-ename->vla-object (setq obj(car(nentsel))))
          'MtextAttribute)-1)
    (progn
      (setq koords(JBf_TextBox:EckpunkteWelt:AttMehrzeilig obj 1.1))
      (command "_.pline"
        (car koords)
        (cadr koords)
        (caddr koords)
        (cadddr koords) "_c" ""))))
   

;;;Rückgabe von Weltkoordinaten lu, ru, ro, lo
(defun JBf_TextBox:EckpunkteWelt:AttMehrzeilig (objAtt AusdehungsFaktor /
                                                BASIS LISTE P1 P2 P3 P4 WINKEL)

  (setq liste (entget objAtt)
        p4 (cdr(assoc 10 (reverse liste)))
        winkel (cdr(assoc 50 liste))
        p1 (polar p4 (+ (* pi 1.5)winkel)(cdr(assoc 43 (reverse liste))))
        p2 (polar p1 winkel (cdr(assoc 42 (reverse liste))))
        p3 (polar p2 (+ winkel (* pi 0.5))(cdr(assoc 43 (reverse liste))))
        )
  (list (polar p3 (angle p3 p1)(*(distance p3 p1)AusdehungsFaktor))
        (polar p4 (angle p4 p2)(*(distance p4 p2)AusdehungsFaktor))
        (polar p1 (angle p1 p3)(*(distance p1 p3)AusdehungsFaktor))
        (polar p2 (angle p2 p4)(*(distance p2 p4)AusdehungsFaktor)))

  )

---

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

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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