(defun c:zblock()
  (setq a (ssget))
; (setq a (entsel))
  (while (not (null a))           
    (setq e (entnext a))
;    (setq e (entget (car a)))
    (setq d (assoc 41 e))
    (setq d1 (assoc 43 e))
    (setq e (subst '(43 . 1) d1 e))
    (setq e (subst '(41 . 1) d e))
    (entmod e)
    (setq a1 (cdr a))
  )
)
