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

xiaoyg

网上下的一个程序，运行有问题望高手帮忙改改.
( U% W  p7 {1 I( R# N9 M: n1 O
(defun C:db (/ ss cnt c en lay)
! M# l/ X4 m- |% v* p(vl-load-com)
(vl-load-all "Register")
1 D$ d. o  |0 B8 X(UseLimit)
(setvar "CMDECHO" 0)
( T" Y* i* m: a* v1 V  ^4 u% h% Y(setq ss (ssget))
; f/ T: Q& a3 u& e1 y(setq cnt (sslength ss))
: U3 ~) O3 |% B- P+ m(setq cnt (1- cnt))
(command "LAYER" "OFF" "*" "Y" "")
9 C3 c9 v# i$ }  X  `3 s- q(setq c 0)
(while (<= c cnt)
(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(command "-LAYER" "ON" lay "")
/ C& u. N: f" X* U6 N6 a; g) v2 c(command "-LAYER" "S" lay "")
* K7 P5 }" E& u* E4 q9 G: P4 |6 W(setq c (1+ c)))
# X( O9 l4 i" `2 B(princ))

woaishuijia

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

& M# z9 N$ d/ H( r# O& M! r[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]

h1983

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