找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 6718|回复: 5
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1
发表于 2016-7-14 17:12:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
本帖最后由 pyczt 于 2016-7-14 17:18 编辑
  1. 'Enables a sheet metal part to be saved to disk in its flattened state to a DXF/DWG file.
  2. '钣金零件以平板型式存为DXF/DWG文件-----PYCZT
  3. Dim swApp As Object
  4. Dim swModel As Object
  5. Dim swModelName As String
  6. Dim FilePath As String
  7. Dim value As Boolean
  8. Sub main()
  9. Set swApp = Application.SldWorks
  10. Set swModel = swApp.ActiveDoc
  11. swModelName = swModel.GetPathName      '读取当前SW模型文档名(含路径)
  12. FilePath = Left(swModelName, Len(swModelName) - 7) + "平板图.dwg" '定义工程图名
  13. 'value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_None)  保留折弯线
  14. value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_RemoveBends)     '无折弯线
  15. End Sub
复制代码
当前为钣金零件,运行宏,将在同路径下以平板型式存为DWG文件

评分

参与人数 2技术 +1 贡献 +1 收起 理由
zctao1966 + 1 很给力!
gt.adan + 1 赞一个!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 赞一下!赞一下!
2
发表于 2016-7-14 23:56:28 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
3
发表于 2016-7-18 11:43:33 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
4
发表于 2016-8-29 19:15:21 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
5
发表于 2016-12-14 10:01:09 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
6
发表于 2017-6-10 14:52:43 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-23 00:45 , Processed in 0.024454 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表