QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.) L" N* M& m6 R5 C& D0 ]/ r. F

+ x+ K2 M1 M4 k/ F! u  c, ^- I(defun C:db (/ ss cnt c en lay)
; o: j# N+ t- v! b' a(vl-load-com)2 I" ?  z1 w. E
(vl-load-all "Register"). k! F: ]3 k5 f7 r# X+ O6 c: O6 P6 u
(UseLimit)
% j7 S" E& s- P8 H5 C5 c. Y  C1 d(setvar "CMDECHO" 0)& u* A6 t% r7 H* n: y
(setq ss (ssget))
% \4 d+ p8 ^. W8 A# d8 c" _; I+ ^* N(setq cnt (sslength ss))3 N  {5 D2 h  x
(setq cnt (1- cnt)): k8 h  }/ A' D0 A3 N
(command "LAYER" "OFF" "*" "Y" "")
( H/ M1 \! L1 y& Y; E4 h! s(setq c 0)
+ l: y& a% C# J. C(while (<= c cnt)
) L3 z. P8 \+ r; O0 L(setq en (ssname ss c))# O( R# [) a8 k& a' S
(setq lay (cdr (assoc 8 (entget en))))
4 R& j; \3 N) D5 S(command "-LAYER" "ON" lay "")0 {: C$ @7 P& Y- k9 D# @8 h0 l
(command "-LAYER" "S" lay "")0 |, l! y! p: I+ U9 q
(setq c (1+ c)))  D; j# l8 ]5 \0 M+ t
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。6 q, f+ c$ o; g
另外,"Register"没有扩展名也是语法错误。! e: D8 D. V( l* I1 m6 {
8 p8 D1 Y5 Q) Y) n5 ?
[ 本帖最后由 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 )

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