AutoLISP_Visual_LISP教程

AutoLISP_Visual_LISP教程 也可以调用绘制矩形命令，因为矩形 是一个封闭的多义线，因此，输入选项"p"，再选中这个矩形，一次 即可倒完4个圆角。其表达式如下: command "layer" "m" "cuxian" "" command "rectangle" "-7,-6" "43,6" ;绘制矩形 command "fillet" "r" 1.5 ;设置圆角半径 command "fillet" "p" "18,-6" ;倒圆角 【例8-5】绘制图8-17所示轴的剖面轮廓线。 以下两个表达式生成了左图所示的1个圆弧和3段直线。 command "circle" "0,0" 40 command "line" "50,11" "31,11" "31,-11" "50,-11" "" 以下表达式调用AutoCAD的trim命令，得到右图所 示修剪后的图形。 command “zoom” “e” command "trim" "All" "" "40,0" "50,11" "50,-11" "" 对该表达式的各项说明如 下: trim:command函数调用的修剪命令。 All:所有的图形对象 作为剪切边。 "":选择剪切边的操作结束。 40,0:被剪对象的位置， 该点为圆上一点，指出该段是为要剪 去的圆弧。 50,11、 50,-11:被剪对象的位置，此两点为直线上的点，指出 该段是为要剪去的线段。 "":修剪命令结束。 2. 选择图形对象的 注意事项 (1)用传统的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 选择图形对象时，必须确保被选图形对 象在当前屏幕作图区而且是可见的，否则将选不到待选择的图形对 象。如果待选择的图形对象不在屏幕作图区，应该调用zoom或pan 命令，尽可能大地显示待编辑的图形对象。 (2)单点选择图形对象时，拾取框不宜过大或过小。若过大，不想选取的图形对象被选中，特别是在图形对象较密集时;若过小，指定位置的拾取框可能碰不到待选择的图形对象。此时应该用setvar函数设置系统变量pickbox，调整拾取框的大小(可变范围0,50像素)。 (3)当图形对象较密集时，可以利用图层的off或freeze选项，关闭或冻结那些与当前作图无关的图形对象所在的图层。 (4)还可以通过图元的名字指定图元，这是最可靠的选择图元的方法，详见第13章。 8.6 调用图案填充功能 图案填充即填加剖面线或剖面符号。AutoCAD有bhatch和hatch两个实现图案填充的命令。bhatch命令允许在需要填充的区域指定一个点，自动确定填充边界。hatch命令需要用户确定填充的边界。前者要求填充区域必须是封闭的，后者对封闭的要求并不严格。 (1)自动确定边界填充 增加以下表达式下: command "layer" "m" "poumian" "" command "bhatch" "p" "ansi31" 1.5 0 "0,0" "" 该表达式各项含义如下: bhatch:自动确定边界的填充命令。 p:拾取(pick)点的方式。 ansi31:剖面线的名称。 1.5:剖面线的比例因子。 0:剖面线的旋转角度。 0:剖面线的旋转角度。 0,0:拾取点的位置。 "":结束拾取点的操作。 结果如下图所示。 (2)指定边界填充 增加的表达式如下: command "hatch" "ansi31" 1.5 0 "w" "-40,-40" "40,40" "" 该表达式中一些参数的含义如下: hatch:指定边界填充命令。 w:窗口选择方式。 -40,-40、40,40:窗口的两个角点。 "":结束选择填充边界的操作。 其余参数的含义 与自动确定边界填充表达式中对应参数的含义相同。 8.7 定义绘制 曲线的命令 开始 输入 Xmin 、 X 、步长 Delta 段数 n X-Xmin /Delta X1 Xmin,Y1 f X1 Delta X-Xmin /n X2 X1+delta,Y2 f X2 根据 X1 、 Y1 、 X2 、 Y2 画直线 X1 X2,Y1 Y2 X1 X ? 结束 是 否 曲线的方程为:y f x ，若Xmin ? x ? X，绘制该方程对应 的曲线。 用连续多段的直线代替曲线，每段直线的长度越短，曲 线就越逼真。右图是绘制曲线y f x 的程序流程图。 【例8-6】 定 义绘制渐开线的命令 渐开线(参照图8-19)的参数方程为: x r cos? + ?sin? y r sin? - ?cos? 1. 定义绘制渐开 线命令的程序 defun c:inv / p0 phi phi phimin dphi n x0 y0 x1 y1 x2 y2 setq p0 getpoint "\n输入基圆的圆心:" setq r getdist p0 "\n输入基圆的半径:" command "circle" p0 r ; 绘制基圆 setq phimin getreal "\n输入渐开线的起始角(弧度): " setq phi getreal "\n输入渐开线的终止角(弧度):" setq dphi getreal "\n输入角度增量(弧度):" setq n / - phi phimin dphi ;n为曲线的段数 setq dphi / - phi phimin n ;修正 dphi setq x0 car p0 y0 cadr p0 ;得到基圆圆心的坐标x0、 y0 setq phi phimin setq x1 + x0 * r + cos phi * phi sin phi ;x1 x0 + r cos? + ?sin? setq y1 + y0 * r - sin phi * phi cos phi ;y1 y0 + r sin? - ?cos? while phi phi ;while循环开始 setq phi + phi dphi setq x2 + x0 * r + cos phi * phi sin phi setq y2 + y0 * r - sin phi * phi cos phi command "line" list x1 y1 list x2 y2 "" ;画直线 setq x1 x2 y1 y2 ;下一段直线的起点等于该段直线的终点 ;while循环结束 8.8 定义参数化绘图的命令 参数约束图形，改变参数的值，图形就随之改变，这样的图形即为参数化的图形。在机械领域，定型的系列产品占有相当大的比例，其中绝大多数的零、部件具有相同的形状特征。如果将这些图形参数化，只要改变参数的值，图形系统就自动地绘制图形。 图形参数化的好处是:? 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 人员不必把主要精力放在绘图上，可以只输入确定图形的参数，由程序绘制出完整的图形。这样，设计人员才能把主要精力放在零、部件的设计上，才能充分发挥设计人员的创造性;? 优先保证了重要的尺寸，如设计尺寸、性能尺寸，因此可以支持快速的修改设计，可以有效地利用以前的设计结果。 由于AutoCAD提供了AutoLISP语言，因此，可以通过程序实现图形的参数化。下面以定义绘制螺钉和标注表面粗糙度符号等命令为例，介绍编写参数化绘制图形程序的方法和 步骤 新产品开发流程的步骤课题研究的五个步骤成本核算步骤微型课题研究步骤数控铣床操作步骤 。 【例8-7】 定义参数化绘制开槽圆柱头螺钉的命令 (1)确定绘制螺钉的参数 除了螺钉的定位点p0、旋转角alf外，从国家 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 GB65-85可以查到，螺钉结构的主要参数有:大径d、长度l、及螺钉头部的k、dk、n、t等。如果参数过多，用户会感到不便。在满足应用的条件下，可以将次要参数作为主要参数的表达式。例如，螺钉的定位点p0、旋转角alf、大径d、长度l作为参数，其余参数简化为螺钉大径d的表达式:dk 1.5d、k 0.6d、n 0.2d、t 0.25d。 (2)确定绘制螺钉的视图需要那些图形对象及 确定这些图形对象的参数。例如，该螺钉视图是由12条粗实线、两 条细实线和一条中心线组成的。用点p1、p2、……、p20可以确定该 螺钉视图的粗、细实线，用点pl、pr可以确定该螺钉视图的中心线。 (3)确定这些点与定位点p0、旋转角alf直接或间接的几何关系。 例如，p1相对于p0的极角为alf+0.5π，极径为0.425×d;p3相对 于p0的极角为alf+0.5π，极径为0.5×d。计算出直线各端点的相 对坐标，然后调用画线命令，即可绘制出螺钉的图形，见上图。 (4) 编写源程序代码 defun c:screw / p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 d l alf dk k n tt d1 dk1 n1 d2 l1 ;这些 参数是局部变量 setq p0 getpoint "\n输入螺钉的定位点:" setq d getdist p0 "\n输入螺钉的大径:" setq l getdist p0 "\n输入螺钉的长度:" setq alf getangle p0 "\n输入螺钉的 旋转角:" setq dk * 1.5 d k * 0.6 d n * 0.2 d tt * 0.25 d setq d1 * 0.5 d dk1 * 0.5 dk n1 * 0.5 n d2 *