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