cad 리습이 활성화가 안되는데 봐주셨으면 합니다..ㅠㅠ

측량관련 종사자이기 때문에 한 속성에 있는 지번 지목 (ex – 125-5 대)
을 125-5 그리고 대로 나누려고 합니다.
수소문하여 파일을 구했으나 다른 리습파일은 실행이 되지만 이파일 되지 않아 잘못된 부분이 있는지
여쭈어보고자 이렇게 글을 올리게 되었습니다..ㅠㅠ
바쁘시겠지만 혹시 글을 보신다면 수정사항 말씀부탁드리고 싶습니다.

(defun c:jb(/ o_cmd o_os o_la jss01 jcnt01 jent01 pt01 txt th sty jimok jibun pt02)
  (setq o_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq o_os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq o_la (getvar "clayer"))
  (if (setq jss01 (ssget "all" '((0 . "TEXT") (8 . "지번"))))
    (progn
      (if (not (tblsearch "layer" "지목"))
 (command "layer" "m" "지목" "")
 )
      (setq jcnt01 0)
      (repeat (sslength jss01)
 (setq jent01 (ssname jss01 jcnt01))
 (setq pt01 (cdr (assoc 10 (entget jent01))))
 (setq txt (cdr (assoc 1 (entget jent01))))
 (setq th (cdr (assoc 40 (entget jent01))))
 (setq sty (cdr (assoc 7 (entget jent01))))
 (setq jimok (substr txt (- (strlen txt) 1))
       jibun (substr txt 1 (- (strlen txt) 2)))
 (setq pt02 (list (+ (car pt01) (* (- (strlen txt) 3) th)) (cadr pt01)))
 (command "layer" "s" "지번" "")
 (command "text" "s" sty pt01 th "" jibun)
 (command "layer" "s" "지목" "")
 (command "text" "s" sty pt02 th "" jimok) 
 (entdel jent01)
 (setq jcnt01 (1+ jcnt01))
 )
      (ade_ssfree jss01)
      )
    (princ "n Nothing in selection set.")
    )
  (setvar "clayer" o_la)
  (setvar "osmode" o_os)
  (setvar "cmdecho" o_cmd)
  (princ)
  )