(defun C:Br (/ ss1 matblk brot cnt blk obj)
(setq ss1 (ssget (list (cons 0 "INSERT"))))
(if ss1
(progn
(setq matblk (car (entsel "\nSelect Block with match rotation angle: ")))
(setq brot (vlax-get-property
(vlax-ename->vla-object matblk) 'Rotation))
(setq cnt 0)
(while (vla-object blk))
(setq obj (vlax-put-property obj 'Rotation brot))
(setq cnt (1+ cnt))
)
)
)
(princ)
)
(c:br)

Advertisements