基于autocad的三维旋转楼梯自动生成器的开发与研究信息管理与信息系统专业毕业论文初稿

基于autocad的三维旋转楼梯自动生成器的开发与研究信息管理与信息系统专业毕业论文初稿内容摘要：

具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。 它的多文档设计环境 ，让非计算机专业人员也能很快地学会使用。 在不断实践的过程中更好地掌握它的各种应用和开发技巧，从而不断提高工作效率。 autoCAD 软件具有如下特点： (1)具有完善的图形绘制功能。 (2)有强大的图形编辑功能。 (3)可以采用多种方式进行二次开发或用户定制。 (4)可以进行多种图形格式的转换，具有较强的数据交换能力。 (5)支持多种硬件设备。 (6)支持多种操作平台 (7)具有通用性、易用性，适用于各类用户此外，从 AutoCAD2020 开始，该系统又增添了许多强大的功能，如 AutoCAD 设计中心（ ADC）、多 文档设计环境（ MDE）、 Inter 驱动、新的对象捕捉功能、增强的标注功能以及局部打开和局部加载的功能，从而使 AutoCAD 系统更加完善。 VBA 开发工具 简介 什么 是 VBA? VBA（ Visual Basic for Application） 是一种完全面向对象体系结构的编程语言，由于其在开发方面的易用性和具有强大的功能，因此许多应用程序均嵌入该语言作为开发工具。 AutoDesk公司也在 AutoCAD VBA开发工具，同时提供了适用于 VBA 开发的 ActiveX Automation 对象模型。 VBA是一种自动化语言 ,它可以使常用的程序自动化 ,可以创建自定义的解决方案。 VBA 全称为 ： Visual Basic for Application， 可以认为 VBA 是非常流行的应用程序开发语言 Visual Basic 的子集 ， 实际上 VBA是寄生于 VB应用程序的版本 ，它 是 Microsoft 面向最终用户的应用软件编程语言。 它最早出现于 Microsoft的 Excel 和 Project 中，如今 VBA 已成为 VB 和所有 Office 产品的组件。 常用的绘图软件 AutoCAD 也已支持 VBA 作为二次开发工 具。 VBA 最大特点和最大优点是利用面向对象（ OOP）的 ActiveX Automation 技术，使语言的引擎在技术上与开发环境分离。 它的功能在很大程度上依赖于它的客户显露的 Automation 接口。 同时，由于 VBA 是基于 ActiveX Automation 技术，它可以使用任何 Automation 技术的应用程序共同工作。 在 VBA 内部访问对象层次是非常容易的， 这是因为 VBA 是运行在 AutoCAD进程的内部，所以不必通过附加的步骤与应用程序进行连接。 VBA 通过 ThisDrawing 对象链接到当前 AutoCAD 进程的活动图形。 通过使用ThisDrawing 直接获得访问当前文档对象和所有相关的方法和属性以及所有在该层次中的其它对象。 当使用全局工程， ThisDrawing 通常指向 AutoCAD 中的活动文档。 当用的是嵌入工程， ThisDrawing 通常指向包含该工程的文档。 Visual Basic Edit 是一个开发 VBA 代码的集成环境， 有自己的图形用户界面，在窗口中提供了所有所需的工具，用于创建，编辑，调试和运行你的宏代码和应用程序。 有了如此多的功能， VBA 集成环境 几乎就是有个卓越的应用程序，但它 只能从 AutoCAD 窗口中打开，且随着 AutoCAD 的关闭而关闭。 图 AutoCAD 的 VBA 环境 2 系统设计 系统基本目标 该课题主要是完成 三维旋转楼梯自动生成器的开发 ， 通过窗体生成两类旋转楼梯。 一类是弧形旋转楼梯，选择圆弧的内外半径以及楼梯的总高度 和总旋转角度、 踏板的 高度输入你所需的数据来。 另一类是方形旋转楼梯，相对于上一种，这类旋转楼梯较容易。 只需输入每小节的阶梯数和踏步的高度、步长、宽度即可 生成楼梯。 具备的基本功能有： （ 1） 在运行程序时，首 先通过界面选择旋转楼梯的类型。 （ 2） 输入自己所需要的数据。 （ 3） 选择按钮操作“确定”、“重置”、“退出”。 （ 4） 通过确定按纽生成旋转楼梯。 （ 5） 结果显示在 AutoCAD 窗口中。 系统模块设计 该系统是基于 AutoCAD 的三维旋转楼梯自动生成器的开发，主要是通过用户输入数据而自动生成所需的楼梯，既节省了时间又简洁。 打开 AutoCAD，在编辑器上点击工具创建一个用户窗体模块，进行程序界面的设计。 用户界面介绍及组件说明： （ 1） 窗体名称修改为 form，设 caption 为“三维旋转楼梯自动生成器”。 （ 2） 在窗体上插入 Multipage1,并将 page1 改为“弧形旋转楼梯”， page2改为“方形旋转楼梯”。 （ 3） 在“弧形旋转楼梯”内，添加 5 个 label,从上到下，从左至右分别命名为：内半径、外半径、楼层总高度、总旋转角度和踏步高度。 同时匹配 5 个 textbox 并根据上面的顺序命名为： nr、 wr、 zg、 zj和 gd。 （ 4） 在“方形旋转楼梯”内，插入 2 个 label 分别命名为：每小节阶梯数和楼梯宽度。 对应放入 2 相 textbox，并命名为： number 和 kd。 对于踏板，则放入一个 frame,并将其 caption 改为“踏步”。 同时在其内放入 2 个 label 和对应的 textbox,并改为：高度和步长、 tbgd和 bc。 （ 5） 最后再加入 3 个 CommandButton 并将其 caption 改为：确定、清空和退出。 图 程序运行界面 系统结构设计 系统结构图 系统流程图 窗体 VBA 代码 窗体设计 三维旋转 楼梯自动生成器 的开发与研究 AutoCAD 对象 Thisdrawing 对象 3 系统实现 弧形 旋转楼梯 当在 Multipage 中选择 “弧形旋转楼梯”时，根据需要对内半径、外半径、楼层总高度 等因素输入数据。 通过默认的数据运行出来的界面如下： 运行窗体 进行条件选择并输入数据 数据判断 弧形旋转楼梯 方形旋转楼梯 yes false 三维旋转楼梯生成器 按钮选择 （确定 /清空 /退出） 显示结果 退出生成器 退出 确定 清空 图 “ 弧形旋转楼梯”运行界面 运行结果如下图： 图 默认数据下生成的弧形旋转楼梯 方形旋转楼梯 当在 Multipage 中选择 “方形旋转楼梯”时，根据需要对每小节楼梯数、楼梯宽度、踢步高度等因素输入数据。 通过默 认的数据运行出来的界面如下： 图 “ 方形旋转楼梯”运行界面 运行结果如下图： 4 代码及 说明 窗体程序源代码 本系统针对需要，在 form 下使用以下代码 : Private Sub reset_Click() Dim Stairs As Control For Each Stairs In If TypeOf Stairs Is TextBox Then = End If Next End Sub Private Sub CommandButton3_Click() End End Sub Private Sub CommandButton4_Click() If = 0 Then 39。 检查参数的赋值情况 If = Or = Or = Or = Or = Then MsgBox 参数不能为空，请检查参数的输入。 , vbExclamation, 警告 Exit Sub End If。