치수선 정렬 리습인데요 뭐가 잘못되었는지 잘모르겠어요…

예전엔 사용가능했는데 지금은 2007에서도 안되고 2009에서도 실행되지 않네요…계속 에러라고 나옵니다.
=> 정렬점 선택->; error: no function definition: DXF
이렇게요…
어느부분이 잘못되었는지 알려주세요..

(defun c:da(/ ss ssn k ed p10 p13 p14 ag ag90 pt1 pt2 pt3)
(prompt “…치수선 및 보조선 정렬하기”)
(prompt “n변경할 치수을 선택->”)
   (setq ss (ssget ‘((0 . “DIMENSION”))))
   (setq pt1 (getpoint “n정렬점 선택->”))
   (setq ssn (sslength ss))
   (setq ed (entget (ssname ss 0)))
   (setq p14 (dxf 14 ed))
   (setq p10 (dxf 10 ed))
   (setq ag (angle p14 p10))
   (setq ag90 (+ ag (/ pi 2)))
   (setq ds1 (distance pt1 p10))
   (setq ds2 (distance pt1 p14))
   (setq k 0)
(if (< ds1 ds2)
   (repeat ssn
      (setq ed (entget (ssname ss k)))
      (setq ed (subst (cons 10 pt1) (assoc 10 ed) ed))
      (entmod ed)
      (setq k (+ k 1))
   )
   (repeat ssn
      (setq ed (entget (ssname ss k)))
      (setq p13 (dxf 13 ed))
      (setq p14 (dxf 14 ed))
      (setq p10 (dxf 10 ed))
      (setq pt2 (polar pt1 ag90 100))
      (setq pt3 (polar p13 ag 100))
      (setq pt14 (inters pt1 pt2 p14 p10 nil))
      (setq pt13 (inters pt1 pt2 p13 pt3 nil))
      (setq ed (subst (cons 13 pt13) (assoc 13 ed) ed))
      (setq ed (subst (cons 14 pt14) (assoc 14 ed) ed))
      (entmod ed)
      (setq k (+ k 1))
   )
)
(prin1))