基于AUTOLISP语言的冲击式转轮加工图绘制方法

技术领域

本发明涉及一种绘图方法，尤其涉及一种基于AUTOLISP语言的冲击式转轮加工图绘制方法。

背景技术

目前冲击式转轮加工图设计方法普遍采用AutoCAD计算机辅助设计。由设计人员通过鼠标、键盘一笔一画地进行画图设计。先画主体结构和剖面，后标尺寸、粗糙度、公差及说明文字等。工作量非常大，工效低，产品设计周期长，且容易出错。同一转轮不同人来设计，就会有多个样，无法形成系列化、标准化。设计人员也很辛苦，也没有更多时间投入到创造性的工作中去。鉴于此，迫切希望有一种新的设计方法代替传统的设计方法。具有远见卓识的美国AutoDesk公司在编制AutoCAD时就在其内部嵌入了AutoLISP语言，供用户利用AutoCAD进行二次开发，故发明一种冲击式转轮加工图设计方法—冲击式转轮加工图参数化绘图程序。

发明内容

本发明旨在解决现有技术中存在的技术问题，特别创新地提出了一种基于AUTOLISP语言的冲击式转轮加工图绘制方法，采用对话框和汉字提示，使用者完全按照屏幕提示进行操作，不用记忆各种CAD操作命令，操作简单方便，相比于通过输入参数和选择参数画冲击式转轮加工图较传统画转轮图方法，效率提高千万倍，并且有利于产品系列化、标准化，方便工艺及加工生产。

为了实现本发明的上述目的，本发明提供了一种基于AUTOLISP语言的冲击式转轮加工图绘制方法，其特征在于，由以下步骤组成：

S1、编写人机对话框程序和自动绘制转轮程序，采用AUTOCAD中的PDB管理功能编写该人机对话框程序，并通过该人机对话框选择“法兰外径”、“喷嘴个数”、“水斗个数”和“机座号”，输入“射流直径”和“转轮节径”；

S2、将该人机对话框程序和自动绘制转轮程序存储至AUTOCAD的“支持文件搜索路径”下；

S3、加载并运行该自动绘制转轮程序，从而自动绘制出冲击式转轮加工图。

所述步骤S1中采用该PDB管理功能中的popup_list控件分别编写出该人机对话框中“法兰外径”、“喷嘴个数”、“水斗个数”和“机座号”的选择对话栏，并且采用该PDB管理功能中的edit_box控件分别编写出该人机对话框中“射流直径”和“转轮节径”的输入对话栏。

所述步骤S1中该自动绘制转轮程序包括数据库程序、数据获取程序和绘图程序，其中采用initial函数编写该数据库程序，用于向该自动绘制转轮程序中存入系列化的统计参数值；采用getdata函数编写该数据获取程序，用于获取该人机对话框的输入参数，并根据实际水斗参数=射流直径/8×射流直径为8水斗参数计算出实际水斗参数；采用draw函数编写该绘图程序，用于自动绘制出冲击式转轮加工图。

所述绘图程序包括定义转轮加工图的点程序，绘制转轮主视图程序，绘制转轮侧视图程序，绘制转轮局部放大图程序，尺寸、公差和说明文字标注程序以及图框加入程序。

综上所述，由于采用了上述技术方案，本发明的有益效果是：

本发明采用对话框和汉字提示，使用者完全按照屏幕提示进行操作，不用记忆各种CAD操作命令，操作简单方便，相比于通过输入参数和选择参数画冲击式转轮加工图较传统画转轮图方法，效率提高千万倍，并且有利于产品系列化、标准化，方便工艺及加工生产。

本发明的附加方面和优点将在下面的描述中部分给出，部分将从下面的描述中变得明显，或通过本发明的实践了解到。

附图说明

本发明的上述和/或附加的方面和优点从结合下面附图对实施例的描述中将变得明显和容易理解，其中：

图1是本发明的流程图；

图2是人机对话框的示意图；

图3是自动绘制转轮程序的流程图；

图4是绘图程序的流程图。

具体实施方式

下面详细描述本发明的实施例，所述实施例的示例在附图中示出，其中自始至终相同或类似的标号表示相同或类似的元件或具有相同或类似功能的元件。下面通过参考附图描述的实施例是示例性的，仅用于解释本发明，而不能理解为对本发明的限制。

如图1所示，该基于AUTOLISP语言的冲击式转轮加工图绘制方法由以下步骤组成：S1、编写人机对话框程序和自动绘制转轮程序。

采用AUTOCAD中的PDB（可编辑对话框）管理功能编写该人机对话框程序，并通过该人机对话框选择“法兰外径”、“喷嘴个数”、“水斗个数”和“机座号”，输入“射流直径”和“转轮节径”，其中采用该PDB管理功能中的popup_list控件分别编写出该人机对话框中“法兰外径”、“喷嘴个数”、“水斗个数”和“机座号”的选择对话栏，并且采用该PDB管理功能中的edit_box控件分别编写出该人机对话框中“射流直径”和“转轮节径”的输入对话栏。在本发明的实施例中，如图2所示，转轮过程连接法兰外径有10种供选择，key=″fa_type″表示关键字为fa_type，可自己定义；射流直径，关键字为m_d；转轮节径，关键字为l；喷嘴个数有4种供选择，关键字为ges；水斗个数有8种供选择，关键字为n；机座号有3种供选择，关键字num。

