(defun wblkp ( / wbfn)
  (command ".ucs" "w")
  (setq wbfn (getvar"dwgname"))
  (if (= (getvar"dbmod") 0)
    (command ".wblock" wbfn "*" ".open")
    (command ".wblock" wbfn "y" "*" ".open")
  );if
);defun