캐드2012 리습 질문 드립니다.

첨부파일 aaa <– 면적 구하는 리습입니다

이전에는 캐드 2005, 2010 사용할때는 문제 없이 잘 사용했습니다

그런데 캐드 2012 를 사용하면서 부터

aaa ; 오류: no function definition: VLAX-GET-ACAD-OBJECT

위에 문구와 함께 사용이 안됩니다…. 리습은 아는게 없어 이렇게 질문드립니다….

고수님들 부탁드립니다…^^;
=============================================================================

(defun c:aaa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj )
(vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
    ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
  )
  (if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,ELLIPSE,SPLINE”))))
   (if (setq ts (getreal “n텍스트 높이 입력:”))
  (progn
   (setq index 0)
   (repeat (sslength ss)
   (setq obj (vlax-ename->vla-object (ssname ss index)))
   (vla-getboundingbox obj ‘mi ‘mx)
   (setq minpt (vlax-safearray->list mi))
   (setq maxpt (vlax-safearray->list mx))
   (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
   (setq area (vla-get-area obj))
   (setq txtobj (vla-addtext space (rtos (/ area 1.) 2 0) (vlax-3d-point inspt) ts))
   (vla-put-alignment txtobj 4)
   (vla-put-textalignmentpoint txtobj (vlax-3d-point inspt))
   (setq index (1+ index))
   )
    )
  )
  )
  (princ)
)
(vl-load-com)
(prompt “n[ aaa ]”)
(princ)