블록만 선택하는 리습과 Pline만 선택하는 리습 부탁드립니다.

(defun c:at(/ ss OS )

(defun *error* (msg)(princ “error: “)(princ msg) 
(setvar “osmode” os) (command “clayer” “0”) (princ) )
(setq os (getvar “osmode”))

  (prompt “n텍스트필터링-객체세트를 선택하세요”)
  (setq ss (ssget (list (cons 0 “text”))))
  (sssetfirst nil ss) 
(princ)

)

위에건 텍스트만 선택하는 리습인데

혹시 이 리습을 활용해서