毕业设计（论文）-冲裁力与压力中心 计算机辅助设计.doc

冲裁力与压力中心 计算机辅助设计摘要：计算机辅助设计（CAD）技术起步于上世纪50年代后期，经过半个多世纪的发展，目前国内外已研发出许多通用的CAD软件。冲裁模的压力中心计算是否准确对于模具结构设计非常重要。随着计算机辅助设计技术（CAD）的进步，使用计算机自动计算冲裁件冲裁力和压力中心，已经日益成为冲压模具设计的必然趋势。在本文中，研究了基于VB环境下的压力中心CAD系统的开发，对其方法、过程及手段，进行系统的、全面的研究和阐述，对系统的正常运行提供了指导，不仅可以提高设计效率和设计质量，并能进一步开发CAM系统，满足市场的需求，适应时代的发展。本文完成的主要任务有：1. 阐述了CAD技术的基本理论，包括其概念、原则等。2. 介绍了压力中心CAD系统的设计理念、原理、过程和一些关键技术，并进行分析；3. 利用AutoCAD辅助法，完成压力中心CAD系统设计。关 键 词：CAD，压力中心，设计，系统VBlanking Force and Center Of Pressure Computer Aided DesignAbstract：Computer aided design (CAD) technology started in the late 1950 s, after more than half a century of development, many general CAD software have been developed at home and abroad. whether The precision of center of pressure calculation of blanking die is very important to the design of die structure. As CAD technology progresses, using the computer to automatically calculate blanking part blanking force and center of pressure has increasingly become an inevitable trend of stamping die design. This paper was focused on the research of the center of pressure of CAD system based on VB environment, with the aim to provide guidance for the normal operation of the system. A systemic overview on the method and process and method was carried out.It is not only improving the design efficiency and quality, but also further development of CAM system, which meet the demand of the market and consistent with the development of modern technology.Main tasks of this paper are:1. This paper expounds the basic theory of CAD technology, including its concept, principle, etc;2. This paper introduces the pressure center of CAD system design idea, principle, process and some key technologies, and analyzed;3. The design of the pressure center CAD system is completed by AutoCAD assistant method.Key words: CAD, Center of pressure, Design, System 目 录 1 绪论11.1计算机辅助设计技术概述11.1.1计算机辅助设计技术概念11.1.2计算机辅助设计技术的发展概况11.1.3计算机辅助设计技术发展趋势21.2论文概述21.2.1选题目的及意义31.2.2论文主要工作32 压力中心CAD系统的总体设计42.1可行性分析42.1.1 技术可行性42.1.2 经济可行性42.1.3 操作可行性42.1.4 法律可行性42.2需求规范52.2.1概述52.2.2 功能需求52.3系统的开发方法52.4系统的开发模型62.5支撑软件的选择72.6系统的程序框图73 冲裁件图形输入103.1冲裁件图形的几何模型113.2冲裁件图形的编辑113.3 DXF文件123.3.1 DXF文件的生成与导入123.3.2 DXF文件的结构123.4程序接口技术133.5界面图形174 压力中心、冲裁力与压力机的选用224.1压力中心计算原理224.1.1多线段的压力中心224.1.2 多圆弧压力中心234.1.3 多圆的压力中心234.2冲裁力与顶件力254.3压力机的选用274.3.1压力机数据库的建立274.3.2压力机的选用285 系统实现295.1命名规则295.1.1基本数据类型295.1.2常量命名305.1.3 其它部分命名规则305.2界面设计305.2.1界面的功能描述305.2.2界面306 系统测试326.1程序测试基础理论326.1.1 程序测试定义326.1.2 程序测试基本概念326.2软件测试方法分类336.2.1 静态测试与动态测试336.2.2 黑盒白盒与白盒测试336.3压力中心CAD系统测试346.4调试346.5测试报告347 结论35参考文献36致谢38附录 程序全文39太原工业学院毕业设计1 绪论1.1计算机辅助设计技术概述1.1.1计算机辅助设计技术概念计算机辅助设计技术(CAD)，即利用计算机软、硬件系统辅助工程技术人员或工程进行设计、分析、修改以及以交互式显示或输出的一种方法(手段)，是一门多学科的综合应用技术1。 CAD技术是一种综合性的，复杂的系统工程，该技术经历了由简单的二维、三维制图到几何建模、工程分析、仿真实验等众多产品的设计发展历程，应用于众多科学领域。1.1.2计算机辅助设计技术的发展概况1950年，第一台图形显示器在美国麻省理工学院诞生。到20世纪50年代末期，MIT的林肯实验室在旋风计算机上开发出了SAGE空中防御系统，第一次使用了具有指挥和控制功能的CRT显示器，操作者可以用笔在屏幕上指出被确定的目标，它预示着交互计算机图形学的产生2。到60年代，CAD技术开始迅速发展，实现了二维、三维图形的绘制，CAD系统逐渐被众多企业接受，逐渐形成CAD产业。70年代研制出了许多关于模具CAD/CAM方面的专门系统，适用于各种类型的模具设计与制造，并取得了显著效果。20世纪80年代，随着工程站及微型计算机的出现，利用计算机进行图形处理已开始被越来越多的人接受，推动了CAD技术产业的普及。80年代中期，美国的CV公司提出了一种比无约束自由造型更新颖、更好的算法一参数化实体造型方法，该方法主要有以下特点:基于特征、全尺寸约束、全数据相关、尺寸驱动设计修改3。但是，由于投资大、开发难度大，CV公司拒绝了参数化技术方案，基于策化参数化技术的人因此建立了一个参数技术（Parametric Technology Corp.PTC)，开始研制Pro/ENGINEER的参数化软件。20世纪90年代以后，国外的CAD/ CAM技术向更高的方向发展，许多CAD/CAM系统实现了商品化，如UGII、SolidWorks等系统在模具行业得到应用。它们的成功应用为CAD的发展提供了更大的空间与可能。我国CAD技术的开始于上世纪60年代，当时主要利用计算机进行几何设计和辅助绘图，主要研究单位是高校。“七五”期间，我国开始引进CAD/ CAE/ CAM系统，开始应用于各个制造业领域，推动中国产业的发展。与此同时，有多个单位相继完成率冲裁模CAD/CAM系统、多工位级进模CAD系统等。20世纪90年代以来，CAD技术不断进行完善，广泛应用了特征和约束的变量化和参数化方法，使得制图更加精确，另外，由过去的单机或局域网向互联网工作方式发展，概念设计成为了今后研究的热点。“十五”期间，我国在模具制造信息化方面取得了一些成就，例如，开发了模具制造系统与装备，并实现了与其他相关技术与装备的系统集成；开发了注塑成型过程计算机模拟仿真软件，实现了与CAD/CAM系统的无缝衔接及其他众多成就，并在多家模具企业和高校中得到推广。二次开发是增值开发商或最终用户在软件开发商所提供的开发环境与编程接口基础上，根据自身的技术需求，进行新功能开发或软件环境定制的过程，从本质上讲，二次开发也是一个软件创新过程4。由于经二次开发后的CAD应用软件具有良好的人机界面，并融进了大量专业设计人员的经验，使一般的设计人员能够使用计算机进行产品设计，从而提高了设计效率和质量5。用AutoCAD求冲裁力与压力中心的方法，用AutoCAD的查询功能，查出全部实体体积的同时，也顺带也顺带查出了他们的整体的质心位置，当取值足够小时，这些实体的质心位置的（x，y）坐标值可以认为等于模具的压力中心位置，并且不会有太大的误差6。Solid Edge软件计算压力中心法7,基于AutoCAD2000的冲模压力中心确定方法8,轮廓环重心求解法9等许多方法。1.1.3计算机辅助设计技术发展趋势 随着CAD技术不断的研究、开发和应用，对CAD技术有了越来越高，越来越多的新要求，以满足市场的需求，适应时代的发展。随着经济与社会的快速发展，CAD技术发展的主要趋势是集成化、智能化、并行化、网络化和标准化，先进设计技术和制造方法得到不断应用的推广。我国的制造业也日益注重对CAD技术的应用，不断完善CAD技术，并不断提升其应用范围。1.2论文概述1.2.1选题目的及意义 随着工业生产和科学技术的发展，市场需求的增加，产品更新换代的速度加快加快，产品的生产正朝着精密、复杂、高质量和生产周期缩短的方向发展。依靠传统的经验和手工计算已不能满足需求，因此，依靠计算机的模具辅助工具就应运而生。目前，许多产品中的零部件依靠冲裁模去完成，冲裁模与零件压力中心是否在重合，对模具的精度和寿命有着很大程度上的影响，对零件的质量也有不同程度的影响。现在提倡节约资源，使资源充分利用，响应时代的号召，在冲裁模压力机的选择上，根据零件的最小冲裁力选择最适和压力机显得非常重要。利用计算机求出冲裁件的压力中心及最小冲裁力，有利于降低模具设计者的计算量，缩短产品的研发周期，提高工作效率，降低生产成本，节约资源等。1.2.2论文主要工作（1）本文主要工作1 确定开发方案 根据冲裁件综合特性，确定软件的开发方法，选择软件开发所需的软、硬件环境。2 确定软件的总结构 对软件任务进行分析、分解，确定总体结构，进行合理的模块规划。3 确定软件的功能所设计的压力中心CAD系统软件符合冲裁模的要求，其功能主要包括，二维图形的输入与显示、压力中心、冲裁力与顶件力的计算。(2)软件的关键技术1 冲裁件图形数据的读取；2 在Visual Basic环境下的程序设计；3 界面图形的绘出，压力中心的计算。522 压力中心CAD系统的总体设计2.1可行性分析可行性分析是对项目的主要内容和相关情况，从技术、经济、工程等方面进行研究和分析，并在项目建成后，对项目产生的经济和社会影响进行分析，提出建设性的意见，为项目建成提供基本的、全面的依据。CAD系统技术可行性研究，从系统发展规划出发，论述系统理论的可行性，同时论证在技术手段上的可实现性。由于CAD系统开发是一项投资大、涉及面广的工程复杂的系统工程，需要充分的进行可行性研究，以确保投资的准确性，而且CAD系统是一项辅助性质的工程，必须站在系统的角度论证它的可行性才有说服力，才有意义。可行性分析可从以下四个方面来考虑。2.1.1 技术可行性该压力中心CAD系统，它采用了Visual Basic与AutoCAD相结合。而如今使用Visual Basic编写程序也没原来那么麻烦，界面的设计也不需要很复杂，我们可以从Visual Basic中找到符合自己要求的工具,来进行自己的设计。所以，该系统的开发在技术上是可行的。2.1.2 经济可行性从我搜集的一些资料来看，压力中心CAD系统对计算机硬件要求不高，而这是我们自行开发的系统，成本可很低，还有后期维护的费用也相对比较低廉。2.1.3 操作可行性该系统在操作上满足用户的基本要求，操作界面通俗易懂，即使非专业人士，也能成功使用该系统。2.1.4 法律可行性本系统开发不会侵犯他人、集体或国家利益，不存在危害他人、集体或国家的行为，不存在侵权等问题，不违反国家法律，因此具有法律可行性。综上所述，从技术、经济、操作、法律等层次方面都是可行的,而且对开发人员要求不高，所以这个系统的开发是可行的。2.2需求规范2.2.1概述为了保证冲压机各模具正常工作，必须使冲模的压力中心与冲压机滑块中心线相符合，否则在冲压时会使冲模与冲模机滑块歪斜，引起凹凸模间隙不均和导向零件加速磨损，造成刃口和其他零件的磨损10。压力中心CAD系统就是确保模具在设计时，其压力中心在一条直线上。压力中心CAD系统包括冲裁件图形的输入、冲裁边力偶的计算、压力中心的计算、最小冲裁力的计算等功能，能够完成单工序冲裁模、级进冲裁模和复合冲裁模等压力中心的计算机辅助设计。本章主要以所开发的基于VB环境下的压力中心CAD系统为例，详细介绍系统的功能和结构。2.2.2 功能需求本系统的功能是帮助用户更加快捷的计算冲裁件的压力中心及冲裁力，达到简化计算的目的。2.3系统的开发方法现代CAD系统的开发严格按照“软件工程学”的方法进行研究和设计。工程化软件的具体要求是：(1)正确性：实现软件的全部功能，并保证正确;(2)可靠性：软件可多次反复使用且不失败，出错概率小于设定的指标；(3)简明性：表达简洁、可读性强，程序内部、外部层次分明，接口简单；(4)易维护：能方便地实现系统的校正维护、适应维护和完善维护；(5)结构化设计方法：用大众熟悉的顺序、判断、循环三种基本逻辑分支实现每个模块的程序编写；(6)文档齐全、格式规范。根据软件工程学的方法，CAD系统的生命周期可分为系统分析、系统设计、程序设计、系统测试和系统维护五个阶段11。前4个阶段为开发期，最后1个阶段为维护期。(1)系统分析：在进行需求分析的基础上，确定系统开发的目标、功能、性能、接口和适用范围，建立系统的总体逻辑模型。(2)系统设计：结构化设计方法，明确软件系统构架，包括划分模块、模块之间的通信等。(3)程序设计：根据系统设计完善并完成系统设计规范、利用Visual Basic 6.0语言实现系统的功能及优化。除此以外，程序的结构、算法及系统的安全性、可靠性、实用性等也都需要认真思考。(4)系统测试：分析系统，对系统和程序的设计做最后的审查，确保满足用户的需求和软件的质量。对系统进行测试时，应按照一下的原则进行:1 为保证系统测试质量，测试人员与开发人员分开。2 设计测试试样时，要给出测试试样的预期结果，做到有的放矢。3 要设计非法输入测试试样，保证程序可以拒绝接受非法输入，并给出提示信息，指引用户进行正确的操作。4 对程序进行修改之后，要进行回归测试，减免由于修改程序而引起新错误。5 在进行深入测试时，要重点测试容易出错的部分。(5)系统维护：CAD系统生命周期的最后一个阶段。软件交给用户使用后，对软件进行纠错与完善。此外，在软件的开发的每个阶段，均要编写详细的开发文档。2.4系统的开发模型当前，模具CAD系统的开发常见的模型有：快速原型法和生命周期模型等。生命周期模型是将软件工程学和系统工程的理论和方法引入CAD系统的设计中来，是计算机系统开发中最常见、最有效的方法之一。在整个CAD系统的开发过程中，将其划分为若干个阶段，提前设定好每个阶段的任务，再按一定的标准去顺序完成。但缺点是一个长的开发周期长，开发过程复杂，且随外部环境的变化影响系统的正常运行。快速原型法（Rapid prototyping)是近年来提出来的一种以计算机为基础的系统开发方法，它首先根据用户需求构造一个功能简单的系统，然后对原型系统逐步求精，不断扩充完善得到最终的软件系统12。快速成型的优点是，它是以用户为中心，所以，在系统的生命周期的设计阶段起一个积极的作用，有效地减少系统开发的风险，特别是在大型系统的开发，对项目分析不能一次完成，使用快速原型法效果更加显著。其缺点是，快速原型法的选择缺乏一定的评判标准，与系统开发人员的经验及水平有很大关联，若是选取不当，则会浪费时间和精力，并对用户造成影响。本压力中心CAD系统的开发模型是将二者结合起来，将已有的经验用作原型来知道生命周期各阶段工作的完成，从而节约人力、物力、时间，提高了开发效率，加快了开发进度。2.5支撑软件的选择AutoCAD软件是由美国欧特克有限公司（Autodesk）出品的一款自动计算机辅助设计软件，主要用于绘制二维制图和基本三维设计,使用者无需懂得编程，即可实现自动制图，因此AutoCAD在全球广泛使用，较常用于土木建筑，装饰装潢，工程制图，电子工业，服装加工等领域。因此选用AutoCAD软件。该软件用于压力中心CAD系统设计，具有以下的优点：(1)AutoCAD提供了丰富的作图功能，操作方便；(2)作图精度高；(3)具有强大的图形编辑功能，可对现有的图形进行编辑；(4)可方便的进行图形的输出，图形的保管，查看非常方便。2.6系统的程序框图首先，用户启动压力中心CAD系统，选择要打开的冲裁件的文件，系统会按照设定好的程序对文件进行读取，对文件中的各线段、圆、圆弧进行识别，并临时保存，直到把需要的数据全部读取完毕，然后进行绘图命令，在界面上的图片框中央进行冲裁件图形绘制，并适应图片框大小。然后点击界面上的计算压力中心按钮，则会自动把冲裁件的压力中心坐标计算出来，并把压力中心点在图形上显示出来。在文本框中输入材料的厚度和抗剪切强度，点击计算，则会自动计算出所需冲裁力和顶件力，点击查询压力机参数，可以查看已存储的压力机参数，根据计算出冲裁力，进行压力机的初选。提取圆的相关坐标提取直线相关坐标是否为直线？开始打开并读取冲裁件文件是否为圆？4444fhfg是否是其余代码忽略是是否为圆弧？提取圆弧相关坐标否否绘制冲裁件图形启用压力中心计算程序，计算冲裁件压力中心，显示压力中心坐标输入材料厚度，抗剪强度计算最小冲裁力与顶件力，并显示查询压力机参数，选取压力机结束图2.1流程图3 冲裁件图形输入冲裁件的图形输入是根据零件的几何特征，按照一定的方法，把图形数据输入到计算机中。冲裁件的图形输入是开发压力中心CAD系统的基础。常见的冲裁件图形输入方式有下列几种：(1)节点输入法冲裁件图形是二维平面图形，其组成元素的交点或切点，称为节点。输入图形的各元素的节点信息，以及其间的拓补关系，则可以在计算机中建立零件二维图。冲裁件图形的拓补关系简单，只需将个元素之间按顺序首尾相连即可。因此，此种输入法需要先手工计算出各元素的参数及节点坐标，然后再按照一定的顺序进行输入计算机，则可以在计算机上得到所需冲裁件图形信息。这种方法简单易操作，但前期准备周期长，数据较多时，易出错，而且难以及时发现，还需要逐项检测个元素信息，降低了其精确度。(2)NC语言描述法NC是数字控制（Numerical Control)的缩写，是根据几何定义语句去描述零件的形状。其中APT(Automatically Programmed Tool)语言接近英语语言，书写方式也与英语相似，容易被人掌握，因此数控语言中使用最多的是APT语言，其应用最广、影响最深远、最有代表性。冲裁件图形是简单的二维图形，只需用APT语言中的一小部分即可对图形几何形状的完成描述，所以一些CAD/CAM系统用的是经简化后的APT语言。这种方法操作直观方便，容易发现错误，但占用机上时间太多，需事先计算出全部节点的绝对坐标，适用于有一定APT语言功底或英语具有一定基础的人员。(3)数字化仪法数字化仪，是一种计算机输入装置，它可以将各种图形的坐标值，确切输入到计算机中，并显示在计算机屏幕上。其工作原理是：游标在电磁感应板上运动时，通过接口，将电磁感应板上的图形坐标信息数字化，同步传入计算机中，经过处理，在计算机屏幕上显示出图形信息。当然，作为一种非主流汉字输入方式，其输入速度不够快，准确率也低于键盘输入。(4)逐段输入图形元素的交互式输入法采用该方法输入图形时，整个过程始终由菜单驱动。图形输入系统包括三级子菜单，其工作方式是：首先选择工作状态和背景颜色，然后通知系统所要进行处理的图形是已存在的，还是新建立的。然后对要处理的图形选择所需的命令进行编辑，得到所需要的图形信息。利用这种交互式输入法输入冲裁件图形时，首先建立坐标系，对图形的轮廓、元素和尺寸进行编号，并按编号把尺寸数据一次存放在数据文件中。该方法可对图形进行交互编辑、修改、插入和删除，具有输入直观、及时显示的优点13。(5)AutoCAD辅助法通过在一些比较成熟的绘图系统（如AutoCAD、I-DEAS DRAFTING等等）基础上开发出功能齐全、方便使用的冲裁件二维绘图环境，将有利于缩短压力中心CAD系统的开发周期。以上几种冲裁件图形输入方法在都存在优点，对于压力中心CAD系统的推广应用有着不同程度的影响，因此选取一种有效的图形输入方法显得尤为重要。压力中心CAD系统使用AutoCAD辅助法，是以AutoCAD软件为图形编辑器，生成DXF文件，再读取文件，经过系统处理，得到所需的图形信息，从而实现图形的自动输入。选用AutoCAD作为冲裁件图形输入的支撑环境的优点有：1 绘图功能好，可画点、线、圆、圆弧等，还拥有目标捕捉功能；2 图形编辑功能好，可复制、旋转、镜像、块插入等；3 具有标准图形文件交换的接口。3.1冲裁件图形的几何模型几何模型是根据冲裁件的几何信息及其拓补关系，即对线段、圆、圆弧之间的相互关系的定义，完成对冲裁件的形状描述。几何信息是指图形形状特征参数，包括线段端点，圆的中心和半径和圆弧的中心，半径，起始角度和终止角度。拓补关系是指个元素之间的联系，按照一定的方向进行首尾相接。3.2冲裁件图形的编辑冲裁件图形的编辑是依靠AutoCAD软件进行。在软件的绘图界面中选取所需的命令，按照一定的尺寸及约束，把冲裁件图形在屏幕上进行绘制及编辑。3.3 DXF文件DXF-Drawing Exchange File（图画交换文件），是美国欧特克公司开发的第一个进行AutoCAD图形交换的文件格式，主要适用于外部程序和不同图形系统之间的信息交换。由于AutoCAD广泛应用于世界二维领域及其世界影响力，因此，大多数CAD系统支持DXF文件格式，经常以DXF文件作为中介，完成与AutoCAD图形软件或其他系统的图形信息的交换。因此，DXF文件格式已成为事实上的工业标准。3.3.1 DXF文件的生成与导入在AutoCAD图形编辑状态下，点击另存为或输入DXFOUT命令并按之后的提示进行操作，就可以把绘制好的图形生成一个DXF文件。同样，通过打开或DXFIN命令，可以将其他系统或外部程序生成DXF文件导入进系统。3.3.2 DXF文件的结构一个DXF文件包含它相应图形的全部信息，其总结构由7个段和文件结尾组成，分别为：(1)标题段（HEADER)记录图形系统的一般信息，由标题变量及当前状态或当前值表示。(2)类段（CLASSES)记录应用程序定义的类，这些类的实例可能出现在BLOCKS、ENTITIES和OBJECTS中。(3)表段（TABLES)包含9个符号表的定义：应用程序标识表、块参照表、标注样式表、图层表、线型表、文字样式表、用户坐标系表、视图表、视口配置表14。这些表记录了图形编辑的支撑环境。(4)块段（BLOCKS)块段顺序的记录了每个块的定义，每个快均由块名、类型、基点和该块的全体成员定义，有关块的定义与实体段相同。(5)实体段（ENTITIES)记录每一个实体的所有信息，包括每一个实体的类型、图层名，颜色，尺寸和等信息，是记录零件信息的主要部分。(6)对象段（OBJECTS）包括图形数据库的所有非图形实体的数据，所有既不是实体的，也不是符号表的记录或实例都在该段表述。(7)预览段（THUMBNAILIMAGE)以位图形式描述了生成该DXF文件时显示在屏幕上的画面，其大小是导入DXF文件时对话框上“预览”图像的大小。(8)文件结尾以“0”和“EOF”两行结尾，作为整个DXF文件结束的标志，其中，“”表示空格。组（Group）是构成DXF文件的最小单元，一个DXF文件有若干组，每组在该文件中占两行，首行称为组码，是一个非零的正整数；第二行称为组值。组码说明组值的数据类型，数据的具体值就是组值，两行组合起来才是完成的数据。冲裁件图形信息，包含在DXF文件中的实体段，因此，只需对DXF的实体段的数组信息进行采集。在DXF文件中，存储实体的命令与基本绘图命令相同，而且编辑命令TRIM、BREAK、CHAMFER、FILLET等生成的图形，也为LINE、CIRCLR和ARC等命令保存，这就为DXF文件的读取提供了很大便利，降低了程序语言的编写难度。3.4程序接口技术接口技术采用VB6.0（Visual Basic6.0）编写，其主要是从AutoCAD绘制并生成的冲裁件图形的DXF文件中提取压力中心CAD系统所需要的信息。该程序主要是利用VB6.0语言中的Line Input语句逐组读取DXF中的组码和组值，然后利用If语句找到实体段中图形编辑命令字符串（如LINE、CIRCLE、ARC等），再利用Case语句分类读取实体段的具体数据，并分别进行存储，方便工程后续的调用。以下为读取DXF文件源码：Dim Linep(1 To 100) As linetype线段存储编号，最大值为100Dim Arcp(1 To 100) As arctype圆弧段存储编号，最大值为100Dim Circlep(1 To 100) As circletype圆类存储编号，最大值为100Const PI = 3.141592653Public i, m, n As Integer i for line,m for circle,n for arc两行为一组对文件进行读取Function readcodes() As Variant Dim codestr, valstr As String Line Input #1, codestr Line Input #1, valstr readcodes = Array(Trim(codestr), valstr)End FunctionFunction readdxf(ByVal dxffile As String)Dim codesOpen dxffile For Input As #1codes = readcodes()Xmin = 99999Xmax = -99999ymin = 99999Ymax = -99999i = 0: m = 0: n = 0While codes(1) EOF codes = readcodes() If codes(1) = AcDbLine Or codes(1) = LINE Then判别是否为线段 While codes(0) 31 codes = readcodes() Select Case codes(0) Case 10读取线段起点X值 i = i + 1: Linep(i).XStart = Val(codes(1) Call setLimit(Linep(i).XStart, Linep(i).XStart, ymin, Ymax) Case 20读取线段起点Y值 Linep(i).YStart = Val(codes(1) Call setLimit(Xmin, Xmax, Linep(i).YStart, Linep(i).YStart) Case 11读取线段终点X值 Linep(i).XEnd = Val(codes(1) Call setLimit(Linep(i).XEnd, Linep(i).XEnd, ymin, Ymax) Case 21读取线段终点Y值 Linep(i).YEnd = Val(codes(1) Call setLimit(Xmin, Xmax, Linep(i).YEnd, Linep(i).YEnd) End Select Wend ElseIf codes(1) = AcDbCircle Or codes(1) = CIRCLE Then判别是否为圆 While codes(0) 40 codes = readcodes() Select Case codes(0) Case 10读取圆心X坐标 m = m + 1: Circlep(m).Xcenter = Val(codes(1) Call setLimit(Circlep(m).Xcenter, Arcp(m).Xcenter, ymin, Ymax) Case 20读取圆心Y坐标 Circlep(m).Ycenter = Val(codes(1) Call setLimit(Xmin, Xmax, Circlep(m).Ycenter, Circlep(m).Ycenter) Case 40读取圆半径 Circlep(m).Radius = Val(codes(1) Call setLimit(Circlep(m).Xcenter - Circlep(m).Radius, Circlep(m).Xcenter + Circlep(m).Radius, Circlep(m).Ycenter - Circlep(m).Radius, Circlep(m).Ycenter + Circlep(m).Radius) End Select Wend ElseIf codes(1) = AcDbArc Or codes(1) = ARC Then判别是否为圆弧 Dim countflag As Integer Dim tmpxcenter, tmpycenter, tmpradius, tmparcstart, tmparcend As Double countflag = 0 While countflag m_fWorldToScreenY Then If m_fWorldToScreenX 0.02 Then m_fWorldToScreenX = 0.02 ElseIf m_fWorldToScreenX 0.04 Then m_fWorldToScreenX = 0.04 ElseIf m_fWorldToScreenX 0.06 Then m_fWorldToScreenX = 0.06 ElseIf m_fWorldToScreenX 0.08 Then m_fWorldToScreenX = 0.08 ElseIf m_fWorldToScreenX 0.1 Then m_fWorldToScreenX = 0.1 End If m_fWorldToScreenY = m_fWorldToScreenX Else If m_fWorldToScreenY 0.02 Then m_fWorldToScreenY = 0.02 ElseIf m_fWorldToScreenY 0.04 Then m_fWorldToScreenX = 0.04 ElseIf m_fWorldToScreenY 0.06 Then m_fWorldToScreenY = 0.06 ElseIf m_fWorldToScreenY 0.08 Then m_fWorldToScreenY = 0.08 ElseIf m_fWorldToScreenY 0.1 Then m_fWorldToScreenY = 0.1 End If m_fWorldToScreenX = m_fWorldToScreenY End If End Sub编辑线段绘图命令Private Sub linew(ByVal Sx As Single, ByVal Sy As Single, ByVal Ex As Single, ByVal Ey As Single) Dim ixs As Integer Dim iys As Integer Dim ixe As Integer Dim iye As Integer Call WorldToscreen(Sx, Sy, ixs, iys) Call WorldToscreen(Ex, Ey, ixe, iye) If ixs = ixe And iys = iye Then Picture1.Line (ixs, iys)-(ixe, iye), vbRed Else: Picture1.Line (ix