网上下载的一个lisp程序运行有问题，高手帮忙看看。

xiaoyg

网上下的一个程序，运行有问题望高手帮忙改改.

(defun C:db (/ ss cnt c en lay)
3 t' f+ N( j1 J/ Y3 X(vl-load-com)
(vl-load-all "Register")
' O: `  k0 _5 ?(UseLimit)
: F  u& C4 y+ c(setvar "CMDECHO" 0)
+ J9 A7 q& [7 @% W(setq ss (ssget))
(setq cnt (sslength ss))
(setq cnt (1- cnt))
6 w- B/ Z4 H( ^$ p+ {(command "LAYER" "OFF" "*" "Y" "")
4 n( ^7 ^9 |5 Q8 j, S(setq c 0)
(while (<= c cnt)
! u/ {+ `5 Z( b: ^( v  l(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(command "-LAYER" "ON" lay "")
" f" M8 B* v* h9 n* x(command "-LAYER" "S" lay "")
$ Q$ Z( l3 I2 Q: i9 }$ n(setq c (1+ c)))
(princ))

woaishuijia

如果你没有"Register"这个文件，程序试图加载它时当然会出错。
9 i+ G/ Q) G$ X另外，"Register"没有扩展名也是语法错误。

[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

从程序看是要加载另一个lisp程序register,并调用UseLimit函数，您可下载的程序里有没有相关的内容。