论坛 › SOLIDWORKS › 关于solidworks转换dwg的宏程序

响在江湖 发表于 2016-10-13 20:09:03

DaveChan 发表于 2016-10-4 08:22
给你两个函数参考
可以自己查找API
这两个函数都可以实现你要的功能


首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API是什么？请指教。

DaveChan 发表于 2016-10-13 21:17:18

响在江湖 发表于 2016-10-13 20:09
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API ...

稍微修改了帮助文件里面的代码代码如下
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim FileName As String
Dim NewName As String
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName()
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
End Sub

响在江湖 发表于 2016-10-20 21:47:39

DaveChan 发表于 2016-10-13 21:17
稍微修改了帮助文件里面的代码代码如下

社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是水刀下料，可不可以转换后不要折弯线？就像默认的那样。忘高手进一步解答。再次感谢！

DaveChan 发表于 2016-10-21 13:49:04

响在江湖 发表于 2016-10-20 21:47
社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim FileName As String
Dim NewName As String
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName()
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
End Sub

tyne1314 发表于 2016-10-22 14:03:02

能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

响在江湖 发表于 2016-10-23 10:25:00

tyne1314 发表于 2016-10-22 14:03
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

我试试啊

响在江湖 发表于 2016-10-23 10:26:54

DaveChan 发表于 2016-10-21 13:49
移除折弯线代码如下：

太牛了！真心感谢，应社友要求共享该程序不知这个借花献佛可以不？呵呵

响在江湖 发表于 2016-10-23 10:27:37

tyne1314 发表于 2016-10-22 14:03
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

你是专门学过VB吗？还是也是录制的宏程序？

DaveChan 发表于 2016-10-23 10:34:12

响在江湖 发表于 2016-10-23 10:27
你是专门学过VB吗？还是也是录制的宏程序？

可以共享的，这些代码是API帮助现成的，我只是稍微更改了一下，符合你的要求而已

我编程只是业余爱好而已，不专业

leilei333 发表于 2017-12-4 23:46:03

顶一万个赞

查看完整版本: 关于solidworks转换dwg的宏程序