(defun c:D2 ( / SS i Obj N)
  (and
    (setq SS (ssget '((0 . "INSERT")(66 . 1))))
    (setq i (sslength SS))
    (setq N 0)
    (while (> i 0)
      (setq Obj (vlax-ename->vla-object (ssname SS (setq i (1- i)))))
      (and
        (vlax-property-available-p Obj 'HasAttributes)
        (= -1 (vlax-get Obj 'HasAttributes))
        (vlax-method-applicable-p Obj 'GetAttributes)
        (foreach Att (vlax-invoke Obj 'GetAttributes)
          (and
            (setq Str (vlax-get Att 'Textstring))
            (wcmatch Str "#*#")
            (setq # (read Str))
            (setq Str (rtos # 2 2))
            (or (vlax-put Att 'TextString Str) 1)
            (setq N (1+ N))
          )
        )
      )
    )
  )
  (princ (strcat "\nRounded " (itoa N) " attributes."))
  (princ)
)

(defun c:ZED ( / ToSum SelSet Items Index BlkName AttName AttDxf )
  (initget 3 )
  (if (setq ToSum (getreal "Enter a real (example 5.001 or -5.001 ) to add or subtract : " ) )
    (progn
      (while (setq SelSet (ssget '((-4 . "<and" )(0 . "INSERT" )(2 . "BFCP" )(-4 . "and>" ))) )
        (setq Items (sslength SelSet ) )
        (setq Index -1 )
        (repeat Items
          (setq Index (1+ Index ) )
          (setq BlkName (ssname SelSet Index ) )
          (setq AttName (entnext BlkName ) )
          (while AttName
            (setq AttDxf (entget AttName ) )
            (if (=(cdr (assoc 2 AttDxf )) "ELEV"  )
              (progn
                (setq AttDxf (subst (cons 1 (rtos (+ (atof (cdr (assoc 1 AttDxf ))) ToSum ) 2 3 )) (assoc 1 AttDxf ) AttDxf ) )
                (entmod AttDxf )
                (entupd BlkName )
              )
              ( )
            )
            (if (= (cdr (assoc 0 (entget AttName ))) "SEQEND" ) (setq AttName nil ) (setq AttName (entnext AttName )) )
          )
        )
      )
    )
    ( )
  )
  (princ)
)