[求助]：请高手帮忙看看这两个lisp为什么不能用了

cynthia

我的两个lisp原来是能用的，突然之间不能用了（autocad2000）。
出现no function definiton: units 和 no function definition: udist。是什么原因请高手指教。两个lisp的内容如下：

ccir.lisp

(defun dxf (code elist)
  (cdr (assoc code elist))
)
(defun chgterr (s)
   (if (/= s "Function cancelled")   ; If an error (such as CTRL-C) occurs
      (princ (strcat "\nError: " s)) ; while this command is active...
   )
   (setq p nil)                      ; Free selection set
   (setq *error* olderr)             ; Restore old *error* handler
   (princ)
)
;*************************************
(defun c:ccir (/ ent olds news olderr)
(prompt "\nSelect text to change : ")
   (setq olderr  *error*             ; Initialize variables
         *error* chgterr
   )
(setq l 0)
(setq en (ssget)
      #rad (units dist 1 "" "Enter new radius : " #rad nil)
      n (sslength en))
(while (< l n)
    (setq  ent (entget (ssname en l)))
       (if (= (dxf 0 ent) "CIRCLE")
        (progn
          (setq olds (assoc 40 ent)
                news (cons 40 #rad)
                ent (subst news olds ent))
           (entmod ent)
        )
       (prompt "\nEntity you select are not CIRCLE....")
       )
(setq  l (1+ l))
(princ)
)
(princ)
(setq *error* olderr)             ; Restore old *error* handler
)
(princ)

88888888888888888888888888888888888888888888888
doff.lisp

(defun c:doff()
  (doff1)
  (setq ent (entsel "\nSelect object to offset..")
        opt (getpoint "\nSide to offset..")
        #sc (udist 1 "" "Current scale use.." #sc nil)
  )
  (setq fp (open "off.scr" "r")
        odist (read (read-line fp))
  )
  (setq odist1 t)
  (while odist1
     (command "offset" (/ odist #sc) ent opt "")
     (setq odist1 (read (read-line fp)))
     (if (= odist1 nil)
         (setq odist1 nil)
         (setq odist (+ odist odist1))
     )
  )
)
;***
(defun chgterr (s)
   (if (/= s "Function cancelled")   ; If an error (such as CTRL-C) occurs
      (princ (strcat "\nError: " s)) ; while this command is active...
   )
   (setq p nil)                      ; Free selection set
   (setq *error* olderr)             ; Restore old *error* handler
   (princ)
)
;*********************************
(defun doff1 (/ sfname1 olderr)
  (setq olderr  *error*             ; Initialize variables
        *error* chgterr
  )
  (setvar "cmdecho" 0)
  (setq cdwg (strcat (getvar "dwgname") ".dwg"))
  (command "undo" "mark" )
   (setq sfile "plot"
         fnum (getstring "\nEnter offset distance : ")
   )
       (setq fp (open "off.scr" "w"))
       (write-line fnum fp)
  (while fnum
           (setq fnum (getstring "\nEnter offset distance : "))  
             (progn
                (write-line fnum fp)
             )
          (if (= fnum "")
           (setq fnum nil)
          )
  )
           (close fp)
(setvar "cmdecho" 1)
(setq *error* olderr)             ; Restore old *error* handler
(princ)
)
(princ)

lsjjm

"no function definiton:"不是已经告诉你了"没定义"吗? 缺定义UNITS,UDIST的两段程序!

cynthia

谢谢指点。
我不懂lisp，目前只是通过比较不同lisp的源码来试着改。已改好了。