[编程交流] 请帮我解决Lisp程序的问题

 (Defun C:RRB1 ( / DES SCR )
   (If (BoundP 'C:RRP)
       (If (SetQ SCR (STRCAT (GetVar 'TempPrefix) "RRP1TMP.SCR") ;; Temp name to save
                 DES (Open SCR "W")
           );SetQ
           (ProgN
               (Write-Line "RRP 90" DES)
               (Close DES)
               (Command "_.SCRIPT" SCR)
           );ProgN
       );If
       (Princ "\NC:RRP Function Not Defined.")
   );If
   (Princ)
);Defun

(defun c:rrb1 ( / des scr )
 (if (and rrp (setq scr (strcat (getvar "tempprefix") "rrp1tmp.scr")) (setq des (open scr "w")))
   (progn (write-line "(rrp) 90" des)(close des)(command "_.script" scr))(princ "\nRRP not loaded"))
 (princ)
)
(defun rrp ()
 (setq s (getstring "\nEnter angle : "))
 (alert s)
)

(defun c:rot13 ( / rot-list loop ss1 CtrPt inp)
 (vl-load-com)
 (setq rotlist (list 45 90 135 180 225 270) loop t)
 (setvar "CMDECHO" 0)
 (if (and (setq ss1 (ssget))
      (setq CtrPt (getpoint "\nPick the rotation Point:... ")))
   (progn
     (princ "\nCycle angle with tab or L-mouse / accept use enter,space or R-mouse / Esc or x for exit")
     (princ (strcat "\nChoose rotation angle<" (itoa (car rotlist)) "> : "))
     (while loop
   (setq inp (vl-catch-all-apply 'grread (list nil 8 0)))
   (if (vl-catch-all-error-p inp)
     (progn (princ "\nRotation function cancelled")(setq loop nil))
     (progn
       (cond
         ;tab
         ((or (equal inp '(2 9))(= (car inp) 3))
          (setq rotlist (append (cdr rotlist)(list (car rotlist))))
          (princ (strcat "\rChoose rotation angle<" (itoa (car rotlist)) "> : ")))
         ;enter,space,r-mouse
         ((or (equal inp '(2 13)) (equal inp '(2 32))(= (car inp) 25))
          (command "rotate" ss1 "" CtrPt (car rotlist))(setq loop nil))
         ;x or X
         ((member inp '((2 88)(2 120)))(setq loop nil))
       )
     )
   )
     )
   )
 )
 (setvar "CMDECHO" 1)
 (princ)
)

(defun c:RRP (/ rotateval ss len c e f degrees radians)
(setq rotateval
(atoi
(getstring "\nHow many degrees rotation are required: "
)
)
)
(setq ss (ssget))
(setq len (sslength ss))
(setq c 0)
(repeat len
(setq f (entget (ssname ss c)))
(setq e (cdr (assoc '50 (entget (ssname ss c)))))
(setq degrees (Radian->Degrees e))
(setq degrees (+ degrees rotateval))
(while (>= degrees 360)
(setq degrees (- degrees 360))
)
(setq radians (Degrees->Radians degrees))
(setq f (subst (cons 50 radians) (assoc 50 f) f))
(entmod f)
(setq c (+ c 1))
)
)
(defun Radian->Degrees (nbrOfRadians)
(* 180.0 (/ nbrOfRadians pi))
)
(defun Degrees->Radians (numberOfDegrees)
(* pi (/ numberOfDegrees 180.0))
)

(defun c:rrb1  (/ scr fp)
 (if (and rrp
          (setq scr (strcat (getvar "tempprefix") "rrp1tmp.scr"))
          (setq fp (open scr "w"))
      )
   (progn (write-line "(rrp)\n90" fp)(close fp)(command "_.script" scr))
  (princ "\nRRP not loaded"))
 (princ)
)
(defun RRP  (/ rotateval ss ssl i e el ang degrees radians)
 (setq rotateval (atoi (getstring "\nHow many degrees rotation are required: ")))
 (if (setq ss (ssget))
   (progn
     (setq ssl (sslength ss) i 0)
     (repeat ssl
       (setq e (ssname ss i) el (entget e) ang (cdr (assoc '50 el))
             degrees (Radian->Degrees ang) degrees (+ degrees rotateval))
       (while (>= degrees 360) (setq degrees (- degrees 360)))
       (setq radians (Degrees->Radians degrees)
             el (subst (cons 50 radians) (assoc 50 el) el))
       (entmod el)(entupd e)
       (setq i (1+ i))
     )
   )
 )
)
(defun Radian->Degrees (nbrOfRadians) (* 180.0 (/ nbrOfRadians pi)))
(defun Degrees->Radians (numberOfDegrees) (* pi (/ numberOfDegrees 180.0)))

(defun c:rrb1  (/ scr fp)
 (if (and rrp (setq scr (strcat (getvar "tempprefix") "rrp1tmp.scr")) (setq fp (open scr "w")))
   (progn (write-line "(rrp)\n90" fp)(close fp)(command "_.script" scr)) (princ "\nRRP not loaded")) (princ))
(defun RRP (/ rot)
 (and (setq rot (getreal "\nRotation : "))
      (mapcar
 '(lambda (x)
    (entmod (setq x (subst (cons 50 (rem (+ (cdr (assoc '50 x)) (* pi (/ rot 180.0))) (* 2 pi))) (assoc 50 x) x))))
  (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget)))))
      )
 )
)

(defun c:RRB1 ()
 (and (or myRot (setq MyRot (getreal "\nRotation : ")))
      (mapcar
        '(lambda (x)
           (entmod (subst (cons 50 (rem (+ (cdr (assoc '50 x)) (* pi (/ MyRot 180.0))) (* 2 pi))) (assoc 50 x) x)))
         (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget)))))
      )
  )
)