폴리라인 두께 설정하기 리습 수정좀 부탁드려요

(DEFUN C:XXXX(/ dum dum1 i dum2 return_r i ea)

        (if (setq ss (ssget ‘((-4 . “<OR”)(0 . “LINE”)(0 . “ARC”)(0 . “LWPOLYLINE”)(-4 . “OR>”))))
                (progn
                        (command “undo” “g”)
                        (setq ea (sslength ss) i 0)
                        (if (null #XXXX_WIDTH#) (setq #XXXX_WIDTH# 0.00))
                        (setq #XXXX_WIDTH# (return_r #XXXXW_WIDTH# “n>> 새로운 두께를 입력하세요”))
                        (repeat ea
                                (setq dum (ssname ss i)
                                      dum1 (entget dum)
                                      dum2 (cdr (assoc 0 dum1))
                                      i (1+ i)
                                )
                                (DUFA_JOB_PROGRESS i ea)
                                (command “.pedit” dum)
                                (if (or (= “LINE” dum2) (= “ARC” dum2)) (command “y”))
                                (command “w” #XXXX_WIDTH# “”)
                        )
                        (command “undo” “e”)
                )
        )

)


이렇게 해서 쓰고 잇는데요 언젠가부터 사용이 안댑니다…

그러면서…

xxxx 입력하니까

no function definition: RETURN_R

이 나옵니다…

어떻게 수정할 방법이 없을가요?ㅠ

리습 고수분들 도움점 부탁드립니다 ㅠ

대충말고 자세하게 부탁드려요 ㅠ