리습 검토 부탁드립니다.

(defun c:delB()
(princ “n>> BLOCK을 삭제합니다. “)
(command “erase” (ssget'((0 . “*BLOCK”))) “”)
(princ)
)

안녕하십니까

블럭만 지정해서 삭제하는 리습인데요.

실행은 되는데 객체를 잡지 못합니다.

검토좀 부탁드리겟습니다.