---

Hallo,

ich möchte per Lisp bei einem vorhandenen Bemaßungstil das Merkmal Beschriftung ändern. Leider habe ich keine Möglichkeit dafür gefunden.
Mit der Systemvariablen dimanno kann ich herausfinden, ob bei einem Bemaßungsstil das Merkmal Beschriftung gesetzt ist. Diese ist aber schreibgeschützt und kann deshalb für meinen Wunsch nicht verwendet werden.
Beim neu erstellen eines Bemaßungsstils mit dem Befehl _dimstyle kann ich das Merkmal Beschriftung berücksichtigen. Ich möchte aber eigentlich das Merkmal eines bereits vorhandenen Bemaßungsstils ändern.

Wie kann ich das Merkmal Beschriftung eines vorhandenen Bemaßungsstils per Lisp ändern?

Danke im Voraus und viele Grüße
Bernd

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

---

Zitat:

---

Original erstellt von Bernd10:

Wie kann ich das Merkmal Beschriftung eines vorhandenen Bemaßungsstils per Lisp ändern?

---

Indem du die XDATA
("AcadAnnotative" (1000 . "AnnotativeData") ....)
vom DIMSTYLE-Object entfernst ???

Siehe : (entget(tblobjname "dimstyle" "NAME")'("*"))

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

---

Hallo CADmium,

entschuldige dass ich mich erst jetzt melde. Ich musste ein anderes Thema vorziehen.

Zitat:

---

Original erstellt von CADmium:
Indem du die XDATA
("AcadAnnotative" (1000 . "AnnotativeData") ....)
vom DIMSTYLE-Object entfernst ???

---

Ich habe es bisher nur oberfläch getestet und deshalb im Detail noch nicht verstanden. Dies werde ich jetzt nachholen. Bei genaueren Fragen dazu melde ich mich wieder.

Danke schon mal und viele Grüße
Bernd

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

---

Hallo Thomas,

aufgrund Deiner Informationen habe ich die folgende Lösung fürmein Problem erarbeitet:

  (setq idimanno (getvar "dimanno"))
  (if (= idimanno 0)
    (progn
      (setq lentgetalt (entget (tblobjname "dimstyle" cbemstil) (list "*")))
      (setq lxdataalt (assoc -3 lentgetalt))
      (setq lxdataneu nil)
      (setq ianzxdataalt (length lxdataalt))
      (setq izlerxdataalt 0)
      (while (< izlerxdataalt ianzxdataalt)
(setq xxdataalt (nth izlerxdataalt lxdataalt))
(if (= (type xxdataalt) 'LIST)
  (progn
    (setq cawname (nth 0 xxdataalt))
    (if (= (strcase cawname) (strcase "AcadAnnotative"))
      (progn
(setq ilpos 4)
(setq lalt (nth ilpos xxdataalt))
(setq lneu (cons (vl-bb-ref '*igcint*) 1))
(setq lacadannotativeneu (listeninhalt_ersetzen xxdataalt ilpos lneu))
(setq lxdataneu (append lxdataneu (list lacadannotativeneu)))
      ) ; progn
      (progn ; else
(setq lxdataneu (append lxdataneu (list xxdataalt)))
      ) ; progn
    ) ; if
  ) ; progn
  (progn ; else
    (setq lxdataneu (append lxdataneu (list xxdataalt)))
  ) ; progn
) ; if
(setq izlerxdataalt (+ izlerxdataalt 1))
      ) ; while
      (setq ilposxdataalt (listenpos_ermitteln lentgetalt lxdataalt 0 2))
      (setq lentgetneu (listeninhalt_ersetzen lentgetalt ilposxdataalt lxdataneu))
      (setq lentmod (entmod lentgetneu))
    ) ; progn
  ) ; if

Danke nochmals und viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 15. Mrz. 2011 editiert.]

[Diese Nachricht wurde von Bernd10 am 15. Mrz. 2011 editiert.]

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