QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.
- T9 y$ m8 g, e, }7 y/ ^6 h' g4 N& w9 q5 k
(defun C:db (/ ss cnt c en lay)
9 K3 V' q$ I# T5 {2 f(vl-load-com)
% V: W. I2 n) s8 ?5 ]$ ~! m(vl-load-all "Register")
2 E5 Z9 X* O; o# q$ m% h9 @2 a, N(UseLimit)$ j: G. g: M$ a; C  n
(setvar "CMDECHO" 0)0 @  q4 n# u4 ~: s# V) N/ [+ i
(setq ss (ssget))
- X  X& g7 M4 w! l& c/ Q(setq cnt (sslength ss)): M( X/ o$ H1 E. s: n+ N' [  Z
(setq cnt (1- cnt))  x" w* g1 B; Y. L( l1 A
(command "LAYER" "OFF" "*" "Y" "")1 Z- `( V0 S- T) ~; h
(setq c 0)# B: h$ m/ B# F9 J* s% a8 }
(while (<= c cnt)1 W% p9 C; }! {8 y# R4 g& ~
(setq en (ssname ss c)): d' E$ U/ z2 H3 B$ z" S6 E& b: I6 r( P
(setq lay (cdr (assoc 8 (entget en))))
. v& `2 q( _% `6 |6 `* n+ ](command "-LAYER" "ON" lay "")" o4 W  b  A3 Y9 g
(command "-LAYER" "S" lay "")
+ ]" o+ w' t6 H' L" B(setq c (1+ c)))
+ h3 o4 U+ d& l7 i9 f(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。
3 q6 Z2 U* m: v, }- h6 X% }另外,"Register"没有扩展名也是语法错误。
9 Q1 g' }: m# U+ J- v- r5 m, w4 c7 z3 Z6 O) O
[ 本帖最后由 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 )

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