block nested befehl lisp nicht ändern diese und typeline in byblock

[jim78b]

allego il dwg di esempio, ho il listato bb.lsp ; se edito il blocco sul posto e poi vado su un altro blocco al suo interno , avvio il comando bb seleziono il blocco indicato mentre sto editando in posto, non mi cambia il sud colored in pote

(Defun c:bb)
(setq Blöcke (vla-get-Blöcke (vla-get-activedocument (vlax-get-acad-object)))
grublo (ssget '((0 . "Insert")))
ssgetblocks '()
ssgetblocks1()
)

(Repeat (setq index(sslength grublo))
(setq ssgetblocks (cons (vla-get-effektname (vlax-ename->vla-object (ssname grublo (setq index(1- index)))))))))
)

(jeder elem ssgetblocks
(falls nicht(erinnern elem ssgetblocks1))
(setq ssgetblocks1 (cons elem ssgetblocks1))
)
)

(jeder elem ssgetblocks1
(setq bloccovl(vla-item block elem)
Index 0
)

(Repeat (vla-get-count bloccovl)
(vla-put-color (vla-item bloccovl index) 0)
(vla-put-linetype (vla-item bloccovl index) "byblock")
(Satzindex (1+ Index))
)

)

(vla-regen (vla-get-activedocument (vlax-get-acad-object))))

)