---

Hallo,

gibt es eine Routine, um das umgebende Rechteck eines mit Inhalt gefüllten Attributs zu ermitteln ?

So in der Art wie "textbox" für Text ?

------------------
MfG
Frank

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

---

die Boundindbox Methode ist dafür geeignet.
Da brauchst du ja nicht wirklich eine Routine für.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

ja, perfekt

danke

------------------
MfG
Frank

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

---

Zumindest wenn der Text waagerecht oder senkrecht steht.
http://www.lee-mac.com/boundingbox.html

[EDIT]
Für den Test bei Attributobjekten dann nur (car (Nentsel)) statt (car (entsel)) verwenden.

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

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 06. Dez. 2021 editiert.]

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

---

Hallo Frank,
ich habe da noch eine Variante mit textbox. Mit einem Faktor können über die Diagonallängen die Eckpunkte noch ein wenig vom Text abgerückt werden, ich finde der Faktor 1.1 bringt ganz schicke Ergebnisse. Wenn die Texte/Attribute gedreht sind wird das über den Winkel berücksichtigt (GC 50)

Code:

---

(defun JBf:TextBox:Rahmen (objTxt Faktor /  COORDS COORDSARRAY P P1 P2 P3 P4 TBCOORDS VLA-OBJ W X)

  (vl-load-com)
 
  (setq tbcoords (textbox (entget objTxt))
        p (cdr(assoc 10 (entget objTxt)))
        w (cdr(assoc 50 (entget objTxt)))
        p1 (polar '(0.0 0.0) (+ (angle '(0.0 0.0)(car tbcoords))w)(distance '(0.0 0.0) (car tbcoords)))
        p2 (polar p1 w (- (car(cadr tbcoords))(car(car tbcoords))))
        p3 (polar p2 (+ w (* pi 0.5))(- (cadr(cadr tbcoords))(cadr(car tbcoords))))
        p4 (polar p3 (+ w pi)(- (car(cadr tbcoords))(car(car tbcoords)))))

  (setq coords
        (apply 'append
                (mapcar '(lambda(X)
                          (mapcar '+ p X)
                    )

                  (list (polar p3 (angle p3 p1)(*(distance p3 p1)Faktor))
                        (polar p4 (angle p4 p2)(*(distance p4 p2)Faktor))
                        (polar p1 (angle p1 p3)(*(distance p1 p3)Faktor))
                        (polar p2 (angle p2 p4)(*(distance p2 p4)Faktor)))
                  )
                )
        coordsArray (vlax-make-safearray vlax-vbDouble
                      (cons 0  (- (length coords) 1))))
  (vlax-safearray-fill coordsArray coords)

  (setq vla-obj
        (vla-addLightweightPolyline
          (vla-get-modelSpace
            (vla-get-activeDocument (vlax-get-acad-object))
            )coordsArray))
  (vla-put-layer vla-obj (vla-get-layer (vlax-ename->vla-object objTxt)))
  (vla-put-color vla-obj 256)
  (vla-put-closed vla-obj :vlax-true)
  )

---

Kannst Du ja mal ausprobieren und Dir den Code anpassen.

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

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

Bosse_tools-Überblick

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Zumindest wenn der Text waagerecht oder senkrecht steht.

---

... und wenn er keine Zeichenformatierung enthält, die die Größe beeinflussen kann (z.B. hoch- oder tiefgestellte Zeichen)

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