autolispvisuallisp教程.ppt

也可以调用绘制矩形命令，因为矩形是一个封闭的多义线，因此，输入选项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）用传统的方法选择图形对象时，必须确保被选图形对象在当前屏幕作图区而且是可见的，否则将选不到待选择的图形对象。如果待选择的图形对象不在屏幕作图区，应该调用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 、 Xmax 、步长 Delta 段数 n=(Xmax-Xmin)/Delta X1=Xmin,Y1=f(X1) Delta=(Xmax-Xmin)/n X2=X1+delta,Y2=f(X2) 根据 X1 、 Y1 、 X2 、 Y2 画直线 X1=X2,Y1=Y2 X1 Xmax ? 结束 是 否 曲线的方程为：y=f(x)，若Xmin ? x ? Xmax，绘制该方程对应的曲线。 用连续多段的直线代替曲线，每段直线的长度越短，曲线就越逼真。右图是绘制曲线y=f(x)的程序流程图。 【例8-6】 定义绘制渐开线的命令 渐开线（参照图8-19）的参数方程为： x = r(cos? + ?sin?) y = r(sin? - ?cos?) 1. 定义绘制渐开线命令的程序 (defun c:inv(/ p0 phi phimax phimin dphi n x0 y0 x1 y1 x2 y2) (setq p0(getpoint \n输入基圆的圆心：)) (setq r(getdist p0 \n输入基圆的半径：)) (comm