QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 5688|回复: 12
收起左侧

[讨论结束] lsp文件做一个命令,按所选颜色来移动对象

[复制链接]
发表于 2007-4-28 10:50:08 | 显示全部楼层 |阅读模式 来自: 中国广东深圳

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

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

x
请教我用lsp文件做一个命令,按所选颜色来移动对象,请尽量用简单的程序,详细的说明,谢谢,还有能不能告诉我一个自学auto lisp 语言的网站,谢谢,静侯付佳音: t# D, ?1 H$ C: e2 k8 O
/ K& U$ x  b& Q8 [
[ 本帖最后由 唐昕晨 于 2009-1-5 13:51 编辑 ]
发表于 2007-4-28 16:29:33 | 显示全部楼层 来自: 中国上海
给你个提示:2 S9 C, Q' O5 [4 Q6 `
如果要快速选择某种颜色线条或者对象 ,先从特性里边看看它的颜色代码是多少 比方说30  50等0 k; b: F5 e- ]+ m8 f8 X
然后 辅助-快速选择-染色=30 这样就可以选中同类特性的东西
$ {2 u( H; r9 t) N! J. O5 Z9 {* N1 B6 A/ v( e" b
所以你要用lisp语言的话 就给颜色编号就可以了!
发表于 2007-5-1 21:29:35 | 显示全部楼层 来自: 中国辽宁
没有必要用LISP解决
发表于 2007-5-4 14:16:07 | 显示全部楼层 来自: 中国广东深圳
你们不懂个,不知道就别说话,我的意思是要将fi (颜色过滤)和m(移动)两个命令连志来用,这样才能提高效率,知道吗
发表于 2007-5-4 14:19:17 | 显示全部楼层 来自: 中国广东深圳

谁知道这个lsp呀,急呀

我的意思是要将fi (颜色过滤)和m(移动)两个命令连志来用,这样才能提高效率,谁能告诉我这个vlisp程序呀
发表于 2007-5-4 14:42:18 | 显示全部楼层 来自: 中国浙江台州
这么狂,你自己不说清楚还叫人家别说话.你这样的态度,我知道也不帮你...
发表于 2007-5-4 15:58:44 | 显示全部楼层 来自: 中国浙江台州
通过一个简单的实例来讲述LISP程序的创建过程,介绍编制LISP程序的一些基本步骤,以及LISP程序在AutoCAD中的加载和运行的方法。首先来创建一个最简单的LISP程序—-“Hello.lsp”,在AutoCAD 2002中加载并运行该程序,将会在命令行出现-“Hello, Visual LISP!”。  k5 ^8 ]1 N) l8 w$ Y. F9 M  k
36.2.1 Visual LISP与AutoCAD的通信) e) ]- Y$ S/ {( \6 N5 [6 ~. V
    用户可以直接在AutoCAD命令行中键入AutoLISP表达式。AutoCAD通过括号来确认AutoLISP表达式。AutoCAD每当发现一个左括号,就确认为AutoLISP表达式,并由AutoLISP求表达式的值后返回AutoCAD,AutoCAD使用返回结果并继续进行其他工作。 3 W9 k! Q) Y- A' I) ]
    注意 在AutoLISP表达式中,左、右括号必须配对,否则AutoCAD将给出提示符n>,n表示右括号丢失数目。
3 ?: Y2 G- A3 i7 e+ ^    此外,在AutoCAD中调用并执行AutoLISP程序。在AutoLISP程序中采用COMMAND函数来与AutoCAD命令程序处理器通信,COMMAND从AutoLISP获得命令并将其传给AutoCAD。
2 F6 G8 I  o  A) E6 U( S; \# m. e36.2.2 实例1 最简单的LISP程序——“Hello.lsp”  e( ?1 ], ]) v8 p' z1 J
    Step 1 创建新文件2 e& M" Q/ i" I9 s: J
    (1) 运行AutoCAD 2002系统,以“acadiso.dwt”为样板创建图形文件,并调用“vlisp”命令进入Visual LISP环境。
5 A# ]. k% d7 U3 P1 E5 `2 P    (2) 单击“Standard(标准)”工具栏中的 按钮,新建一个LISP文件。1 T5 i7 k" |  [2 I
    Step 2 输入代码并保存文件
# \) g5 P" u* |8 p$ S    (1) 在编辑窗口中输入源文件“Hello.lsp”的代码,如图36-3所示。程序清单如下:! u9 T, ]5 Z( U) X  Y: B" d
    ;;;* Hello.lsp – Visual LISP文件实例' I" U( G, c8 v. E; H
    (prompt "Pick point:") ;指定运行时的提示信息
4 v- X8 T2 ?. z% a9 c    (setq ipt (getpoint)) ;在屏幕上指定一点并将其坐标值赋予变量“ipt”
1 G2 o% j) s/ T4 Q# l! o    (setq hgt 15) ;给变量“hgt”赋值" W; m. g/ w# G9 s7 g
    (Command "_.TEXT" "_S" "STANDARD" ipt hgt 0 "Hello, Visual LISP!")
8 I/ r$ C$ Q4 Z    ;调用“Commnad”函数与AutoCAD进行通信0 p9 m' `' n8 S. _
) R- j* ]7 R) H% N6 I& q' O/ n
    (2) 单击“Standard(标准)”工具栏中的 按钮,以“Hello.lsp”为名保存该文件。3 u6 w' S* R9 {' n
    Step 3 运行LISP程序
