solidworks零件批量导出CAD展开图宏文件

satanmonkey · 发表于 2020-2-24 16:30:22

经典图书

求可以直接通过零件转为CAD的展开图宏，
不需要转为工程图
最好可以标识厚度

ivanyoung · 发表于 2020-2-26 10:54:15

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

deng13 · 发表于 2020-2-26 10:54:15

经典图书

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

lilimnmn21 · 发表于 2020-2-26 17:05:21

有转cad代码就够了

qazwsx25 · 发表于 2020-2-26 17:05:21

经典案例图书

有转cad代码就够了

a546108 · 发表于 2020-2-26 17:06:31

判断厚度的代码我有了，就差零件自动转为cad的代码

wwl588 · 发表于 2020-2-26 17:06:31

经典案例图书

判断厚度的代码我有了，就差零件自动转为cad的代码

HXM751230 · 发表于 2020-2-26 21:46:50

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

VBA代码：
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
复制代码

hr665588 · 发表于 2020-2-26 21:46:50

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

VBA代码：
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
复制代码

hoticejz · 发表于 2020-2-26 23:06:54

经典图书

这个可以，谢谢

GAOWENXUAN · 发表于 2020-2-27 11:47:04

这个代码知道怎么用，直接加上会出错

kakarote44 · 发表于 2020-2-27 11:47:04

这个代码知道怎么用，直接加上会出错

bluemoon · 发表于 2020-2-27 13:27:18

哪里出错，可以说出来我们讨论下，楼上发的那个代码适合选择面然后输出CAD格式那样会好点

pejaandroger · 发表于 2020-2-29 23:26:08

已经解决了取得厚度代码附
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
复制代码

ytbkhnyv · 发表于 2020-2-29 23:26:08

加入QQ群
参与讨论和学习

或扫描二维码加入

已经解决了取得厚度代码附
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
复制代码

lxa007 · 发表于 2020-3-2 13:07:52

经典案例图书

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

kele1104 · 发表于 2020-3-2 13:07:52

加入QQ群
参与讨论和学习

或扫描二维码加入

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

kiss303520 · 发表于 2020-3-6 17:56:25

经典案例图书

只需要在最上面加上
DIM C
我这个c的公共变量在其它模块已经定义
Macro11.zip

chr5409 · 发表于 2020-3-7 09:14:51

还是报错，

zhuchengboy · 发表于 2020-3-8 22:31:04

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

		自动登录	找回密码
密码			立即注册