SolidWorks 2020 钣金零件折弯过程动画宏代码

{/'title/':/'SolidWorks 2020 钣金零件折弯过程动画宏代码/',/'description/':/'使用SolidWorks 2020宏代码自动生成钣金零件所有折弯过程的动画，并包含尺寸标注，方便您直观地展示钣金零件的弯折过程。/',/'keywords/':/'SolidWorks, 钣金, 折弯, 动画, 宏代码, VBA, 弯折过程, 尺寸标注/',/'content/':/'///'Option Explicit//n//nSub RunBendAnimation()//n Dim swApp As SldWorks.SldWorks//n Dim swModel As SldWorks.ModelDoc2//n Dim swPart As SldWorks.PartDoc//n Dim swBendTable As SldWorks.BendTable//n Dim swBendLines As SldWorks.BendLines//n Dim swBendLine As SldWorks.BendLine//n Dim swConfMgr As SldWorks.ConfigurationManager//n Dim swConf As SldWorks.Configuration//n Dim swSheetMetalFolder As SldWorks.FeatureManager//n Dim swFeature As SldWorks.Feature//n Dim swBendFeature As SldWorks.BendFeature//n Dim swDisplayDimension As SldWorks.DisplayDimension//n Dim swDrawing As SldWorks.DrawingDoc//n Dim swView As SldWorks.View//n Dim swMate As SldWorks.Mate2//n Dim swBendAngle As Double//n Dim swBendDirection As Integer//n Dim swBendRadius As Double//n Dim swBendRelief As Integer//n Dim swFolder As SldWorks.Feature//n Dim vBendLines As Variant//n Dim vBendLine As Variant//n Dim vBendAngles As Variant//n Dim vBendDirections As Variant//n Dim vBendRadii As Variant//n Dim vBendReliefs As Variant//n Dim i As Integer//n //n ' 获取当前的SolidWorks应用程序//n Set swApp = Application.SldWorks//n //n ' 获取当前打开的模型//n Set swModel = swApp.ActiveDoc//n If swModel Is Nothing Then//n MsgBox ///'请打开一个零件文件///'//n Exit Sub//n End If//n //n ' 确认当前文档是否为零件文件//n If swModel.GetType <> swDocPART Then//n MsgBox ///'当前文档不是零件文件///'//n Exit Sub//n End If//n //n ' 将模型转换为零件文档类型//n Set swPart = swModel//n //n ' 获取钣金零件上的所有折弯特征//n Set swSheetMetalFolder = swPart.FeatureManager//n Set swFolder = swSheetMetalFolder.GetFeatureByName(///'Sheet-Metal///')//n Set swFeature = swFolder.GetFirstSubFeature//n Do While Not swFeature Is Nothing//n If swFeature.GetTypeName2 = ///'Bend///' Then//n Set swBendFeature = swFeature.GetSpecificFeature2//n Exit Do//n End If//n Set swFeature = swFeature.GetNextFeature//n Loop//n //n ' 确认是否找到了折弯特征//n If swBendFeature Is Nothing Then//n MsgBox ///'未找到折弯特征///'//n Exit Sub//n End If//n //n ' 获取折弯特征上的所有折弯线//n Set swBendTable = swBendFeature.GetBendTable//n If Not swBendTable Is Nothing Then//n vBendLines = swBendTable.BendLines//n vBendAngles = swBendTable.BendAngles//n vBendDirections = swBendTable.BendDirections//n vBendRadii = swBendTable.BendRadii//n vBendReliefs = swBendTable.BendReliefs//n End If//n //n ' 切换到默认配置//n Set swConfMgr = swModel.ConfigurationManager//n Set swConf = swConfMgr.ActiveConfiguration//n swConfMgr.ActiveConfiguration = swConf//n swConfMgr.ActiveConfiguration.Visible = True//n //n ' 创建一个新的绘图//n Set swDrawing = swApp.NewDocument(///'C:////ProgramData////SolidWorks////SOLIDWORKS 2020////templates////Drawing.drwdot///', 0, 0, 0)//n Set swView = swDrawing.CreateDrawViewFromModelView3(swModel.GetPathName, swModel.GetConfigurationName, 0, 0, 0)//n swView.SetDisplayMode swDrawingHiddenLinesRemoved//n //n ' 遍历所有折弯线//n If Not IsEmpty(vBendLines) Then//n For i = LBound(vBendLines) To UBound(vBendLines)//n ' 获取当前折弯线//n Set swBendLine = vBendLines(i)//n //n ' 获取折弯线的参数//n swBendAngle = vBendAngles(i)//n swBendDirection = vBendDirections(i)//n swBendRadius = vBendRadii(i)//n swBendRelief = vBendReliefs(i)//n //n ' 创建一个折弯动画//n swDrawing.CreateBendAnimation swBendLine, swBendAngle, swBendDirection, swBendRadius, swBendRelief//n //n ' 显示折弯线的尺寸//n Set swDisplayDimension = swDrawing.AddDimension2(swBendLine.StartPoint, swBendLine.EndPoint)//n swDisplayDimension.Text = swBendAngle & ///'°///'//n Next i//n End If//n //n ' 激活和显示绘图文档//n swApp.ActivateDoc3 swDrawing.GetTitle, True, swRebuildOnActivation//n //n ' 提示用户按空格键开始动画//n MsgBox ///'按空格键开始动画///'//nEnd Sub//n///