스트레치리습 수정점 부탁드립니다.

스트레치리습입니다. 캐드2002사용자인데 R14때사용하던 리습입니다.
error: no function definition: ORIGN
라고 오류가 뜨면서 실행이 안되는데 도통 리습에 무뇌한인지라 ^^;;;
고수님들 부탁드립니다. 사용할수있도록 점 봐주세요


(DEFUN C:SSS (/ loo st_an st_ang pnt1 pnt2 pnt3 st_d sel)
   (orign)(setvar”osmode” 0)
   (default “default” “st_dist” 9 100)(setq loo t)
   (fload”dlfacinit” “dlfac” 0)(dlfacinit)
   (while loo
      (setq loop t)
      (while loop
         (prompt (strcat “n>>STRETCH 1st point/Dimdli/diSt <@” (rtos st_dist 2 2) “>: “))
         (initget 134 “Dimdli diSt”)(setq pnt1 (getpoint))
         (if (null pnt1)(setq pnt1 (rtos st_dist 2 5)))
         (if (= (type pnt1) ‘LIST)
             (setq loop nil)
             (progn
                (if (or(= pnt1 “Dimdli”)(= pnt1 “diSt”))
                    (progn
                       (if (= pnt1 “Dimdli”)(setq st_dist (* 8.0 dfac (getvar”dimscale”))))
                       (if (= pnt1 “diSt”)
                           (setq @p1 (getpoint”n>>Dist 1st point : “)
                                 @p2 (getpoint @p1 ” Another point : “)
                                 st_dist (distance @p1 @p2)
                           )
                       )
                    )
                    (progn
                      (setq st_d (atof pnt1))
                      (if (= st_d 0.0)(setq st_d st_dist))
                      (setq st_dist st_d)
                    )
                )
             )
         )
      )
      (setvar”orthomode” 1)
      (setq pnt2 (getcorner pnt1 ” .Next point : “)
            pnt3 (getpoint pnt2  ”  .direction : “)
            st_an (rtd (angle pnt2 pnt3))
            #st_d (/ st_dist dfac)
            st_ang (strcat “@” (rtos #st_d 2 2) “<” (rtos st_an))
            sel nil
      )
      (setq sel (ssget “c” pnt1 pnt2))
      (if sel (command”_.stretch” “c” pnt1 pnt2 “” pnt1 st_ang))
   );while
)