在执行AutoLisp中，如何关闭重复定义块时的提问？

斗谷

在CAD中，我想用AutoLisp把生成的对象做成一个快，在输入块名的时候，如果新输入的块名与既有的块名重复，CAD就会终止Lisp的运行，停下来提示是否重定义。但这么一打断，往往会影响到后续的命令执行。我想请教的是，有没有什么办法关闭这种提示？

谢谢了！

citykunan

;判断有没有某个块名

(defun test (aaa / bn block_n  num)

(SETQ block_n (TBLNEXT "block" T))

(WHILE block_n

 
   (setq bn (CDR (ASSOC '2 block_n)))
    (if (= bn aaa)
         (setq num 1)
    ) 

   (SETQ block_n (TBLNEXT "block"))

)
 
 num
)