QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.
% H& z( |( G) i4 R
, u: M" k; ]! W. T" d(defun C:db (/ ss cnt c en lay)
% Z1 L  ~7 r! u; `! C6 L; K(vl-load-com)
8 F6 J: A) ]/ j2 t/ c. R& e; S(vl-load-all "Register")3 ]( n9 z8 i8 ~0 d  I; {
(UseLimit): A* r5 n1 k' `9 P7 ^" J
(setvar "CMDECHO" 0)6 `. h/ z$ A7 \) t, M: I
(setq ss (ssget))
0 A  U; O* O" ]5 @(setq cnt (sslength ss))
+ q# I/ {& Y5 x2 o1 ^(setq cnt (1- cnt))( F0 N9 P& N8 g* T! X0 W! m
(command "LAYER" "OFF" "*" "Y" "")
8 u, F; ~' K8 i' W(setq c 0)( S$ n& p0 ~* z
(while (<= c cnt)) ?; U* s8 w" v" s& j6 J- x, P/ F) G
(setq en (ssname ss c))
8 w. v8 L. M3 r) d) g, y(setq lay (cdr (assoc 8 (entget en))))
) N0 |$ v- X3 O) y5 R5 O8 N(command "-LAYER" "ON" lay ""), f/ ^% N3 h8 z0 H3 p5 D; G6 w6 r& O
(command "-LAYER" "S" lay "")
$ }) h2 X' d4 G4 |  e8 M(setq c (1+ c)))" s6 o) H" q4 b9 ]8 G' G
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。6 t5 g! p5 ~9 {( m
另外,"Register"没有扩展名也是语法错误。* N' w) Z, w/ [
. C9 I8 e! e- z
[ 本帖最后由 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 )

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