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

xiaoyg

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

  j* ~8 B7 k% I, K(defun C:db (/ ss cnt c en lay)
2 [; ]1 U# T; i0 N(vl-load-com)
(vl-load-all "Register")
% N. s' {) V. F; U: I(UseLimit)
  }7 I. ?' ~. m. I2 V; U(setvar "CMDECHO" 0)
(setq ss (ssget))
(setq cnt (sslength ss))
/ _1 d2 [% P5 q' w2 l" o(setq cnt (1- cnt))
& N; w' s( i/ z4 e6 Q3 a4 M(command "LAYER" "OFF" "*" "Y" "")
(setq c 0)
(while (<= c cnt)
% u/ [+ @  d6 a( R7 T(setq en (ssname ss c))
4 |: o- }; l7 ^$ [* X; g4 \' r: I(setq lay (cdr (assoc 8 (entget en))))
(command "-LAYER" "ON" lay "")
$ A4 F% [9 _, P: _2 Q( H0 L3 {& C(command "-LAYER" "S" lay "")
4 z% Q# `5 U3 _5 `8 c(setq c (1+ c)))
(princ))

woaishuijia

如果你没有"Register"这个文件，程序试图加载它时当然会出错。
6 a) g4 F, z- d* f另外，"Register"没有扩展名也是语法错误。
* Z% J3 @$ a* f& _1 R' }7 y
- l' W# f( F" @- Q* a5 Y% m[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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