如图3所示，该自动绘制转轮程序包括数据库程序、数据获取程序和绘图程序，其中采用initial函数编写该数据库程序，用于向该自动绘制转轮程序中存入系列化的统计参数值。在本发明的实施例中，转轮法兰连接部分的数据库程序如下：

(setq f0_list′(320 140 45 8 33))

(setq f1_list′(360 140 50 8 39))

(setq f2_list′(400 160 55 8 45))

(setq f3_list′(425 180 60 8 45))

(setq f4_list′(450 200 65 10 45))

(setq f5_list′(500 200 70 10 52))

(setq f6_list′(575 240 80 10 55))

(setq f7_list′(640 280 90 12 60))

(setq f8_list′(735 320 100 12 68))

(setq f9_list′(815 400 115 12 80))

本实施例中，转轮连接法兰存在10种规格，形成系统化的统计参数值，在加载并运行该自动绘制转轮程序时直接调用里面的参数即可。

采用getdata函数编写该数据获取程序，用于获取该人机对话框的输入参数，并根据实际水斗参数=射流直径/8×射流直径为8水斗参数计算出实际水斗参数。

采用draw函数编写该绘图程序，用于自动绘制出冲击式转轮加工图。此外，如图4所示，该绘图程序包括定义转轮加工图的点程序，绘制转轮主视图程序，绘制转轮侧视图程序，绘制转轮局部放大图程序，尺寸、公差和说明文字标注程序以及图框加入程序。

定义转轮加工图的点程序中主要应用的函数是变量赋值函数setq。如：(setqs_d(*m_n145))对s_d进行赋值。

在绘制转轮主视图程序、绘制转轮侧视图程序和绘制转轮局部放大图程序中常用到的函数包括：

㈠数值函数如sin(求正弦)、cos(求余弦)、atan(求反正切)、sqrt（求平方根）、fix(取整)、+（加）、-（减）、*（乘）、/（除）等。(setq d8(polar d7(*(/225180.0)pi)(/r7(cos(/pi 4)))))里就应用了附值函数setq、数值函数（*、/、cos）。

㈡字符串函数如strcat(字符串链接函数)，(command″text″″m″(list(+(carpd15)f_y 7)(cadr pd15))(*scale 3)(*1.75 180)(strcat″R″(rtos f_y 2 2)))里包含了字符串函数strcat、命令函数command、转换函数rtos、数值函数（+、*）等。

㈢条件和循环函数如=（等于）、＞（大于）、and(逻辑与)、cond(条件函数)、if(条件判断)等；

(cond((=nn 8)

(command″line″cz(polar cz(*1.82pi)(/(+dt df)4.0))″″)

(command″line″cz(polar cz(*0.82pi)(*m_n 60))″″)

(command″pline″(polar cz(*1.82pi)(-(/(+dt df)4.0)(*scale 2.5)))″w″(*scale0.834)0(polar cz(*1.82pi)(/(+dt df)4.0))″″)

(command″text″″m″(polar cz(*1.836pi)(-(/(+dt df)4.0)40))size(-0(*0.18180))(strcat″%%c″(rtos(/(+dt df)2.0)2 2))))表示在满足nn等于8的条件下，执行下面几条语句。该段程序应用了条件函数（cond、=）、数值函数（+、*、/）、命令函数等。

㈣表处理函数如car和cadr（返回表中元素的函数）、nth(获取表的第n个元素)、length(计算表长度)等。(command″line″(list(-(car cz)(*m_n 30)(*m_n55.05))(cadr cz))(list(+(car cz13)(*m_n 60))(cadr cz))″″)应用了表处理函数car返回坐标X值，cadr返回坐标y值。

㈤赋值函数setq。

㈥命令函数comand(执行一条AutoCAD命令)。

㈦转换函数如atoi（将一个字符串转换成整数）、rtos（返回代表参数的实型字符串）等。(setq ges(+1(atoi(get_tile″ges″))))将从对话框里获取值转换成整数。

标注尺寸、公差及说明文字等步骤主要应用的是命令函数comand(执行一条AutoCAD命令)通过调用CAD命令完成标注和说明文字。加入图框步骤应用的是命令函数comand(执行一条AutoCAD命令:insert)自动插入图框。

S2、将该人机对话框程序和自动绘制转轮程序存储至AUTOCAD的“支持文件搜索路径”下。

S3、加载并运行该自动绘制转轮程序，从而自动绘制出冲击式转轮加工图。

在本说明书的描述中，参考术语“一个实施例”、“一些实施例”、“示例”、“具体示例”、或“一些示例”等的描述意指结合该实施例或示例描述的具体特征、结构、材料或者特点包含于本发明的至少一个实施例或示例中。在本说明书中，对上述术语的示意性表述不一定指的是相同的实施例或示例。而且，描述的具体特征、结构、材料或者特点可以在任何的一个或多个实施例或示例中以合适的方式结合。

尽管已经示出和描述了本发明的实施例，本领域的普通技术人员可以理解：在不脱离本发明的原理和宗旨的情况下可以对这些实施例进行多种变化、修改、替换和变型，本发明的范围由权利要求及其等同物限定。