2006버전에서 쓰던 중심선 리습인데요 2010에서 에러가나요

명령어 실행시
error no function definition: W_CS 라고 나와용 ㅜㅜ


;—————————————
;현재 레이어로 센터라인 만들기
(defun c:ce (/ a ent lay ext rad cen pt1 pt2 pt3 pt4 old_os)
(w_cs);;추가소스 삽입
  (setq ext 0.0)
  (setq lay (getvar “clayer”))
  (setq ent (entget (car (entsel “n원 혹은 호를 선택: “))))
  (setq cen (cdr (assoc 10 ent)))
  (setq rad (cdr (assoc 40 ent)))
  (setq pt1 (polar cen (dtr 90) (+ rad ext)))
  (setq pt2 (polar cen (dtr -90) (+ rad ext)))
  (setq pt3 (polar cen (dtr 180) (+ rad ext)))
  (setq pt4 (polar cen (dtr 0) (+ rad ext)))
  (setq old_os (getvar “osmode”))
  (setvar “osmode” 0)
  (command “line” pt1 pt2 “”) (setq t1 (entlast))
  (command “line” pt3 pt4 “”) (setq t2 (entlast))
  (command “chprop” t1 t2 “” “c” “1” “lt” “CENTER” “”)
  (setvar “osmode” old_os)
  (p_cs);;추가소스 삽입
  (princ)
)