lisp 오류점 해결해주세요

(defun c:jk2()
 (setvar “cmdecho” 0)
 (command “undo” “m” “”)
  (setq myset (ssadd))
 (setq obb (ssget))
 (setq pt (cdr (assoc 10 (entget (ssname obb 0)))))
 (command “explode” obb)
 (setq exed (ssget “p”))
 (setq n (sslength exed))
 (setq i 0)
   (while (< i n)
    (setq e_na (ssname exed i))
    (setq e_list (entget e_na))
    (setq la_ (cdr (assoc 8 e_list)))
         (if (or (= la_ “STEXT1”) (= la_ “CODE”))
          (progn (setq ppl (assoc 10 e_list))
                 (setq x (cadr ppl))
                 (setq y (caddr ppl))
                 (setq pt (list x y))
                 (setq xx (+ x 7000))
                 (setq yy (+ y 7000))
                 (setq pt2 (list xx yy))
                 (command “line” pt pt2 “”)
                 (setq entl (entlast))
                 (setq myset (ssadd entl myset))))
     (setq i (1+ i)))
(command “copybase” pt myset “”)
(command “undo” “b” “”)
(command “pasteblock” pt “”)
(setq entll (entlast))
(command “explode” entll)
(princ))
블럭에 같은 날짜 날림 줄 그어지게 하는건데 .. Unknown command “jk2” . Press F1 for help. 이렇게
나와요. 수정 부탁드려요