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

xiaoyg

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

(defun C:db (/ ss cnt c en lay)
& V/ `0 Y/ ~8 U7 ~0 y+ d(vl-load-com)
( ~( f9 ~' S/ q/ f4 }2 y(vl-load-all "Register")
) G# |! \7 P# r" d2 ^(UseLimit)
! |5 ]6 p. @0 }1 J% b. N4 D(setvar "CMDECHO" 0)
& }2 I; t1 x0 M" w8 |! M(setq ss (ssget))
& t+ I" t6 [& o0 b5 m(setq cnt (sslength ss))
(setq cnt (1- cnt))
0 V; R( E" }1 P(command "LAYER" "OFF" "*" "Y" "")
9 C6 g6 W& T) j. x) a: w(setq c 0)
* [7 ~; o% M2 H' E(while (<= c cnt)
4 M* n' K: u! k  ], j9 ^(setq en (ssname ss c))
5 G5 Y( Q' Y! `0 j9 m' g* H(setq lay (cdr (assoc 8 (entget en))))
2 @6 C9 W, Y6 _( h: Z" ](command "-LAYER" "ON" lay "")
0 ~" |4 g. ?8 [! O$ b9 O(command "-LAYER" "S" lay "")
& K; g/ \! b! C(setq c (1+ c)))
(princ))

woaishuijia

如果你没有"Register"这个文件，程序试图加载它时当然会出错。
4 A! M! I% \1 B+ m4 U; Z另外，"Register"没有扩展名也是语法错误。

! F$ y5 x; j+ n" y" m/ d[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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