船舶轴系CAD设计系统.ppt

1、CAD,1,2020/9/2,基AutoCAD VBA的船舶轴系CAD设计,CAD,2,2020/9/2,船舶轴系CAD的发展,船舶轴系的设计研究工作自从有造船业开始就作为造船研究工作的重点。轴系设计的可靠性、安全性、耐用性等是现代轴系设计的主要追求目标。计算机时代的到来 ，使造船业发生了翻天覆地的变化。船舶CAD在绘图方面还没有得到充分发挥，因此本论文将就船舶CAD技术进行探讨，尤其是在绘制轴系三维图方面将作详细研究。,CAD,3,2020/9/2,AutoCAD及开发语言简介,1.AutoCAD的发展及功能概述 2.开发语言介绍,CAD,4,2020/9/2,1.AutoCAD的发展及功能

2、概述,AutoCAD自1982年问世以来,已经进行了十多次升级,从而使其功能逐渐强大,且日完善。如今，AutoCAD以广泛应用于机械、建筑、电子、航天、造船、石油化工、土木工程、冶金、农业气象、纺织、轻工业等各个领域。在我国，AutoCAD已成为工程设计领域应用最广泛的计算机辅助设计软件之一。,CAD,5,2020/9/2,2.开发语言介绍,用VBA开发AutoCAD应用程序； 用VisualLISP开发AutoCAD应用程序； 用ObjectARX开发AutoCAD应用程序。,CAD,6,2020/9/2,用VBA开发AutoCAD应用程序,VBA的全称是Visual Basic for A

3、pplication,是VB的特殊形式，它将VB环境植入应用程序中，使二者紧密集成在一起。采用VB实现Windows平台上诸应用程序的集成，可消除其间的结合空隙，从而将所有程序都集成在统一的操作环境中。它有两大方面优点：第一，与VB有着几乎相同的开发环境和语法，具备功能强大和易于掌握的特点。第二，在于它的for Application功能，即它的针对性非常强。它驻留在主程序的内部，使其结构精简，且代码运行效率非常高。,CAD,7,2020/9/2,用VisualLISP开发AutoCAD应用程序,AutoLISP编程语言和or AutoLISP嵌套于AutoCAD内部，它不仅具备一般高级编程语

4、言的基本结构和功能，而且还具有强大的图形处理功能。由于AutoLISP具有易于掌握的特点，因此成为AutoCAD用户中使用较为广泛的编程语言之一。,CAD,8,2020/9/2,用ObjectARX开发AutoCAD应用程序,ARX（AutoCAD Runtime eXtension）是一种面向对象的C语言环境。 ObjectARX包含一组动态连接库（DLL），这些库与AutoCAD在同一地址空间内运行并能直接利用AutoCAD核心数据库结构和代码。库中包含一组通用工具，使得二次开发者可以充分利用AutoCAD开放结构，直接访问AutoCAD数据库结构、图形系统以及CAD几何造型核心，以使能在

5、运行期间实时扩展AutoCAD具有的类似其功能以及创建全面继承AutoCAD固有命令之特权的新命令.,CAD,9,2020/9/2,结论：,鉴于以上语言的各自特点,所以本毕业设计采用VBA开发AutoCAD。,CAD,10,2020/9/2,船舶轴系设计规范选择,1.刚质海船入级与建造规范 2.长江水系钢船建造规范 3.长江水系小型钢船建造规范,CAD,11,2020/9/2,船舶轴系CAD设计系统结构,1、船舶轴系CAD系统简介 2、系统流程图及主要模块,CAD,12,2020/9/2,1、船舶轴系简介,船舶轴系CAD设计系统就是以船舶动力装置为基础，并且参照了修造 船手则等书籍，编制本软件

6、。,CAD,13,2020/9/2,本论文根据船舶轴系的设计特点，建立船舶轴系CAD设计系统。其目的是实现船舶轴系的设计，借助支撑软件AutoCAD的强大功能完成工程图纸的绘制功能。整个过程通过人机对话的方式，可以完成用户船舶轴系的设计。由于时间有限，本设计只对中间轴的进行了编程设计，对其他类型的轴系的设计工作等还未能完成，这是我今后进一步工作的方向。,CAD,14,2020/9/2,2、系统流程图及主要模块,1、设计流程图 2、主要模块,CAD,15,2020/9/2,1、轴系CAD系统流程图,CAD,16,2020/9/2,2、轴系CAD的主要模块,CAD,17,2020/9/2,1、轴系

7、绘制模块,轴系绘制模块所需参数的数值传递,在本论文中，由于过程中的参数很多，并且在很多过程中都会用到相同的参数，因此，通过在主程序中定义一系列的公共变量，从数值输入对话框中获得所需要的值，赋予公有变量，以此来解决本设计中的数值传递问题。,CAD,18,2020/9/2,例：,Public Dz As Double Public D1 As Double Public D2 As Double Public D3 As Double Public b As Double Public b1 As Double Public R As Double,CAD,19,2020/9/2,法兰的绘制程序,

8、主要运用圆柱体的布耳运算的差运算以及环形矩阵： CylObj1.Boolean acSubtraction, RetObject1(I) CylObj1.Boolean acSubtraction, RetObject2(I) RetObject1 = CylObj3.ArrayPolar(z + 1, angle, cent1),CAD,20,2020/9/2,中间轴的绘制程序,主要运用旋转及镜像的方法： sd1.Rotate3D axis1, axis2, pp Set Mirrsd1 = sd1.Mirror3D(MirrP1, MirrP2, MirrP3),CAD,21,2020/9/2,数据库的建立与数据输入,1。运用以Jet引擎为基础的数据访问对象（DAO）方式，该方式只要用于本地数据库的创建与管理。列： mdbname = InputBox(“请输入数据库文件名：”) Set NewDb = NewWS.CreateDatabase(mdbname, dbLangGeneral) 2。数据的输入，中间轴的尺寸要输入建好的数据库里以供查阅。,CAD,22,2020/9/2,数据库例子,CAD,23,2020/9/2,附图,CAD,24,2020/9/2,总结,