microsoft visual basic与solidworks的接口技术

《microsoft visual basic与solidworks的接口技术》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、本文通过一个小程序着重讲述了如何在MicrosoftVisualBasic编程环境中使用SolidworksAPI的技术，进行参数化地改变3D立体图形。其它更多的应用可由此延伸出去。...*MicrosoftVisualBasic与Solidworks的接口技术摘要：本文着重讲述了如何在MicrosoftVisualBasic编程环境中使用SolidworksAPI的技术，及其在工控领域内的应用。关键词:Interface，API1前言伴随着计算机技术的发展，在工控领域内，人们越来越不能对计算机屏幕只作为数字显示器

2、感到满意，人们需要对机器更直观的显示及更方便的控制。目前一个简单的办法是使用“组态“软件，但它的价格对小型机器太贵了一点，另外，它的共性较多，不可能满足各行业所有用户的需求。在这种情况下，我们可以自己编程来仿真机器的运动，当然，一个必不可少的前提是机器的控制及反馈信号都可经由计算机识别和处理。本文通过一个小程序着重讲述了如何在MicrosoftVisualBasic编程环境中使用SolidworksAPI的技术，进行参数化地改变3D立体图形。其它更多的应用可由此延伸出去。2在Solidworks中自动生成一个程序模

3、板这可以通过宏记录来实现.具体步骤如下：2.1绘制一个草图a)打开所要进行修改的零件；b)在宏工具条上点击记录停止宏按钮；c)选择一个平面作为草图绘制平面；d)在草图工具条上点击草图按钮，插入一个草图；e)在标准视图工具条上点击向上按钮；f)在草图工具条上点击圆按钮；g)在草图绘制平面上以中心为圆心画一个圆的草图；h)在特征管理器中将半径设置为15(或其它值)；i)点击确定.2.2创建一个特征a)在特征工具条上点击剪取按钮；b)在特征管理器中，在方向1下设置：结束条件为盲孔深度为25(或其它值)；c)点击确定.此

4、时在零件所选取的面上创建了一个半径15mm，深度为25mm的孔.d)点击停止宏按钮以停止记录宏；e)在另存为...对话框中选出要存储宏文件的文件夹；f)在文件名栏里键入宏文件名，如MacroCut，此时，自动将.swp作为扩展名，表明该文件是一个Solidworks宏文件.g)点击保存.此时的程序大致如下:DimswAppAsObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLong，longwarningsAsLongDimFeatureDataA

5、sObjectDimFeatureAsObjectDimComponentAsObjectSubmain()SetswApp=Application.SldWorksSetPart=swApp.ActiveDocPart.ClearSelection2TruePart.CreateCircle0，0，0，-0.02057158807497，0.004219588533317，0Part.ClearSelection2Trueboolstatus=Part.Extension.SelectByID("Arc1"，"S

6、KETCHSEGMENT"，0，0，0，False，0，Nothing)Part.FeatureManager.FeatureCutTrue，False，False，0，0，0.025，0.01，False，False，False，False，0.01745329251994，0.01745329251994，False，False，False，False，0，1，1Part.SelectionManager.EnableContourSelection=0EndSub此程序只能在Solidworks环境中执行，包

7、含了一些冗余的语句，也没有参数化功能.2在VisualBasic中运行宏为使所记录的宏能够在VisualBasic中运行，需做如下修改：a)在程序中添加Part.InsertSketch2True，允许插入草图；b)在程序的开始出添加语句OptionExplicit，确保每个变量先定义后使用.c)去除没有用到的变量DimlongstatusAsLong，longwarningsAsLongDimFeatureDataAsObjectDimFeatureAsObjectDimComponentAsObjectd)修改

8、变量SwApp，Part的定义，使其与SolidWorks软件关联起来.DimswAppAsSldWorks.SldWorksDimPartAsSldWorks.ModelDoc2此时程序应当如下：OptionExplicitDimswAppAsSldWorks.SldWorksDimPartAsSldWorks.ModelDoc2Dimboolstatus