宏--钣金零件以平板型式存为DXF/DWG文件

pyczt · 发表于 2016-7-14 17:12:44

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 pyczt 于 2016-7-14 17:18 编辑

'Enables a sheet metal part to be saved to disk in its flattened state to a DXF/DWG file.
'钣金零件以平板型式存为DXF/DWG文件-----PYCZT
Dim swApp As Object
Dim swModel As Object
Dim swModelName As String
Dim FilePath As String
Dim value As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModelName = swModel.GetPathName '读取当前SW模型文档名(含路径)
FilePath = Left(swModelName, Len(swModelName) - 7) + "平板图.dwg" '定义工程图名
'value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_None) 保留折弯线
value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_RemoveBends) '无折弯线
End Sub

复制代码

当前为钣金零件,运行宏,将在同路径下以平板型式存为DWG文件

gt.adan · 发表于 2016-7-14 23:56:28

您需要登录才可以下载或查看，没有帐号？注册

x

ffcc0077 · 发表于 2016-7-18 11:43:33

您需要登录才可以下载或查看，没有帐号？注册

x

口风琴 · 发表于 2016-8-29 19:15:21

您需要登录才可以下载或查看，没有帐号？注册

x

yjm36 · 发表于 2016-12-14 10:01:09

您需要登录才可以下载或查看，没有帐号？注册

x

jj420429625 · 发表于 2017-6-10 14:52:43

您需要登录才可以下载或查看，没有帐号？注册

x

[分享] 宏--钣金零件以平板型式存为DXF/DWG文件