---

Hallo
ich habe Blöcke mit Attributen. Diese Attribute möchten ich gerne mit einem Texthintergund belegen, damit man sie beser lesen kann. Wie macht man so etwas. Das Attribut als Multilinie habe ich schon erledigt, aber mit dem Hintergrund klappt es nicht. Ich kann natürlich alle Attribute händisch aufrufen und den Texthintergrund anschalten. Da das ca. 500 Blöcke sind ist das etwas mühselig. Kann mir jemand einen Tip geben?
(DEFUN c:Attsetz()
  (SETQ pkt (GETPOINT "Bitte geben Sie einen Punkt an: "))
  (SETQ atx (CAR pkt))
  (SETQ aty (CADR pkt))
  (SETQ dy 5)
  (SETVAR "AFLAGS" 32)
  (COMMAND "_-ATTDEF" "" "POSA1" "(000)" "" (LIST (+ atx 5) (- aty (* dy 11))) "H" 250 "A" "MZ" "B" 700)
  (SETVAR "AFLAGS" 32)
  (COMMAND "_-ATTDEF" "" "POSA2" "[000]" "" (LIST (+ atx 5) (- aty (* dy 12))) "H" 250 "A" "MZ" "B" 700)
  ); end defun

------------------
mit freundlichen Grüßen
Dirk

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

---

Hallo Dirk,
z.B. so ?

Mit den Werten kannst du ja noch rumprobieren.

Ach ja ... attsync nicht vergessen, sonst sind nur die Blockdefinitionen geändert.

(vlax-for blk (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
      )
  (vlax-for obj blk
    (if (and (= (vla-get-ObjectName obj) "AcDbAttributeDefinition")
     (= (vla-get-mtextattribute obj) :vlax-true)
)
      (progn
(setq ent_data (entget (vlax-vla-object->ename obj)))
(if (assoc 90 ent_data)
  (progn
    (setq ent_data
   (subst (cons 90 3) (assoc 90 ent_data) ent_data)
    )
    (setq
      ent_data
       (append
ent_data
(list (cons 63 256) (cons 45 1.5) (cons 441 0))
       )
    )
  )
  (progn
    (setq
      ent_data
       (append
ent_data
(list (cons 90 3)
       (cons 63 256)
       (cons 45 1.5)
       (cons 441 0)
)
       )
    )
  )
)
(entmod ent_data)
      )
    )
  )
)

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 18. Apr. 2013 editiert.]

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

---

Hallo Andreas,
Danke für die Hilfe. Ich habe allerdings bei Code 90 den Wert 1 angegeben und nicht 3, da sonst nur als Farbe die Hintergrundfarbe aktiviert wurde. Gibt es irgendwo eine Übersichtstabelle für die einzelnen Werte? Ich habe nur eine alte Tabelle aus einem alten AutoLISP Buch.

------------------
mit freundlichen Grüßen
Dirk

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

---

Keine Ahnung, ich hab einfach mal was eingestellt und dann die Werte von entget abgeschrieben 

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo Andreas
OK Danke. Habe auch nur abgeschrieben und hat funktiniert.
Da ich mich mit den VLA Befehlen nicht auskenne, möchte ich noch gerne wissen ob es irgendwo einen Link zum Üben gibt oder ein gutes Buch.

mfg
Dirk

------------------
mit freundlichen Grüßen
Dirk

[Diese Nachricht wurde von sidibu am 22. Apr. 2013 editiert.]

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

---

Schau mal bei Google nach "The_Visual_LISP_Developers_Bible" oder auch "www.lee-mac.com/files/VLReferenceChart.pdf"

So ne richtig gute Doku mit Infos bis zum Abwinken hab ich noch nicht gesehen.
Mein Weg war (und ist immer noch) hier übers Forum und viel ausprobieren.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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