(defun C:ATTS-VISIBLE(/ BLOCK)
(if(and(setq BLOCK(car(entsel "\nBlockreferenz mit Attributen wählen:")))
(setq BLOCK(vlax-ename->vla-object BLOCK))
(member (strcase(vla-get-objectname BLOCK))'("ACDBBLOCKREFERENCE" "ACDBMINSERTBLOCK"))
(=(vla-get-hasattributes BLOCK):vlax-true)
)
(progn
(vla-endundomark(vla-get-activedocument(vlax-get-acad-object)))
(vla-startundomark(vla-get-activedocument(vlax-get-acad-object)))
(foreach ATT(vlax-safearray->list(vlax-variant-value(vla-getattributes BLOCK)))
(vla-put-invisible ATT :vlax-false)
)
(vla-endundomark(vla-get-activedocument(vlax-get-acad-object)))
)
(princ"\nKeine Blockreferenz mit Attributen gewählt")
)
(princ)
)
Schaltet alle Atts der Blockref wieder sichtbar ....
aber die Integration in so einen Editor find ich auch besser .. mal sehen , wenn Zeit ist
------------------
- 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