문자만 삭제하는 리습과 치수선만 삭제하는 리습을 합치려고 하는데 어떻게 해야하나요?

안녕하세요

아래와 같이 두가지 리습 기능을 한가지로 합쳐서 사용 하려는데 어떻게 해야할지 모르겠네요…ㅠ


첫번째는 문자만 삭제되는 리습이며

(defun c:y()
 (setq ss (ssget '((0 . "*TEXT")(1 . "*"))))
 (vl-cmdf "erase" ss "")
)
 
두번째는 치수선만 삭제되는 리습이니다.

(defun c:ud ()
(if (setq ss (ssget (list (cons 0 "DIM*"))))
(command "erase" ss "")
)
)

아시는분은 도와주시면 감사하겠습니다.