【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“vb对sw的二次开发实例 - CAD/CAM/CAE”一文，供大家参考学习!

图文vb对sw的二次开发实例 时间:2010-09-12 23:50来源:未知 作者:admin 点击: 171次 以一个简单实例的实现过程为例采用VB语言编制了相关程序详细介绍了二次开发的具体实现过程给出了重要文件的引用、属性设置、接口程序的编制和事件处理等过程的完整代码。

    通过上述实例的实现过程可以看出 VB语言简单易学学习过程中很容易上手功 1 VB简述 Visual Basic简称为VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言可用于开发 Windows 环境下的各类应用程序。

    它简单易学、效率高且功能强大可以与 Windows 专业开发工具SDK相媲美。

    在Visual Basic环境下利用事件驱动的编程机制、新颖易用的可视化设计工具使用Windows内部的广泛应用程序接口API函数动态链接库DLL、对象的链接与嵌入OLE、开放式数据连接ODBC等技术可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

    随着版本的提高Visual Basic的功能也越来越强。

    5.0版以后Visual Basic 推出了中文版与前个版本相比其功能有了很大提升。

     Visual Basic 6.0作为Visual Studio 6.0的优秀一员已成为企业级快速开发的利器。

    Visual Basic 6.0在数据访问方面有了很大的改进新的ADO组件让对大量数据快速访问成为可能。

    数据环境和新的报表功能也让数据开发有了全新的体验。

    Visual Basic 借助COM/COM强大的功能可以开发具有多层结构的分布式应用程序。

    同时Visual Basic还可以在IIS上开发性能超群的Web应用程序。

    Visual Basic 6.0在语言方面和IDE方面的改进都不大但是许多新增的组件成为Visual Basic开发人员手中的利器如File System Object等。

    新的字符串函数Split和Replace等也给Visual Basic的程序员带来很大方便。

     Visual Basic 6.0具有下述优点: 1 面向对象 2 事件驱动 3 软件的集成式开发 4 结构化的程序设计语言 5 强大的数据库访问功能 6 支持对象的链接与嵌入技术 7 网络功能 8 多个应用程序向导 9 支持动态交换、动态链接技术 l0 联机帮助功能 VB拥有图形用户界面GUI和快速应用程序开发RAD系统可以轻易的使用DAO、RDO、ADO连接数据库或者轻松的创建ActiveX控件。

    它不像高级语言Visual C那麽复杂但它的功能很全程序员可以轻松的使用VB提供的组件进行二次开发快速建立属于自己的应用程序。

     2 利用VB实现圆台交互式绘制的实现过程 2.1 启动VB程序 启动VB程序VB6.0的主窗口如图1所示可以直观地看到主窗体主要有以下部分组成标题栏菜单栏工具栏窗体设计器控件工具箱弹出式上下文菜单 工程管理器窗口 属性窗口对象浏览器 对象浏览器及窗体布局窗口。

     建立一个新的标准EXE工程文件对其进行重命名保存重命名为圆台绘制将Form窗体文件重命名保存为交互式圆台绘制如图2所示。

    特别需要注意的一点是在标题栏显示的当前的工程名及窗体名是通过修改属性窗口中名称属性及caption属性得以实现的与实际的工程名及窗体名并无直接联系实际的工程名及窗体名是通过诸如圆台绘制.vbp形式体现出来的。

     2.2引用Solidworks类型库文件 要操作SW对象那么添加SW引用是必不可少的。

    在VB里添加引用单击菜单栏中【工程】【引用】命令选择SolidWorks exposed Type Libraries For add-in UseSolidWorks插件库文件、SolidWorks 2007 Type LibraySolidWorks库文件和SolidWorks Consant Type librarySolidWorks常数库如图3所示。

    本文其实只用到了SolidWorks 2007 Type LibraySolidWorks库文件但为了方便以后的程序扩展将上述三种常用库文件一并添加。

     2.3 编辑窗体界面 1拖动工具箱组件板上的Lable控件、TextBox控件及CommandButton控件到Form上。

     2接下来在属性窗口将Lable1、Lable2的属性分别设置为圆台半径、圆台高度将CommandButton1、CommandButton2的属性分别设置为启动SolidWorks交互式绘图、退出SolidWorks软件。

    编辑后的窗体界面如图4所示。

     Dim swapp As Object Dim part As Object Dim boolstatus As Boolean Set swapp CreateObjectSldWorks.Application Set part swapp.NewPart swapp.Visible True 2.4编程实现 在VB编程环境下引用单元文件创建相关函数及编写事件处理过程实现程序功能。

    绘制圆台的详细程序代码及其注释如下所示 Private Sub Command1_Click Dim swapp As Object Dim part As Object Dim boolstatus As Boolean 定义接口 Set swapp CreateObjectSldWorks.Application Set part swapp.NewPart swapp.Visible True 获取solidworks软件接口并新建一个零件文件 part.InsertSketch2 True boolstatus part.Extension.SelectByID前视 PLANE 0 0 0 False 0 Nothing part.InsertSketch2 True part.CreateCircle 0 0 0 0 ValR.Text / 10005 0 part.ShowNamedView2 上下二等角轴测 8 part.FeatureManager.FeatureExtrusion True False False 0 0 ValH.Text / 1000 0.01 False False False False 0 0 False False False False 1 1 1 建立模型 End Sub 点击启动SolidWorks交互式绘图后程序调用SolidWorks自动绘制的圆台三维图如图5所示。

    可交互式修改参数直至达到满意的效果。

    操作完成后点击退出SolidWorks环境可以自动关闭并退出SolidWorks环境。

     3 小结 本文同样以一个简单实例的实现过程为例采用VB语言编制了相关程序详细介绍了二次开发的具体实现过程给出了重要文件的引用、属性设置、接口程序的编制和事件处理等过程的完整代码。

    通过上述实例的实现过程可以看出 VB语言简单易学学习过程中很容易上手功能齐全程序员可以轻松的使用VB提供的组件进行二次开发快速建立属于自己的应用程序在其各项高效强大集成功能的支持下最终可方便快速地完成二次开发任务。

     参照连载1中的通过宏录制实现的二次开发过程可以清楚地看到利用VB二次开发实现圆台绘制的具体命令源代码不需要自己编写可以直接对宏录制的相关源码拷贝过来加以利用即可只需要修改其中的相关变量参数诸如ValR.Text即可易于实现减轻了程序员的工作量提高了程序的开发速度。