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

xiaoyg

网上下的一个程序，运行有问题望高手帮忙改改.
* ^4 T8 o% l5 {  e9 a1 o
3 t# K" E6 O, h( K. h(defun C:db (/ ss cnt c en lay)
6 D* @% b1 N: E(vl-load-com)
(vl-load-all "Register")
(UseLimit)
$ S+ i' j0 w+ U. x2 p" r9 t(setvar "CMDECHO" 0)
(setq ss (ssget))
6 Y! P0 ]# g! M% P9 ^- S: s/ C3 T& u& m(setq cnt (sslength ss))
(setq cnt (1- cnt))
2 F" K" o' ]0 M' h  m( n$ f(command "LAYER" "OFF" "*" "Y" "")
(setq c 0)
(while (<= c cnt)
(setq en (ssname ss c))
1 k3 Z4 S- p; J% _8 C(setq lay (cdr (assoc 8 (entget en))))
% y5 w2 G' j7 }5 w* M# h& }(command "-LAYER" "ON" lay "")
(command "-LAYER" "S" lay "")
(setq c (1+ c)))
) p3 j8 d1 A$ V7 v) G  ](princ))

woaishuijia

如果你没有"Register"这个文件，程序试图加载它时当然会出错。
另外，"Register"没有扩展名也是语法错误。
5 V  ]0 ~& g# u1 c
[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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