도면내에 블럭이름 유무 확인 할수있나요

블럭이름을 원하는 이름으로 편하게 지정하여 리습을 만들어 사용하고 있습니다
그런데 한가지 아쉬운점이
도면 내에 블럭이 있을 때와   없을 때에  command “-block” …. 지정이 틀려져야 하지요
그래서 도면내에 블럭있는지 없는 지를 확인하서 if 명령으로 구별하려 하는데 힘드네요;;;

–아래 리습은 도면내에 블럭이 없었을 때만 가능하게 한겁니다—
(defun c:bld (/ enti p1) 
  (setvar “cmdecho” 0)
  (setvar “osmode”  161)
 ; (command “layer” “s” “formplan” “” )
  (setq name (getstring “Low,Mid,High,Kic,Dae,Bok,Sil,Gea,1,2,3?”))
  (setq name (strcase name T) )
  (if (or(= name “l”)(= name “m”)(= name “h”)(= name “k”)(= name “d”)
  (= name “b”)(= name “s”)(= name “g”)(= name “1”)(= name “2”)
  (= name “3”))
    (progn
      (setq name1 (strcat name “_dim”))   
      (setq enti (ssget ) )
      (setq p1 (getpoint “n삽입점?”))
      (command “-block” name1 p1 enti “”)  ;;바로 이쪽이 도면내에 블럭이 없을때만 가능하자나요
                                                                          ;만약도면내에 블럭이 있으면 재정의하겠끔 코맨드명령을 
                                                                          ;(command “-block” “y” p1 enti “”) 실행하려 합니다
      (setvar “osmode”  0)
      (command “insert” name1 p1 “””””” )
      (setvar “osmode”  161)
    )(exit))
)

도면내 블럭을  유 무 확인하는 방법 말고 더 좋은 방법도 있으면 부탁드립니다