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

《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获取图元表例如输