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

第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 (0 0) (420 297)) 或 (command limits (list 0 0) (list 420 297)) 第7章 AUTOLISP实训 7.1设置作图环境 2）通过setvar函数设置图纸的范围 系统变量limmin和limmax分别对应于图纸的左下和右上角点，只需用setvar函数设置它们以新的值即可。 (setvar limmin (0 0)) 设置图纸的右上角点的表达式为： (setvar limmax (420 297)) 2. 设置绘图的长度和角度单位 将绘图的长度单位设置为十进制、3位小数，角度单位设置为十进制的度（°）十进制、2位小数、X轴正方向为0°、逆时针方向为正。 1）通过command函数设置绘图的长度和角度单位 (command units 2 3 1 2 0 N) 第7章 AUTOLISP实训 7.1设置作图环境 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命令的提示。例如command函数在调用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 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) ；设置新图形对象的颜色为绿色 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.