QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.; D7 P$ {1 |/ z7 o
: z1 I$ o( a+ y
(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))* B& T; T1 s  E0 s7 f
(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)6 I, m' ~1 ]- m/ D9 T
(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 "")2 F4 Q- T9 k" _1 A0 r
(setq c (1+ c)))* `* @4 J$ O8 A% ]5 G$ P, Q, h
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。" c& W- e- \& t  a# V6 A* K
另外,"Register"没有扩展名也是语法错误。& L+ j8 x+ Z( ^" \; R

2 Y0 R6 M8 O. t' W' e[ 本帖最后由 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 )

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