2AutoLISP基本函数.pptVIP

2.6 几何函数 2.6 几何函数 2.6 几何函数 4 求交点函数 （inters 点1 点2 点3 点4 ［方式］） 功能：检查两条直线是否相交，如果相交，返回交点坐标，如果不相交，返回NIL。 注意： 若［方式］存在，且值为NIL，认为直线是无限长的，交点可以在延长线上；若［方式］不存在，或值为非NIL，认为直线是不可延长的，交点只在两线段上才能返回，否则为NIL 2.6 几何函数 5 目标捕捉函数 （osnap 点 方式名 ） 功能：基于给定的点，按方式名的方式，捕捉图形的特征点 注意： 方式名可以是”nea”,”Mid”, “endp”，“cen”等 (setq Pb (osnap Pa Mid)) 二、AutoLISP 基本函数 目标1：希望能在输入左下角点后，只给直角三角形的底边与斜边长后，自动绘出该直角三角形，并求出Pb,Pc的角度。 步骤一：定出程序名称： B-1 r-a-triangle.lsp 步骤二：构思程序流程，相关变量 已知：Pa, ww,kk hh 二、AutoLISP 基本函数 目标1：希望能在输入左下角点后，只给直角三角形的底边与斜边长后，自动绘出该直角三角形，并求出各角的角度。 步骤三：编写程序 步骤四：执行程序 二、AutoLISP 基本函数 目标1：希望能在输入左下角点后，只给直角三角形的底边与斜边长后，自动绘出该直角三角形，并求出各角的角度。 步骤五：程序改进及注意重点 AutoLISP中，没有反正弦与反余弦函数，所以无法通过kk和ww求出PB反正弦夹角，也无法通过kk和hh求出PC反余弦角 (setq ang_pb (atan (/ hh ww))) (setq ang_pb (* ang_pb (/ 180 pi))) (setq ang_pc (- 90 ang_pb)) (setq ang_pb (atan (/ hh ww)))也可以改写成 (setq ang_pb (atan hh ww))，结果一样 二、AutoLISP 基本函数 目标1：希望能在输入左下角点后，只给直角三角形的底边与斜边长后，自动绘出该直角三角形，并求出各角的角度。 步骤五：程序改进及注意重点 (princ \n PB夹角=)(princ ang_pb)(princ 度) (princ \n PC夹角=)(princ ang_pc)(princ 度) 这两句也可以用下面将介绍的字符串链接函数strcat合并为一个字符串，如下 (princ (strcat \n PB夹角= “(rtos ang_pb)” 度)) (princ (strcat \n PC夹角= “(rtos ang_pc)” 度)) 二、AutoLISP 基本函数 目标2：希望能自动画出多个等半径圆相切 步骤一：定出程序名称： B-2 t-circle.lsp 步骤二：构思程序流程，相关变量 已知：输入基准点baspt; 输入小圆半径rad; 输入欲相切的圆的数量num 二、AutoLISP 基本函数 目标2：希望能自动画出多个等半径圆相切 步骤二：程序准备 二、AutoLISP 基本函数 目标2：希望能自动画出多个等半径圆相切 步骤三：编写程序 步骤四：执行程序 二、AutoLISP 基本函数 目标2：希望能自动画出多个等半径圆相切。 步骤五：程序改进及注意重点 (setq kk (/ rad (sin ang1))) 可推算如下 sin (ang1)= 对边/斜边= rad/ kk kk=rad/sin(ang1) 改成LISP表达式：(setq kk (/ rad (sin ang1))) Array命令后的七个自变量必须配合正常执行的顺序输入 思考与练习 目标3：已知三角形左下角点与三边长A、B、C，请设计程序自动画出该三角形 目标4：已知该图形的Baspt 与W1，W2，A，B，D五个尺寸，请设计程序自动画出该图形 2.7 数字、字符串转换函数 (ascii 字符串）将字符串中的第一个字符转换成ASCII码 (atof 字符串）将数字开头的字符串的数字转换为实型数 (atoi 字符串) 将数字开头的字符串的数字转换为整数 (chr 整数） 将代表ASCII码的整型数转换成字符串 (itoa 整型数） 将整型数转换为字符串 (float 数） 将数转换为实型数 (fix 数) 截尾取整函数 (angtos 角方式精度）根据方式 精度对角进行单位换算，返回以字符串方式的结果 (rtos 数方式精度）根据方式 精度对数进行单位换算，返