Microsoft Visual Basic与Solidworks的接口技术.doc

本文通过一个小程序着重讲述了如何在Microsoft Visual Basic编程环境中使用Solidworks API 的技术， 进行参数化地改变3D立体图形。其它更多的应用可由此延伸出去。 ...* Microsoft Visual Basic与Solidworks的接口技术 摘要：本文着重讲述了如何在Microsoft Visual Basic编程环境中使用Solidworks API的技术，及其在工控领域内的应用。 关键词: Interface， API1 前言 伴随着计算机技术的发展， 在工控领域内， 人们越来越不能对计算机屏幕只作为数字显示器感到满意， 人们需要对机器更直观的显示及更方便的控制。 目前一个简单的办法是使用“组态“软件， 但它的价格对小型机器太贵了一点， 另外， 它的共性较多， 不可能满足各行业所有用户的需求。 在这种情况下， 我们可以自己编程来仿真机器的运动， 当然， 一个必不可少的前提是机器的控制及反馈信号都可经由计算机识别和处理。本文通过一个小程序着重讲述了如何在Microsoft Visual Basic编程环境中使用Solidworks API 的技术， 进行参数化地改变3D立体图形。其它更多的应用可由此延伸出去。 2 在Solidworks中自动生成一个程序模板 这可以通过宏记录来实现. 具体步骤如下：2.1 绘制一个草图 打开所要进行修改的零件；\停止宏 按钮； ； ， ； ； ； ； 15(或其它值)； . 创建一个特征 在特征工具条上点击剪取按钮； ，1下设置： 结束条件为盲孔 深度为25(或其它值)； . 此时在零件所选取的面上创建了一个半径15mm，深度为25mm的孔. 点击停止宏按钮以停止记录宏； 在另存为...对话框中选出要存储宏文件的文件夹； 在文件名栏里键入宏文件名，如MacroCut ，swp作为扩展名，表明该文件是一个Solidworks 宏文件. 点击保存. 此时的程序大致如下: Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long， longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Part.ClearSelection2 True Part.CreateCircle 0， 0， 0， -0.02057158807497， 0.004219588533317， 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID(Arc1， SKETCHSEGMENT， 0， 0， 0， False， 0， Nothing) Part.FeatureManager.FeatureCut True， False， False， 0， 0， 0.025， 0.01， False， False， False， False， 0.01745329251994， 0.01745329251994， False， False， False， False， 0， 1， 1 Part.SelectionManager.EnableContourSelection = 0 End SubSolidworks环境中执行， 包含了一些冗余的语句， 也没有参数化功能. 在Visual Basic 中运行宏 为使所记录的宏能够在Visual Basic中运行， 需做如下修改：Part.InsertSketch2 True， ； Option Explicit ， 确保每个变量先定义后使用. 去除没有用到的变量 Dim longstatus As Long， longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object d) SwApp， PartSolid Works软件关联起来. Dim swApp As SldWorks.SldWorks Dim Part As SldWorks.ModelDoc2 此时程序应当如下： Option Explicit Dim swApp As SldWorks.SldWorks Dim Part As SldWorks.ModelDo