另存为PDF和DWG宏

handler · 发表于 2013-12-22 12:59:08

经典图书

可以制作一个快捷键，一键转换为其他格式。对工程图转换为其他格式很有作用。

goodsword · 发表于 2013-12-22 12:59:42

不带这么玩的
我的邮箱都没有改然后这个宏不是存PDF和dwg的这个是输出草图尺寸的

czfngfu · 发表于 2013-12-22 12:59:53

经典图书

不带这么玩的
我的邮箱都没有改然后这个宏不是存PDF和dwg的这个是输出草图尺寸的

hgngolf · 发表于 2013-12-22 13:10:06

支持楼主分享资料，学习~~

迗徔骄孒 · 发表于 2013-12-22 13:14:54

经典案例图书

怎么用呢？？似乎宏程序出错啊

rjcuxugjme · 发表于 2013-12-22 13:18:28

先打开一个工程图

zaqzaq · 发表于 2013-12-22 13:18:52

经典案例图书

很有用！楼主有宏的学习资料吗？求分享

TigerLai · 发表于 2013-12-22 13:21:00

宏的执行也是需要一定的先决条件的，

Trouble12138 · 发表于 2018-12-1 21:37:37

没看到文件啊

ryouss · 发表于 2018-12-4 16:11:33

经典图书

Trouble12138 发表于 2018-12-1 21:37
没看到文件啊

參考

'
' 工程圖(SLDDRW)批量另存為PDF及DWG文件
'
' 測試版 2012 SP4 2018/12/4
'
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc
Dim Part As Object
Dim sFileName As String
Dim path As String
Dim Name_ As String
Dim nErrors As Long
Dim nWarnings As Long
Dim longstatus As Long
Sub Main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
aa:
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test\ '' )", "Parts path location") '鍵入處理文件之路徑
sFileName = Dir(path & "*.slddrw") '取出檔名 *.slddrw
n = 0
Do Until sFileName = ""
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings) '開檔
n = n + 1
' 另存成 DWG 及 PDF 檔~~~~~~~~~~~~~
Name_ = Left(sFileName, Len(sFileName) - 7) '取出目前檔案的名稱(不含副檔名)
For i = 1 To 2
If i = 1 Then
X_Path_Name = path & Name_ & ".DWG"
Else
X_Path_Name = path & Name_ & ".PDF"
End If
'Debug.Print "File name: " & X_Path_Name
Set Part = swApp.ActiveDoc
longstatus = Part.SaveAs3(X_Path_Name, 0, 0) '儲存 DWG,PDF之文件
Next
swApp.CloseDoc swModel.GetTitle '關檔
Set swModel = Nothing
sFileName = Dir '同路徑取出下個檔名
Loop
Response = MsgBox("Press ''Yes'' key to continue ,Press ''No'' key to end.This path changes the Drawings Number= " & n, vbYesNo, "~~ Continue or End ~~")
If Response = vbYes Then GoTo aa ' 若使用者按下 [是] 就再循環處理另個路徑的工程圖。
End Sub

复制代码

hdgd501 · 发表于 2018-12-18 22:08:07

楼上的很专业，写得很好！

xiaoyu5you · 发表于 2019-2-14 09:44:40

楼上的很专业，写得很好！

xiaoyu5you · 发表于 2019-2-14 09:50:02

我也想看一下，楼主发上来吧

jun.lou · 发表于 2019-2-19 10:31:35

楼上的很专业

yni621 · 发表于 2020-6-16 10:33:04

加入QQ群
参与讨论和学习

或扫描二维码加入

SW机械工程师网，找到组织了！

房海涛520 · 发表于 2020-7-25 15:09:24

经典案例图书

感谢楼主分享，很不错

yangbosnihc · 发表于 2021-1-2 13:57:53

加入QQ群
参与讨论和学习

或扫描二维码加入

试试，看好不好用

		自动登录	找回密码
密码			立即注册