---

Hallo zusammen

ich habe hier eine Lisp, die die Fläche eines Polygons ausliest und die dann als Text per Klick einfügt.

___

(defun Get-ObjectIDx64 (obj / util)
  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)
      (rtos (vla-get-objectid obj) 2 0)
    )
  )
)

(defun c:AT (/ entObject entObjectID InsertionPoint ad)
  (vl-load-com)
  (setq entObject (vlax-ename->vla-object(car (entsel)))
        entObjectID (Get-ObjectIDx64 entObject)
        InsertionPoint (vlax-3D-Point (getpoint "Select point: "))
        ad (vla-get-ActiveDocument (vlax-get-acad-object))
  )
  (vla-addMText (if (= 1 (vla-get-activespace ad))
    (vla-get-modelspace ad)
    (if (= (vla-get-mspace ad) :vlax-true)
      (vla-get-modelspace ad)
      (vla-get-paperspace ad)
    )
  )
  InsertionPoint 0.0 (strcat
  "%<\\AcObjProp Object(%<\\_ObjId "
  entObjectID
  ">%).Area \\f \"%pr2%lu2%ct8 m2\">%"
  ))
)
___

Wäre es möglich, dem Text auch gleich eine Hintergrundfarbe (am Besten "Background") zu geben mit einem bestimmten Randversatz z.Bsp. 1.2?

Beste Grüsse
Kirjava

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

---

Erstelle in Acad doch mal einen MText und kopiere den, dann gebe einem von beiden
die gewüschte Einstellung und vergleiche beide.

Da ich das soweit möglich mit AutoLisp mache gehen mir die VisualLisp Begriffe nicht so leicht
von der Hand, aber da auch hier die Doku sowie die Möglichkeit von vlax-dump-object recht gut ist wirst
du es schon alleine schaffen, die Antwort ist: Ja

BeispielLink: Klick

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Zitat:

---

Original erstellt von Kirjava:
...Wäre es möglich, dem Text auch gleich eine Hintergrundfarbe (am Besten "Background") zu geben mit einem bestimmten Randversatz z.Bsp. 1.2?

Beste Grüsse
Kirjava

---

Klar, Gruppencode 45 und 90 des MTEXT Objektes anpassen.

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

Udo Hübner
www.CAD-Huebner.de

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

---

nicht zu vergessen der gruppencode 63 und am ende

Code:

---

(vla-put-backgroundfill (vlax-ename->vla-object en) :vlax-true)

---

wobei en der elementname des text-objekts ist

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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