QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
网上下的一个程序,运行有问题望高手帮忙改改.% b( Y- u$ q9 F- H$ H# E
5 ?& B" p# {- }
(defun C:db (/ ss cnt c en lay)
+ J9 @8 v* k# k; ?; j' R+ s(vl-load-com)
% p% e4 D) R$ p! E% o(vl-load-all "Register")' x9 f" ^7 D* S
(UseLimit)6 Y4 ]) c8 @, c
(setvar "CMDECHO" 0)2 q" Q6 _- t9 \7 d) Q, I; |
(setq ss (ssget))
/ ?$ D% j0 e4 v9 d+ s(setq cnt (sslength ss))7 @6 R- h" o' W' U+ Q/ f; d+ D
(setq cnt (1- cnt))
6 {# u0 `$ y+ E8 d6 [6 V(command "LAYER" "OFF" "*" "Y" "")/ W0 O: d4 ?% A; _' u( f% R
(setq c 0)3 K" Y0 p1 ^- @, q# o' o
(while (<= c cnt)
2 k9 w! b4 v- L. d) @(setq en (ssname ss c))
7 O& B* g+ S$ z7 S; {' p7 ^$ }(setq lay (cdr (assoc 8 (entget en))))) `+ r  \* i8 l( b; P1 q3 A
(command "-LAYER" "ON" lay "")% h- D; W8 c! l& k7 V9 S1 p
(command "-LAYER" "S" lay "")+ Y) j" Y) p( M
(setq c (1+ c)))8 U9 l' K5 D8 x& J
(princ))
20080430_5ca4ef202adb0fe78d60OOmDDzxyXbFx.jpg
发表于 2008-5-17 16:10:36 | 显示全部楼层 来自: 中国辽宁营口
如果你没有"Register"这个文件,程序试图加载它时当然会出错。5 K; C6 g+ Y+ Z3 o5 f/ H
另外,"Register"没有扩展名也是语法错误。
+ _" i7 i8 v7 s+ I( ^% K* g/ L8 g' w
/ ]9 C" ~  r9 r; a[ 本帖最后由 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 )

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