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

xiaoyg

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

+ x+ K2 M1 M4 k/ F! u  c, ^- I(defun C:db (/ ss cnt c en lay)
; o: j# N+ t- v! b' a(vl-load-com)
(vl-load-all "Register")
(UseLimit)
% j7 S" E& s- P8 H5 C5 c. Y  C1 d(setvar "CMDECHO" 0)
(setq ss (ssget))
% \4 d+ p8 ^. W8 A# d8 c" _; I+ ^* N(setq cnt (sslength ss))
(setq cnt (1- cnt))
(command "LAYER" "OFF" "*" "Y" "")
( H/ M1 \! L1 y& Y; E4 h! s(setq c 0)
+ l: y& a% C# J. C(while (<= c cnt)
) L3 z. P8 \+ r; O0 L(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
4 R& j; \3 N) D5 S(command "-LAYER" "ON" lay "")
(command "-LAYER" "S" lay "")
(setq c (1+ c)))
(princ))

woaishuijia

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

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

h1983

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