[求助]：请教xyp1964,你写的这个程序怎样使用?

好为人师

请问下面程序在cad2002中怎样加载使用?似乎没有执行命令
(DEFUN C:test (/ wj zh zh1 zh2 z y nz ny p px py px1 py1 px2 py2 temp)
  (CMDLA0)
  (jzhz)
  (SETQ        wj (OPEN (getfiled "坐标数据文件(txt)" "" "txt" 2) "r")
        p  (getpoint "选择绘图基点")
  )
  (while (setq ptt (READ-LINE wj))
    (SETQ zh (atof ptt)
          z  (read (strcat "(" (READ-LINE wj) ")"))
          nz (length z)
          y  (read (strcat "(" (READ-LINE wj) ")"))
          ny (length y)
          px (nth 0 p)
          py (nth 1 p)
          p  (list px (+ py 4))
    )
    (mkla "中心线" 1)
    (command "line" (list px (+ py 1)) (list px (- py 1)) "") ;画中心线
    (setq zh1 (fix (/ zh 1000))
          zh  (- zh (* zh1 1000))
    )
    (cond
      ((> zh 99.9995) (setq zh2 (rtos zh 2 3)))
      ((< zh 9.9995) (setq zh2 (strcat "00" (rtos zh 2 3))))
      ((< zh 99.9995) (setq zh2 (strcat "0" (rtos zh 2 3))))
    )
    (setq zh (strcat "K" (rtos zh1 2 0) "+" zh2))
    (mkla "桩号" 3)
    (command "text"
             "j"
             "m"
             (list px (- py 1.6))
             (* SC 0.5)
             0
             zh
    )                                        ;标桩号
    (setq temp 1                        ;画地面线
          px1 px
          py1 py
    )
    (mkla "地面线" 4)
    (command "pline" (list px1 py1))
    (while (> ny 2)
      (setq px2        (+ px (nth temp y))
            py2        (+ py (nth (+ temp 1) y))
      )

      (command (list px2 py2))
      (setq ny         (- ny 2)
            temp (+ temp 2)
      )
    )
    (command "")

    (setq temp 1
          px1 px
          py1 py
    )
    (command "pline" (list px1 py1))
    (while (> nz 2)
      (setq px2        (- px (nth temp z))
            py2        (+ py (nth (+ temp 1) z))
      )
      (command (list px2 py2))
      (setq nz         (- nz 2)
            temp (+ temp 2)
      )
    )
    (command "")
  )
  (close wj)
  (CMDLA1)
)