[求助]：谁能帮帮我改改这阵列LISP

良子

我在CAD里加载的但是用不的，求高手帮帮忙

(defun 3a(/ ocm obp oer ss
            3a-cen 3a-n 3a-ttl 3a-ang 3a-d tmp osm
            3a-n tmp osm 3a-d 3a-ttl)
  (prce "Array objects Rectangular or Polar with Z_steps."
        "渐次高差的方形/环形阵列.")

  (setq undo_lst '("CMDECHO" "BLIPMODE"))
  (init)
  (ai_undo_on)
  (if (null (setq ss (ssget))) (exit))

  (initget "Rectangular Polar")
  (prce "Rectangular or Polar array (R/P) <R>: "
        "方形阵列R/环形阵列P <R>: ")
  (if (= (getkword) "Polar")
    (3a-polar)
    (3a-rect)
  )
  (command "REDRAWALL")
  (restore)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
(defun 3a-polar ()
  (setq 3a-cen nil)
  (while (null 3a-cen)
    (prce "Center point of array: "
          "环形阵列圆心: ")
    (setq 3a-cen (getpoint))
  )
  (setq 3a-n 1)
  (while (and 3a-n (<= 3a-n 1))
    (prce "Number of items: "
          "单元总数: ")
    (setq 3a-n (getint))
    (if (and 3a-n (<= 3a-n 1))
      (prce "Number of items can not less than 2."
            "单元总数必须大于2: ")
    )
  )

  (initget 2)
  (prce "Angle to fill (+=ccw,-=cw) <360>: "
        "环形阵列圆心角<360>: ")
  (setq 3a-ttl (getangle))
  (if (null 3a-ttl) (setq 3a-ttl (* Pi 2.0)))

  (if 3a-n
    (setq 3a-ang (/ 3a-ttl 3a-n))
    (while (null 3a-n)
      (initget "Reference" 3)
      (prce "Reference/angle between items: "
            "相对R/单元间圆心角: ")
      (setq 3a-ang (getangle))
      (if (= 3a-ang "Reference")
        (progn
          (setq 3a-ang nil)
          (prce "Origin angle: "
                "原始角: " )
          (if (setq tmp (getangle))
            (progn
              (prce "Final angle: "
                    "终到角: ")
              (if (setq 3a-ang (getangle))
                (setq 3a-ang (- 3a-ang tmp))
              )
            )
          )
        )
      )
      (if (and 3a-ang (not (equal 3a-ang 0.0 0.00001)) )
        (setq 3a-n (fix (/ 3a-ttl 3a-ang)))
      )
    )
;;;;;;;;;;;;; End while
  )
  (setq 3a-ang (rtod 3a-ang))
  (initget 1)
  (prce "Step delta_z: "
        "单元间高差: ")
  (setq 3a-d (getdist))

  (setq osm (getvar "OSMODE"))
  (setvar "OSMODE" 0)

  (command "SELECT" ss "")
  (repeat (1- 3a-n)
    (command "COPY" "P" "" '(0 0 0) '(0 0 0))
    (command "ROTATE" "P" "" 3a-cen 3a-ang
             "MOVE" "P" "" '(0 0 0) (list 0 0 3a-d))
  )

  (setvar "OSMODE" osm)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
(defun 3a-rect ()
  (setq 3a-n nil)
  (while (null 3a-n)
    (prce "Number of rows(---): "
         "行 数: ")
    (setq 3a-n (getint))
    (if (<= 3a-n 1)
     (progn
       (setq 3a-n nil)
       (prce "Number of rows can not less than 2."
             "行数必须大于2: ")
     )
    )
  )
  (initget 7)
  (prce "First point of array direction: "
        "阵列方向第一点: ")
  (setq tmp (getpoint))
  (initget 7)
  (prce "Second point: "
        "第二点: ")
  (setq 3a-d (mapcar '- (getpoint tmp) tmp)
        mm 0
        3a-ttl '( 0.0 0.0 0.0))

  (setq osm (getvar "OSMODE"))
  (setvar "OSMODE" 0)

  (command "COPY" ss "" "M" '(0 0 0))
  (repeat (1- 3a-n)
    (command (setq 3a-ttl (mapcar '+ 3a-ttl 3a-d)) )
  )
  (command "")

  (setvar "OSMODE" osm)
)