( W5 c( p5 k% z    (1) 确认编辑窗口处于前台状态,选择菜单【Tools(工具)】→【Load Text in Editor(加载编辑器中的文字)】,则该程序被加载并运行。系统将返回AutoCAD窗口,并提示用户选择一点,并以指定点为基点来绘制文字。结果如图36-4所示。; W) z9 i4 ]6 Z& x9 \
    (2) 如果用户退出Visual LISP环境并返回AutoCAD系统窗口,则需要对该程序进行加载后,才能运行。选择菜单【Tools(工具)】→【Load Appcation…(加载应用程序)】,弹出“Load/Unload Applications(加载/卸载应用程序)”对话框,如图36-5所示。查找并选择上一步中所创建的“Hello.lsp”文件,并单击Load按钮进行加载。加载后的文件名称将显示在“Loaded Applications(已加载的应用程序)”列表中,并在对话框的左下部显示加载信息。
& g: G7 C9 Q/ B2 u0 }3 J    (3) 完成加载后,单击Load按钮关闭对话框,系统将运行“Hello.lsp”程序
$ t# {4 l: C1 W! e4 i/ O2 W
3 ^5 }" M2 ]0 j
+ I+ P& W3 W2 J) e# h你如果真的想学就在CAD中输入vlisp”命令这是一个让cad二次开发的一个程序你可以使用帮助,帮助里面讲的比较详细...不过学起来确实蛮难的.
发表于 2007-5-4 16:38:32 | 显示全部楼层 来自: 中国上海
我感觉你和cjhjinhua是同一个人 看你的资料显示: {% l, U' ?8 a; K4 L8 T$ _  ~
1 ^  X$ h' f1 c$ m
我早高诉你了 快速选择就是具有这个功能 它是考选择编号来进行的4 W9 z1 `" V& P* j$ }9 F6 [
你要作lsp就是可以参照它做依据 你却在那里大放厥词 是不是大伙儿没有把lsp给你做好啊5 R/ O2 z& A7 A. J& d, Q, l3 C

& r8 ~! q# W; u0 q; {( }7 k! A而且你所谓的提高工作效率不知道是啥意思
( ?+ [% D0 P+ T' d$ ]$ ~按照你的意思 干脆以后把画线 标注 出图搞成一个lsp算了 2 E: U: [: i( o' N3 f9 z6 G' p
一运行之后 就出来一张张白花花的图纸 多好啊!
发表于 2007-5-6 12:48:09 | 显示全部楼层 来自: 中国广东深圳
谢谢大家的关心,对于上次的回复,我感到过意不去,我这人性子急了点,但没有恶意,一定改,谢谢,谢谢
发表于 2007-5-6 12:52:54 | 显示全部楼层 来自: 中国广东深圳
二次开发里确实有帮助,但是都是英文的,我看不懂呀,急呀,有没有那种从简单程序入手的,并且有详细说明的那种网站呀,视频的也可以呀,请大家帮帮我
发表于 2007-5-6 12:58:06 | 显示全部楼层 来自: 中国浙江台州
二次开发程序里面有教程,是中文的.有英文你也可以用软件翻译过来.用什么软件翻译就不要我说了吧.你要是想学,看不懂英文等等都不是理由.
发表于 2007-5-6 12:58:52 | 显示全部楼层 来自: 中国广东深圳
给大家赔礼了,其实我并不想伤害大家的感情,请谅解,还有谢谢你们了
发表于 2011-9-25 11:55:00 | 显示全部楼层 来自: 中国湖南怀化
好好学习就是硬道理
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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