求一个得出钣金件厚度的代码

735057167

   经典图书

最近在做一个零件直接转为cad的钣金展开宏文件
其中cad批量展开导出，已经实现

为方便排版人统一厚，现想要把厚度加上

故求一取得钣金厚度的代码

最好有注释

xiabutan

Set swFeat = swModel.FirstFeature
        Do While Not swFeat Is Nothing
            If swFeat.GetTypeName2 = "SMBaseFlange" Then
                Set swBaseFlangeFeatData = swFeat.GetDefinition
                swApp.SendMsgToUser2 "Sheet Metal Feat Name: " & swFeat.Name & "     Thickness: " & swBaseFlangeFeatData.Thickness * 1000 & "mm.", swMessageBoxIcon_e.swMbInformation, swMessageBoxBtn_e.swMbOk
                swApp.SendMsgToUser2 "Thickness: " & swBaseFlangeFeatData.Thickness * 1000 & "mm.", swMessageBoxIcon_e.swMbInformation, swMessageBoxBtn_e.swMbOk

nasyun

   经典图书

通过sheetmetalfeaturedata 接口获取就可以了

fsl810038

nasyun 发表于 2020-2-29 08:50
通过sheetmetalfeaturedata 接口获取就可以了

从切割清单读取，有关钣金的所有数据都在那

xiabutan

   经典案例图书

本来想说一个更好的方案，楼主在别的地方说解决了，在此贴却不对大家对应的回复，算了。

bohainengke

很不错，顶一下！

981616365

   经典案例图书

能不能分享下钣金展开宏

735057167

xiabutan 发表于 2020-3-3 08:32
本来想说一个更好的方案，楼主在别的地方说解决了，在此贴却不对大家对应的回复，算了。

不好意思，我是忘了在这里提问过，确实是已经解决了

735057167

981616365 发表于 2020-3-18 23:35
能不能分享下钣金展开宏

今天晚上发出来

735057167

   经典图书

981616365 发表于 2020-3-18 23:35
能不能分享下钣金展开宏

以下代码为API VBA源码，在下部倒数第二个参数是钣金输出选项，参见API帮助。以下代码略加修改可以做成批量处理工具。我用VB.NET写的代码给你应该没什么用如下图。


Option Explicit


Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim sModelName As String
Dim sPathName As String
Dim varAlignment As Variant
Dim dataAlignment(11) As Double
Dim varViews As Variant
Dim dataViews(1) As String
Dim options As Long


Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc   
    sModelName = swModel.GetPathName
    sPathName = swModel.GetPathName
    sPathName = Left(sPathName, Len(sPathName) - 6)
    sPathName = sPathName + "dwg"   


    Set swPart = swModel   


    dataAlignment(0) = 0#
    dataAlignment(1) = 0#
    dataAlignment(2) = 0#
    dataAlignment(3) = 1#
    dataAlignment(4) = 0#
    dataAlignment(5) = 0#
    dataAlignment(6) = 0#
    dataAlignment(7) = 1#
    dataAlignment(8) = 0#
    dataAlignment(9) = 0#
    dataAlignment(10) = 0#
    dataAlignment(11) = 1#   


    varAlignment = dataAlignment   


    dataViews(0) = "*Current"
    dataViews(1) = "*Front"   


    varViews = dataViews   


    'Export each annotation view to a separate drawing file
    swPart.ExportToDWG2 sPathName, sModelName, swExportToDWG_ExportAnnotationViews, False, varAlignment, False, False, 0, varViews
   
    'Export sheet metal to a single drawing file
    options = 1   'include flat-pattern geometry
    swPart.ExportToDWG2 sPathName, sModelName, swExportToDWG_ExportSheetMetal, True, varAlignment, False, False, options, Null

End Sub



可以，判断厚度，最好是钣金零件，
Value = Part.ExportFlatPatternView(MyFileNameDXF, swExportFlatPatternOption_None) '保留折弯线
value = Part.ExportFlatPatternView(FilePath, swExportFlatPatternOption_RemoveBends)'去掉折弯线




Option Explicit
Sub thiness0()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swPart As SldWorks.PartDoc
    Dim i As Long
    Dim swFeatMgr As FeatureManager
    Dim swFeat As Feature
    Dim swSheetMetalFol As SheetMetalFolder
    Dim swSheetFeatData As SheetMetalFeatureData
    Dim swBaseFlangeFeatData As BaseFlangeFeatureData
    Dim vSheetMetalFeat As Variant
    Dim ThicknessM As String
    Dim Path As String
    Dim sModelName As String
    Dim sPathName As String
    Dim varAlignment As Variant
    Dim dataAlignment(11) As Double
    Dim options As Long
  
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swFeatMgr = swModel.FeatureManager
    Set swSheetMetalFol = swFeatMgr.GetSheetMetalFolder
  
    If Not swSheetMetalFol Is Nothing Then
        vSheetMetalFeat = swSheetMetalFol.GetSheetMetals
        For i = 0 To UBound(vSheetMetalFeat)
            Set swFeat = vSheetMetalFeat(i)
            If swFeat.GetTypeName2 = "SheetMetal" Then
                Set swSheetFeatData = swFeat.GetDefinition
              Exit For
            End If
        Next i
    Else
        Set swFeat = swModel.FirstFeature
        Do While Not swFeat Is Nothing
            If swFeat.GetTypeName2 = "SMBaseFlange" Then
                Set swBaseFlangeFeatData = swFeat.GetDefinition
                Exit Do
            ElseIf swFeat.GetTypeName2 = "SheetMetal" Then
                Set swSheetFeatData = swFeat.GetDefinition
                Exit Do
            End If
            Set swFeat = swFeat.GetNextFeature
        Loop
    End If
    ThicknessM = swSheetFeatData.Thickness * 1000
   C = ThicknessM
  C = "（T=" & C & "mm）"
msgbox c
End Sub


我运行此楼代码    提示编译错误变量未定义，能否上传  .swp附件  谢谢






只需要在最上面加上
DIM C

我这个c的公共变量在其它模块已经定义
Macro11.zip (9.56 KB, 下载次数: 81)

2020-4-15 09:23 上传

点击文件名下载附件
下载积分: 金币 -1

只需要在最上面加上
DIM C


你看一下引那里有没有丢失的
零件要求是钣金件

yni621

我试了一下宏，没有展开图，只有弹出一个厚度提示窗，感觉没什么用。

weiyw1989

感谢楼主分享，很不错！