Visual LISP 程序设计(PPT)第9章.ppt

Visual LISP 程序设计(PPT)第9章.ppt

ID:56448382

大小:135.00 KB

页数:34页

时间:2020-06-18

Visual LISP 程序设计(PPT)第9章.ppt_第1页
Visual LISP 程序设计(PPT)第9章.ppt_第2页
Visual LISP 程序设计(PPT)第9章.ppt_第3页
Visual LISP 程序设计(PPT)第9章.ppt_第4页
Visual LISP 程序设计(PPT)第9章.ppt_第5页
资源描述:

《Visual LISP 程序设计(PPT)第9章.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第9章访问和修改图形数据库9.1获取图元的名字AutoCAD的图形是由多个图形对象组成的,最基本的图形对象称作图元。图元之间是以链表的形式存储的。每个图元都有一个用16进制表示的唯一的名字。entnext函数可以获取图形库第一个图元的名字或指定图元的下一个图元的名字。entlast函数可以获取图形库最后一个,即最新生成的图元的名字。通过entnext函数,可以访问到图形库的每一个图元。假定本作业依次绘制了一条直线、一个圆和一个圆弧。(setqe1(entnext));返回图形库第一个图元即这条直线的图元名

2、,并将其赋给了变量e1。(setqe2(entnexte1));返回图形库e1的下一个图元即这个圆的图元名,并将其赋给了变量e2。(setqe3(entnexte2));返回图形库e2的下一个图元即即这个图弧的图元名,并将其赋给了变量e3。(setqe4(entlast));返回图形库最后一个图元即这个图弧的图元名,并将其赋给了变量e1。因

3、为圆弧既是第3个图元,也是最后一个图元,所以e3和e4记录的是同一图元的名字。【例9.1】绘制下图所示的4个带有中心线的螺纹孔。要求首先获取中心线的螺纹孔的图元名,然后复制这些指定名字的图元。以下表达式首先生成了两条中心线和1个螺纹孔。在生成这些图元的同时获取并保存了这些图元的名字为e1、e2、e3和e4。(command"layer""m""zhongxin""l""center""""")(command"line""-5,0""5,0""")(setqe1(entlast))(command"lin

4、e""0,-5""0,5""")(setqe2(entlast))(command"layer""m""cuxian""lw"0.3"""")(command"circle""0,0"3)(setqe3(entlast))(command"layer""m""xixian""")(command"arc""-3.5,0""0,3.5""0,-3.5")(setqe4(entlast))以下表达式调用AutoCAD的copy命令,复制3个带有中心线的螺纹孔。(command"copy"e1e2e3e4"""

5、m""0,0""12,0""24,0""36,0""")[例9.2]定义绘制图b所示图形的命令。插入点p0、直径d、宽度b和h作为绘制该图形时交互输入的参数。该例的主要目的是示范如何利用图元名实现AutoCAD的图形编辑和填充剖面线。ab(defunc:keyway()(setqpc(getpoint"输入定位点:"))(setqd(getdistpc"输入轴的直径:"))(setqb(getdistpc"输入键槽的宽度:"))(setqw(getdistpc"输入键槽的深度:"))(setqr(*0.5

6、d))(command"circle"pcr);绘制圆(setqe1(entlast));将entlast返回的该圆的图元名赋给e1(setqp0(polarpc0r));p0是圆上一点,将用于修剪该圆(setqp1(list(carpc)(+(cadrpc)(*0.5b))))(setqp2(list(+(carpc)(*1.2r))(cadrp1)))(command"line"p1p2"")(setqe2(entlast));将entlast返回的该直线的图元名赋给e2(setqp3(list(ca

7、rpc)(-(cadrpc)(*0.5b))))(setqp4(list(carp2)(cadrp3)))(command"line"p3p4"")(setqe3(entlast));将entlast返回的该直线的图元名赋给e3(setqp5(list(+(carpc)(-rw))(+(cadrpc)(*0.5b))))(setqp6(list(+(carpc)(-rw))(-(cadrpc)(*0.5b))))(command"line"p5p6"")(setqe4(entlast));将entlast

8、返回的该直线的图元名赋给e4;e1、e2等作为剪切边,p0、p1等点确定被剪边和剪去哪一段(command"trim"e1e2e3e4""p0p1p2p3p4"");e1、e2等作为剖面域的边界绘制剖面线(command"hatch""ansi31""2""0"e1e2e3e4"");)9.2图元表图元表记录着图元的名字、类型、几何数据、图层、颜色等信息。通过修改或创建图元表,可以实现编辑或生成图元。9.2.1获取图元表例如输

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。