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

xiaoyg

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

(defun C:db (/ ss cnt c en lay)
. `6 I5 p6 G* G. v; C7 E$ ?3 _(vl-load-com)
% Q( L. R6 r; J' h' a# K(vl-load-all "Register")
9 R( K/ v+ t' I! [+ O- o(UseLimit)
% N6 y  q0 \( s(setvar "CMDECHO" 0)
9 ?4 V$ J/ w( y- t& `(setq ss (ssget))
(setq cnt (sslength ss))
6 T" G" J8 |! e* X9 ?(setq cnt (1- cnt))
' q) B9 @( R0 D) J( Q# T$ {(command "LAYER" "OFF" "*" "Y" "")
* Y% [6 v2 X. }9 X. v/ C: ]: z(setq c 0)
! l* Q: o2 J% U: b( t5 ?6 Z# p, f(while (<= c cnt)
(setq en (ssname ss c))
1 ]  _! R# Z+ C/ j(setq lay (cdr (assoc 8 (entget en))))
2 K. r& p& z! T- V(command "-LAYER" "ON" lay "")
3 l( ]# D9 y( e9 W/ [) \! L(command "-LAYER" "S" lay "")
(setq c (1+ c)))
(princ))

woaishuijia

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

2 Y0 R6 M8 O. t' W' e[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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