;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Attribut ELEV aller Blockreferenzen auf die Anzeigegenauigkeit runden
;; (c) Udo Hübner - 7/ 2019
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(vl-load-com)
(defun c:ATTROUND (/ tag ss sel dz)
  (vl-load-com)
  (setq dz (getvar "DIMZIN"))
  (setvar "DIMZIN" 0)
  (setq tag "ELEV") ;; <-- Tag / Attrib to be Searched - Attribut das gesucht wird

  (and (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "PUNKT") (410 . "Model"))))
       (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                 (vla-get-ActiveDocument (vlax-get-acad-object))))
          (foreach att (append (vlax-invoke Obj 'GetAttributes)
                               (vlax-invoke Obj 'GetConstantAttributes))
            (if (eq tag (strcase (vla-get-TagString att)))
	      (progn
	         (vla-put-TextString att (rtos (atof (vla-get-textString att)) 2 (getvar "luprec")))
              )
            )
	  )
       )
       (vla-delete sel)
  )
  (setvar "DIMZIN" dz)
  (princ)
)
(prompt "\nStart mit ATTROUND")
(princ)