[编程交流] Need Help! Rev-cloud Lisp!

(defun C:Revc () (defun *error* (msg)    (if acDoc      (vla-endundomark acDoc)    )    (cond ((not msg))                                                   ; Normal exit          ((member msg '("Function cancelled" "quit / exit abort")))    ;  or (quit)          ((princ (strcat "\n** Error: " msg " ** ")))    )                                                                   ; Fatal error, display it    (princ)  )(defun RtoD (nbrOfRadians)  (/ (* nbrOfRadians 180.0) pi))(defun DtoR (nbrOfDegrees)  (* (/ nbrOfDegrees 180.0) pi))   (if (not (tblsearch "LAYER" "REV"))        (entmakex '((0 . "LAYER")                    (100 . "AcDbSymbolTableRecord")                    (100 . "AcDbLayerTableRecord")                    (2 . "REV")                    (70 . 0)                    (62 . 10)                    (6 . "Continuous")                   )        )      )      (setvar 'clayer "REV")  (setq oldosmode (getvar 'osmode))  (setq ang (getvar 'snapang))  (setvar 'osmode 0)  (setq ang1 (cvunit ang "radians" "degrees"))  (command "_.rectang" pause "R" ang1 pause)  (while (> (getvar 'CmdActive) 0) (command pause))  (setq rec (entlast))  (setq arc (getvar 'DIMSCALE)) (initget "Yes No")  (setq    cloud (getkword "Reverse Cloud direction [Yes/No] : ")    cloud (cond (cloud) (T "No")); No for Enter  )     (command "_.REVCLOUD" "_Style" "_Normal" "_Arc" (* arc 2.5) "" "_Object" rec cloud)     (command "_.rectang" "_none" "0,0" "R" 0 "_none" "0,0")     (setq del (entlast))     (command "_.erase" del "")     (setvar "clayer" "0")     (setvar 'osmode oldosmode)(vl-load-com)(princ) )

(command "_.rectang" "0,0" "R" "0" "1,1")(entdel (entlast))