QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1929|回复: 2
收起左侧

[已答复] 网上下载的一个lisp程序运行有问题,高手帮忙看看。

[复制链接]
发表于 2008-4-30 10:27:31 | 显示全部楼层 |阅读模式 来自: 中国安徽淮南

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
网上下的一个程序,运行有问题望高手帮忙改改.
& o# Z; q" U4 ?4 ~  J! j3 c
1 h$ J* R6 T8 M* \: ?/ R: B0 D(defun C:db (/ ss cnt c en lay)
1 O" v) C- l  V9 `$ [) ?(vl-load-com)
3 B  z% o% b- r7 x$ _6 H(vl-load-all "Register")( U7 Z$ l+ ?" S1 I
(UseLimit)) i; Q, @3 `+ S( K
(setvar "CMDECHO" 0)7 A- M- k% {6 }) t
(setq ss (ssget))4 O/ t2 i8 A2 D, K8 S
(setq cnt (sslength ss))7 a  ?0 m; G- j' \8 t9 z
(setq cnt (1- cnt))2 d* T7 x7 Z. i! G) S$ d
(command "LAYER" "OFF" "*" "Y" "")
% F7 \! ]9 ~8 o/ a' _! {4 p4 X(setq c 0)
% P( P5 K) R2 A2 B0 F(while (<= c cnt)
3 ]/ j+ k2 i5 r( ~(setq en (ssname ss c))% y4 T! V: N) j0 {
(setq lay (cdr (assoc 8 (entget en))))9 k& ]# A4 K3 k$ V
(command "-LAYER" "ON" lay "")
: ^$ g; |2 @6 G+ {(command "-LAYER" "S" lay "")
; ^5 o& z, d1 I' s2 I6 N(setq c (1+ c)))0 j, j. `4 }# T! Z* A, w
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。3 o' j: ^$ L0 |' k0 u& ~
另外,"Register"没有扩展名也是语法错误。+ ~/ k' a; N9 U" S) O0 @" H

; t% n: G* C6 F% t2 H* z7 T( u. [! d[ 本帖最后由 woaishuijia 于 2008-5-17 16:13 编辑 ]
发表于 2008-6-2 23:48:50 | 显示全部楼层 来自: 中国浙江杭州

回复主题

从程序看是要加载另一个lisp程序register,并调用UseLimit函数,您可下载的程序里有没有相关的内容。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表