솔리드제거

(defun c:delsolhat ( / d )
    (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument (vlax-get-acad-object))))
        (if (= :vlax-false (vla-get-isxref b))
            (vlax-for o b
                (if (and (= “AcDbHatch” (vla-get-objectname o))
                         (= “SOLID” (strcase (vla-get-patternname o)))
                         (vlax-write-enabled-p o)
                    )
                    (vla-delete o)
                )
            )
        )
    )
    (vla-regen d acallviewports)
    (princ)
)
(vl-load-com) (princ)

솔리드 제거 리습인데 전부 다 없어지네요
객체 선택을 해서  선택부분만 지울수 없을까요??
사용할 부분도 있는데 전부다 안녕 이네요

부탁  드립니다