치수선의 가시성 리습이 에러가 납니다. 도와주세요

아래는 치수선의 가시성을 제어하는 리습입니다.
2002에서 사용하려는데 다음의 에러가 납니다.
error: no function definition: VLAX-ENAME->VLA-OBJECT
어떤 부분을 고쳐야 하는지 도움 바랍니다.
————————————————–
(defun c:d11 ( / doc index objlist ss k )
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq index 0 objlist nil)
  (prompt “n치수를 선택하세요 …”)
  (if (setq ss (ssget (list (cons 0 “DIMENSION”))))
      (repeat (sslength ss)
        (setq objlist (cons (vlax-ename->vla-object (ssname ss index)) objlist))
        (setq index (1+ index))
      )
  )
  (if objlist
    (progn
      (initget “0 1 2 3”)
      (setq k (getkword “n몇 번째를 끌까요? … 첫번째<1>/[두번째<2>]/모두<3>/다시켜기<0>: “))
      (if (= k nil) (setq k “2”))
    )
  )
  (vla-startundomark doc)
  (foreach obj objlist
    (cond
      ((= k “0”)
       (vla-put-dimline1suppress obj :vlax-false)
       (vla-put-extline1suppress obj :vlax-false)
       (vla-put-dimline2suppress obj :vlax-false)
       (vla-put-extline2suppress obj :vlax-false)
      )
      ((= k “1”)
       (vla-put-dimline1suppress obj :vlax-true)
       (vla-put-extline1suppress obj :vlax-true)
       (vla-put-dimline2suppress obj :vlax-false)
       (vla-put-extline2suppress obj :vlax-false)
      )
      ((= k “2”)
       (vla-put-dimline1suppress obj :vlax-false)
       (vla-put-extline1suppress obj :vlax-false)
       (vla-put-dimline2suppress obj :vlax-true)
       (vla-put-extline2suppress obj :vlax-true)
      )
      ((= k “3”)
       (vla-put-dimline1suppress obj :vlax-true)
       (vla-put-extline1suppress obj :vlax-true)
       (vla-put-dimline2suppress obj :vlax-true)
       (vla-put-extline2suppress obj :vlax-true)
      )
    )
  )
  (vla-endundomark doc)
(vl-load-com)
(princ))