출도도장 리습 왜 안돼는거져?

———————————————————————————————–
(defun $delta_a (%_c %_a)
 (sqrt (- (expt %_c 2) (expt %_a 2)))
)
;;—
(defun #ssadd (#ent1 / #ssent)
  (setq  #ssent (ssadd))
  (ssadd #ent1 #ssent)
  (while #ent1
         (ssadd #ent1 #ssent)
         (setq #ent1 (entnext #ent1))
  )
  #ssent
)
;;—
(defun c:00 ()
  (setvar “cmdecho” 0)
  (setq $old_textstyle (getvar “TEXTSTYLE”))
  (if (= nil (tblsearch “style” “굴림체”))
      (COMMAND “STYLE” “굴림체” “굴림체” “0” “0.85” “0” “n” “n”)
  )
  (if (= nil (tblsearch “style” “돋움”))
      (COMMAND “STYLE” “돋움” “돋움” “0” “0.85” “0” “n” “n”)
  )
  (if (= nil (tblsearch “block” “time”))
      (progn
        (command “donut” 26.8 27.2 “0,0” “”)
        (setq $time_en1 (entlast))
        (command “donut” 38.8 39.2 “0,0” “”)
        (command “line” ‘(0 13.5) “@6<90” “”)
        (command “array” (entlast) “” “p” ‘(0 0) “24” “360” “y”)
        (command “line” ‘(0 13.5) “@2<90” “”)
        (command “rotate” (entlast) “” ‘(0 0) “3.75”)
        (setq $ent_1 (entlast))
        (command “array” (entlast) “” “p” ‘(0 0) “3” “7.5” “y”)
        (command “array” (entlast) (entnext $ent_1) $ent_1 “” “p” ‘(0 0) “24” “360” “y”)
        (setq ii 1
              ai (- 7.5)
        )
        (repeat 24
          (command “text” “j” “m” ‘(0 17.5) “2.5” “0” (rtos ii 2 0))
          (command “rotate” (entlast) “” ‘(0 0) ai)
          (setq ii (1+ ii)
                ai (- ai 15)
          )
        )
        (command “block” “time” ‘(0 0) (#ssadd $time_en1) “”)
      )
  )

  (if (= nil (tblsearch “block” “date”))
      (progn
        (command “line” (list (- ($delta_a 13.5 4)) 4) (list ($delta_a 13.5 4) 4) “”)
        (setq $date_en1 (entlast))
        (command “line” (list (- ($delta_a 13.5 4)) (- 4)) (list ($delta_a 13.5 4) (- 4)) “”)
        (command “pline” ‘(0 6) “w” “2.2” “2.2” “@2.75<90” “w” “4.65” “0” “@2.75<90” “”)
        (setvar “TEXTSTYLE” “돋움”)
;        (command “text” “j” “m” ‘(0 8) “3.1” “0” “출      도”)
        (command “text” “j” “Fit” ‘(-7 6.2) ‘(7 6.2) “3.1” “출    도”)
        (command “text” “j” “M” ‘(0 -7.5) “2.5” “0” “회사이름”)
;        (command “text” “j” “Fit” ‘(-10 -7.7) ‘(10 -7.7) “2.5” “회사명칭(주)”)
        (command “block” “date” “0,0” (#ssadd $date_en1) “”)
      )
  )
  (C:L0)
  (setq #insp (getpoint “nInsert Point : “))
  (setq #cd (rtos (getvar “cdate”) 2 8)
        #cdate (strcat (substr #cd 1 4) “.” (substr #cd 5 2) “.”
                       (substr #cd 7 2))
        #tih (atoi (substr #cd 10 2))
        #tim (atoi (substr #cd 12 2))
        #_ang (+ (* 15 (1- #tih)) (* 3.75 (/ #tim 15.0)))
  )
  (setvar “TEXTSTYLE” “돋움”)
  (command “text” “J” “M” #insp 4 “0” #cdate)
  (command “insert” “time.dwg” #insp 1 1 #_ang)
  (command “insert” “date.dwg” #insp 1 1 0)
  (setvar “TEXTSTYLE” $old_textstyle)
  (princ)
)
(defun c:L0 ()
  (command “layer” “m” “0” “”)
)
——————————————————————————————————————————-
리습 명령어구요…다른 사람들은 잘 된다고 하는데…
저는 잘 안되네여..
1. 위의 파일을 메모장으로 복사 후, ***.lsp 로 저장한 뒤..
2. 캐드를 실행시키고 command : 명령창에서 appload 실행후 서류가방 누르고 저장한 ***.lsp 추가
3.command 명령창에 세트추가 와 리습로드 완료 확인!!
    단축 명령어인 aaa 를 실행시키면…
    <글꼴 파일이 존재하지 않습니다.  알 수 없는 명령어 “0”
                                                                알 수 없는 명령어 “0.85”
이런식으로 오류가 뜨면서 안되네요..
CAD2006 버젼이구요…
운영체제는 xp 64비트 이고 캐드는 32비트 입니다.
사용상 문제는 전혀 없네요..
cadmas 와 dream 설치해서 잘 사용하구 있구요..
어떻게 문제를 해결할 수 있을까요?