标题: 谁有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)
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