---

(defun sync-visibility (/ ss i ent ev attr)
  (setq ss (ssget "X" '((0 . "INSERT")(2 . "ИМЯ_БЛОКА"))))
  (repeat (sslength ss)
    (setq ent (ssname ss (setq i (1+ (if (boundp 'i) i -1)))))
    (setq ev (entget ent))
    (setq vis (cdr (assoc 301 ev)))   ; текущее состояние видимости
    ; записываем в атрибут с тегом VIS_STATE
    (foreach a (vlax-invoke (vlax-ename->vla-object ent)
                            'GetAttributes)
      (if (= (vla-get-TagString a) "VIS_STATE")
        (vla-put-TextString a vis)))
  )
)