容易的，如下简单程序段即可获得圆形的主要参数：
f（SETQcir_data（ENTGET（CAR（ENTSEL”
请选择一个圆形：”））））通过交互操作获得图形信息（SETQcir_pt（CDR（ASSOC10cir_data））从图形信息中获取圆心坐标）（SETQcir_r（CDR（ASSOC40cir_data））从图形信息中获取圆的半径。）312矩形类基本参数的获取矩形类的主要参数是2个边长和4个顶点，4个顶点可以用AutoLISP函数获得，边长可以通过计算相邻的两点间的距离确定。获得点的位置一般要用到ASSOC函数，其作用是从关联表中搜索1个元素，如果找到则返回该关联表条目，如果点的数目较多则一般采用循环读取的方法，只需做1个循环即可获得4个顶点。（SETQreg_data（ENTGET（CAR（ENTSEL”
请选择一个矩形：”））））通过交互操作获得图形信息（WHILE（SETQpt（ASSOCloregdata））设置循环条件（SETQregdata（CDR（MEMBERptregdata））将以获得的点从羌联表中删除）（SETQptb（CONS（CDRpt）ptb））将获得的依次点位存储到变量ptb中）计算边长的时候将点位从点表变量ptb中提取，通过Dista
ce函数直接求取，无需做距离计算。313腰圆孔、腰直孔类基本参数的获取腰圆孔、腰直孔基本参数的获取涉及到多段线数据的提取。为了实现图形的自动编程，必须将这两类孔均转换为多段线Polyli
e或者Lwpolyli
e。采用AutoLISP表处理函数可以获得各节点坐标及圆弧凸度，其方法如下：（SETQpel_data（ENTGET（CAR（ENTSEL”
请选择一个矩形：”））））（SETQptl（CDR（ASSOCl0pelara））从pel_data中取出第一个节点坐标给变量pt1）（SETQpar（CDR（ASSOC42pelata））从pel_data中取出第一条线段凸度给变量）par圆弧半径可由凸度值和相邻两节点坐标计算出来，圆弧半径R的值由式（1）确定：R（dist＊par2dist）（2＊par）（1）式中：R为圆弧半径dist为两节点距离par为凸度绝对值。腰圆孔类基本参数主要有4个半径和4个圆心。其实，只需要计算出其中4个圆心就可以实现编程功能了。有了4个圆心又可以确定圆弧步冲的起点和终点。通过分析计算出的圆弧半径就可以获得模具的半径和圆弧步冲所需的圆弧半径。腰直孔获得其多段线的4个顶点圆弧半径就可得出步冲的起点、终点和步冲的长度。计算出的圆弧半径即模具的半径。32加工模具的自动选择321模具库的建立对于一个具体的刀具，具体有以下几个参数：模具号，形状，X方向长，Y方向长以及直径。对于圆形模具，没有X、Y方向长参数，对于矩形模具，没有直径参数。用户可以由对话框建立刀具和修改刀具。定r