AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第7章 AUTOLISP实训.ppt

《AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第7章 AUTOLISP实训.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章AUTOLISP实训1.了解AutoLISP程序的设计过程；2.读懂第7章的程序实例；3.掌握AutoLISP程序的设计方法，实现专业实用程序设计；本章要求：第7章AUTOLISP实训7.1设置作图环境1.设置图纸的范围如设置如图7-1所示的A3图纸的作图范围？做法如下：1）通过command函数设置图纸的范围(command"limits""0,0""420,297")或者(command"limits"'(00)'(420297))或(command"limits"(list00)(list420297))第7章AUTOLISP实训7.1设置作图环境2）通过setvar函

2、数设置图纸的范围系统变量limmin和limmax分别对应于图纸的左下和右上角点，只需用setvar函数设置它们以新的值即可。(setvar"limmin"'(00))设置图纸的右上角点的表达式为：(setvar"limmax"'(420297))2.设置绘图的长度和角度单位将绘图的长度单位设置为十进制、3位小数，角度单位设置为十进制的度（°）十进制、2位小数、X轴正方向为0°、逆时针方向为正。1）通过command函数设置绘图的长度和角度单位(command"units"23120"N")第7章AUTOLISP实训7.1设置作图环境3.设置目标捕捉的类型交互式操作时，目标捕捉类型

3、的选项是字符串，它以编码的形式记录在系统变量osmode内。例如：1）通过command函数设置目标捕捉的类型(command"osnap""endpoint,midpoint,center")；捕捉端点、中点和中心(command"osnap""none")；不捕捉任何类型2）通过setvar函数设置目标捕捉的类型(setvar"osmode"7)；7是捕捉端点、中点和中心的代码之和(setvar"osmode"0)；不捕捉任何类型第7章AUTOLISP实训7.1设置作图环境4.抑制AutoCAD普通命令的提示在程序运行的过程中，可能会显示AutoCAD命令的提示。例如comma

4、nd函数在调用line命令绘制直线时，在命令提示区会出现相关信息的提示。如果不需要这些信息，则应将其关闭，可以提高程序的运行速度。通过setvar函数抑制AutoCAD普通命令的提示，表达式如下：(setvar"cmdecho"0)如果把上面的0改成1则恢复显示第7章AUTOLISP实训7.2设置图层、颜色、线型和线宽1.创建一个当前图层假定图层的名字是“zhongxin”、颜色为红色、线型为center、线宽为0.2，通过command函数创建一个当前图层表达式如下：(command"layer""Make""zhongxin""Color"1"zhongxin""Ltype""

5、Center""zhongxin""LWeight"0.2"zhongxin""")因为Make、Color、Ltype、LWeight等选项可以简写为M、C、L、LW，所以上式可改为：(command"layer""M""zhongxin""C"1"zhongxin""L""Center""zhongxin""LW"0.2"zhongxin""")第7章AUTOLISP实训7.2设置图层、颜色、线型和线宽2.设置新图形对象的颜色1）通过command函数设置新图形对象的颜色(command"color"3)或(command"color""green")；设置新图形对象的颜色为绿

6、色2）通过setvar函数设置新图形对象的颜色(setvar"cecolor""2")或(setvar“cecolor”“yellow”)；设置新图形对象的颜色为黄色第7章AUTOLISP实训7.2设置图层、颜色、线型和线宽3.设置新图形对象的线型1）通过command函数设置新图形对象的线型(command"linetype""s""centerset""")；设置新图形对象的线型为中心线2）通过setvar函数设置新图形对象的线型(setvar"celtype""dashed")；设置新图形对象的线型为虚线第7章AUTOLISP实训7.2设置图层、颜色、线型和线宽4.设置线型比

7、例因子的大小除了实线（continuous）之外，每种线型都是由不同长度的短划线、空白段或点组成的。在不同的显示比例下，这些短划线和空白段的视觉效果可能过大或过小。改变线型比例因子的大小并不改变整条线段的长度，只改变短划线和空白段的大小。例如，将线型的短划线和空白段缩小一半。1）通过command函数设置线型比例因子的大小(command"ltscale"0.5)2）通过setvar函数设置设置线型比例因子的大小(setvar"ltscale"0.5)第7章AUTOL