SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 谁有sw批转dwg的工具 [打印本页]

作者: 3210579abc 时间: 2008-10-10 17:56
标题: 谁有sw批转dwg的工具
急需要sw转dwg，一页一页另存太麻烦了

作者: zp0858 时间: 2008-10-10 17:59
我也想要

作者: 永恒的水晶城 时间: 2008-10-10 17:59
我也是

作者: quzy 时间: 2008-10-10 18:01
我也是

作者: changyingao 时间: 2008-10-10 18:04
好像没有好办法

作者: gyzwyf003 时间: 2008-10-10 18:05
你们可以有这种这个方法...本身的SW功能.

作者: chzs 时间: 2008-10-10 18:06
直接将工程图另存为DWG格式也可以啊

作者: posinan 时间: 2008-10-10 18:09
专业版才有的功能哦

作者: ahclc 时间: 2008-10-10 18:12
BenBen的方法才是正解，对大批量的图形转化效果好。一页一页另存太累。

作者: 9gwb15y5t5 时间: 2008-10-10 18:13
多谢指教啊，又学一手。

作者: 三亚瑜伽 时间: 2008-10-10 18:14
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
Sub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("E:工作9065 铲叉SW")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
For i = 0 To FNum - 1
PathStr0 = PathStr & "" & FName(i)
Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
L = Len(PathStr0)
PathStr1 = Left(PathStr0, L - 7) & ".DWG"
PathStr2 = Left(PathStr0, L - 7) & ".PDF"
longstatus = Part.SaveAs3(PathStr1, 0, 0)
longstatus = Part.SaveAs3(PathStr2, 0, 0)

Set Part = Nothing

L1 = Len(FName(i))
PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

swApp.CloseDoc PathStr3
swApp.CloseDoc PathStr4
swApp.CloseDoc PathStr5
Next i
End Sub
Private Sub Showfilelist(folderspec As String)
   Dim fs, f, f1, fc, s
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFolder(folderspec)
   Set fc = f.Files
   FNum = 0 '清零
   For Each f1 In fc
      If InStr(f1.Name, "SLDDRW") > 0 Then
         FName(FNum) = f1.Name
         FNum = FNum + 1
      End If
   Next
End Sub
以上是宏文件，从网上找的。

作者: zhaowei0628 时间: 2008-10-10 18:15
不是有自带的Task Schedule吗？

作者: lzhlovelll 时间: 2008-10-10 18:16
网上有教程做宏，一步搞定。不过很容易出现比例不对的问题还是要去cad里核对下

作者: liunianq21q 时间: 2008-10-10 18:18
可以录制宏，然后设定一个按钮，点下就可以了，要想一次的话，加一个循环就好了，遍历所有的工程图

作者: 新迪 时间: 2008-10-10 18:19
工作排程器就是专门干这个的( ⊙ o ⊙ )啊！

作者: freezrc 时间: 2008-10-10 18:21
可以通过编程的方法，批量将sw工程图转成DWG图纸。如有需求，联系我。邮箱：sky_bigwang@163.com

作者: fxn22046 时间: 2008-10-10 18:22

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)