예전에 사용하던 리습인데 2011 버젼에서 실행이 안되네요

폴리라인 연결 리습인데 2011버젼 윈도우 7에서 실행이 안되네요.ㅠㅠ

혹시 수정 가능하신분 수정 부탁드립니다.

;;—————————————————————————–
;;      POLYLINE.LSP
;;
;;                      program : Park  Heung Sik
;;                      d a t e : 2002. 5. 17 fri
;;
;;—————————————————————————–
;; PJ        : 선택한 엔티티를 연결한다.
;; PW        : 선택한 엔티티의 두께를 설정한다.
;;—————————————————————————–
;;
;; 폴리라인, ARC, 라인을 연결
;;
(DEFUN C:PJ(/ ss s1 dum i chk)
             (setq i 0 ss (ssget '((-4 . ""))))
        (if ss
                (progn
                (command "undo" "g")
                (repeat (sslength ss)
                        (setq s1 (ssname ss i) chk 1)
                        (if (setq dum (entget s1))
                                (progn
                                        (if (and (= "LWPOLYLINE" (cdr (assoc 0 dum)))(= 1 (cdr (assoc 70 dum))))
                                                 (setq chk NIL)
                                        )
                                        (if chk
                                                (progn
                                                        (command ".pedit" s1)
                                                        (if (or (= "LINE" (cdr (assoc 0 dum))) (= "ARC" (cdr (assoc 0 dum))))
                                                                 (command "y")
                                                        )
                                                        (command "j" ss "" "")
                                                )
                                        )
                                )
                        )
                        (setq i (1+ i))
                )
                (command "undo" "e")
                )
        )
         (princ)
)
;;
;; 폴리라인 두께 설정하기
;;
(DEFUN C:PW(/ dum dum1 i dum2 return_r i ea)

        (if (setq ss (ssget '((-4 . ""))))
                (progn
                        (command "undo" "g")
                        (setq ea (sslength ss) i 0)
                        (if (null #PW_WIDTH#) (setq #PW_WIDTH# 0.00))
                        (setq #PW_WIDTH# (return_r #PW_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" #PW_WIDTH# "")
                        )
                        (command "undo" "e")
                )
        )

)