;Rotate dynamic for Merkur1.dwg (select the red wheel)
(defun c:rotateDB ( / objent index property)
 (vl-load-com)
 (setq objent (car (entsel "\nDBlock to rotate: ")))
 (setq objent (vlax-ename->vla-object objent))
 (setq index 0)

 (setq property (vlax-safearray-get-element (vlax-variant-value (vla-getdynamicblockproperties objent)) index))
 (while (getstring ":")
  (if rdbval (setq rdbval (+ rdbval 0.05)) (setq rdbval 0.0))
  (vlax-put-property property 'Value rdbval)
  (setvar "CMDECHO" 0)(command "_REGEN")(setvar "CMDECHO" 1)
 )
(princ)
)