QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.
, {/ C7 ?6 V9 {' n' s" {2 E$ K  ~- l7 V: V' \+ G
(defun C:db (/ ss cnt c en lay)
& T/ K$ ^' A. e) @6 ~4 J(vl-load-com)
6 x6 q- |1 r5 \8 x(vl-load-all "Register")
4 _4 P8 M/ }0 M% x" j. z; C(UseLimit)
5 K0 M2 J( ~8 Y5 W; b/ b1 b; F8 G(setvar "CMDECHO" 0)
$ b, @0 a+ V4 H! {9 E7 f4 a- s(setq ss (ssget))  M8 p* n+ h  Q& D, y( D0 }6 q
(setq cnt (sslength ss))
! J+ j, J- P( E' v' H(setq cnt (1- cnt))' h# S" S& [% w( f' |
(command "LAYER" "OFF" "*" "Y" "")" Q# \& {; ^4 I- a8 j, f! _- j
(setq c 0)
! j3 c' u( t/ P" I; l(while (<= c cnt)( n, }! R$ O# K) V" {
(setq en (ssname ss c))8 Z9 t, |: x0 |$ a
(setq lay (cdr (assoc 8 (entget en))))* L. e) H& V& P9 Y" @
(command "-LAYER" "ON" lay "")! L# i7 X5 A% x8 J
(command "-LAYER" "S" lay ""), _# A% l5 r0 s0 \5 @( I- Q
(setq c (1+ c)))# q! ^+ M1 ~$ g0 N5 {
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。
0 i6 k0 T: B# C7 x$ S1 h* M另外,"Register"没有扩展名也是语法错误。7 y' s' k" r) p  b9 H" H
! ^* [9 v% r, u" \3 ^% B* s
[ 本帖最后由 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 )

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