;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun c:testentmod ( / 
                       eobj
                       imstabalt imstabneu
                       l13alt l13neu l14alt l14neu lentget lentgetneu lentmod
                       rabstbemalt rabstbemneu ryoffset )

  (terpri)
  (setq eobj (car (entsel "Objekt wählen: ")))

  (setq imstabneu 10)
  (setq imstabalt 50)
  (setq rabstbemneu (* 1.0 imstabneu))
  (setq rabstbemalt (* (/ rabstbemneu imstabneu) imstabalt))
  (setq ryoffset (- rabstbemalt rabstbemneu))
  (setq lentget (entget eobj))
  (setq lentgetneu lentget)
		
  (setq l13alt (cdr (assoc 13 lentget)))
  (setq l13neu (polar l13alt (wingrbm 90.0) ryoffset))
  (setq lentgetneu (subst (cons 13 l13neu) (cons 13 l13alt) lentgetneu))

  (setq l14alt (cdr (assoc 14 lentget)))
  (setq l14neu (polar l14alt (wingrbm 90.0) ryoffset))
  (setq lentgetneu (subst (cons 14 l14neu) (cons 14 l14alt) lentgetneu))
		
  (setq lentmod (entmod lentgetneu))



  
  (setq cbemstil (strcase "AcadWE")) 
  (setq iexpertsav (getvar "expert"))
  (setvar "expert" 5)
  (command "_.dimstyle" "sichern" cbemstil)
  (setvar "expert" iexpertsav)



  
; Rückgabewert
  (princ)

) ; Modulende  

;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun wingrbm ( rwingrad 
                  /
                  svtyp 
                  rwinbm rwingr )
 
; Die Typ der Variable kontrollieren
  (setq svtyp (type rwingrad))
  (if (= svtyp 'INT)
    (setq rwingr (float rwingrad))
    (setq rwingr rwingrad)  ; else
  ) ; if

; Den Winkel konvertieren
  (setq rwinbm (* pi (/ rwingr 180.0)))

; Rückgabewert
  rwinbm

) ; Modulende