표면적계산 리습인데요. 함수정의로 인해 오류가 뜹니다.

안녕하세요.
표면적을 구하는 리습인데요.
제가 실행을 하면
no function definition : getsurfacearea2
이렇게 뜹니다.

도금구간을 구할 때 유용하게 사용되는 리습인데요. 실행이 안됩니다.

이 리습이 월래 AutoCAD2013Mechanical 에서 사용하던 리습입니다.

제가 함 사용을 해볼려구 autocad2013 버전에 실행을 해봣는데요..

안되네요.

(defun dan_cal1()
  (Setq dArea (GetSurfaceArea2))
  (if dArea
    (progn   
      (setq text_point  (getpoint “n 삽입 기준점: “))
      ;;(setq text_point1 ‘(330.0 65.0 0.0))
      (initGet 7)
      ;;(setq dia_size (getstring “nDIA&CBN SIZE 입력 : “))
      (command “text” text_point “3” “0” (STRCAT “표면적 : ” (rtos dArea 2 1) ” mm^2″))
      ;;(command “text” text_point1 “3” “0” (STRCAT “# : ”  DIA_SIZE)) 
      (princ) 
    );end of progn
  );end of if
)

이렇게 되어있습니다.
해결방안 부탁드려요..
함수 정의 하는 방법을 알려주세요.