;  LISP - ROUTINE  VBL-D  (Blöcke drehen)
;
;
;  AUTOR:  Mario Tröger   www.the-skier.de
;  VERSION:  1.01  vom  09.07.2001
;  
;______________________________________________________________________________


(defun C:VBL-D ( / )
 (princ "\n\n>>> ÄNDERN VON BLOCKDREHUNG <<<\n")
 (setq aws (ssget))
 (setq za 0)
 (setq edart nil)
 (if aws (setq anz (sslength aws))(setq anz 0))
 (princ "\n")(princ anz)(princ " Block-Elemente gefunden.")
 (setq dreh (getstring "\nGewünschte DREHUNG : "))
 (setq dreh (angtof dreh 0))
 (if aws (setq anz (sslength aws))(setq anz 0))
 (if aws (princ "\nElemente werden geändert ..."))
 (repeat anz
  (setq ele (ssname aws za)
        ell (entget ele)
         za (1+ za)
  )
  (setq ell (entget ele))
  (setq ell (subst (cons 50 dreh) (assoc 50 ell) ell))
  (entmod ell)
  (entupd ele)
 )
(if aws (princ "\nÄndern beendet !"))
(princ)
)