QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.
" p' q5 ?8 E  q+ ~: A. T
7 o0 n2 p  @- j+ y! w) L(defun C:db (/ ss cnt c en lay)
. L  Q1 M; E. o, r  g; O4 Y& g8 ^(vl-load-com)
$ r' H% b+ X% W(vl-load-all "Register")6 n) M3 }3 W/ N: D0 K* ?
(UseLimit)& \* ]# A6 a! f: H# G  M4 \
(setvar "CMDECHO" 0)+ ]7 q) ?% v( @* W% P; @
(setq ss (ssget))% f9 ]6 S" w' K/ s* O
(setq cnt (sslength ss))
5 D/ y( x. L: z2 \(setq cnt (1- cnt))
& [% N1 L- F5 l4 X(command "LAYER" "OFF" "*" "Y" "")' J; C. B  o4 W, `
(setq c 0)5 S2 k  i, z' a: L6 C$ a( J7 E( _
(while (<= c cnt)
! n5 a  N" A& u8 Q7 w8 x! ~5 M' G(setq en (ssname ss c))" [9 a5 a) m; h2 P+ C+ x5 x
(setq lay (cdr (assoc 8 (entget en))))
9 z6 h6 p: s. P(command "-LAYER" "ON" lay "")
: E/ x) s- O/ f2 e(command "-LAYER" "S" lay "")
+ g. g% G6 o+ {" ?2 M(setq c (1+ c)))
! @; h6 M2 l5 e6 u  j' Q+ S(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。/ u& g" r. n2 I5 E# O
另外,"Register"没有扩展名也是语法错误。
* S' A" r) L3 h9 w, s$ Z
: C& Q) ^9 R, J' f, b[ 本帖最后由 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 )

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