;****Secilen attribute bloklar icin girilen degeri
;      isimleri belirtilen tag'lara ait value
;        degerlerine ekler..****

(defun c:qw (/ dc dz ss ds sl tx)
            (vl-load-com)
  (if (and (setq dc (vla-get-ActiveDocument
               (vlax-get-acad-object))
             dz (getvar 'DimZin)
          ss (ssget '((0 . "Insert") (66 . 1))))
        (setq ds (getreal "\nEnter the value:")))
    (progn (setvar 'DimZin 0)
      (vla-StartUndomark dc)
      (vlax-for m (setq sl (vla-get-ActiveSelectionSet dc))
        (foreach n (vlax-invoke m 'GetAttributes)
          (if (wcmatch (vla-get-TagString n) "BDK,TK,TZK")
            (vla-put-TextString n (strcat (rtos (+ (atof
              (setq tx (vla-get-TextString n))) ds) 2 2)
                (substr tx (vl-string-position (ascii "(") tx 1))))
          )
        )
      ) (vla-EndUndomark dc) (vla-Delete sl)
      (setvar 'DimZin dz)
    )
  ) (prin1)
)