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

xiaoyg

网上下的一个程序，运行有问题望高手帮忙改改.
: e3 E9 @) L+ @3 r# s6 E
(defun C:db (/ ss cnt c en lay)
(vl-load-com)
(vl-load-all "Register")
5 P8 A' R$ G" I; G(UseLimit)
! t* W2 u" b5 ]7 ~* n& t(setvar "CMDECHO" 0)
(setq ss (ssget))
6 \2 Z/ ~) T9 D0 y(setq cnt (sslength ss))
* i/ D; T7 f5 F0 ~+ ?# {# X(setq cnt (1- cnt))
8 g+ `$ }3 p, V* N(command "LAYER" "OFF" "*" "Y" "")
; r" ~* C0 Z- x& [- o(setq c 0)
(while (<= c cnt)
# m  q* a1 o4 ~; w(setq en (ssname ss c))
. i1 ]+ v4 q. s# K3 J(setq lay (cdr (assoc 8 (entget en))))
: l8 \- z0 P" S, ^& N0 K(command "-LAYER" "ON" lay "")
(command "-LAYER" "S" lay "")
- M% H& r2 N1 ?+ r2 G3 ](setq c (1+ c)))
(princ))

woaishuijia

如果你没有"Register"这个文件，程序试图加载它时当然会出错。
另外，"Register"没有扩展名也是语法错误。
" `/ h9 A6 F9 e. J- t$ s( @/ E+ @5 u
2 a) E: u% L, F8 {1 \[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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