마지막 입력값 추가 질문입니다.

아래 리습은 라인,폴리 라인을 삭제 하는 리습인데요.
여기서 하나만 추가 부탁좀 드릴께요.

삭제할 라인길입력 에서  라인길이를 입력하면 그 길이값을 기억 하고 있으면 좋겠는데,
그렇게 수정좀 해주시겠어요???

(defun c:ff(/ mlen ss)
(vl-load-com)
(setq mlen (getreal “n삭제할 라인길이입력:”))
(setq ss(ssget (list (cons 0 “LINE,LWPOLYLINE”))))

(mapcar ‘(lambda (x)(if(equal (vla-get-length x) mlen 0.001)(vla-erase x)))
(mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))))
)

(princ)
)