solidworks宏：工程图状态时同时保存当前图纸的PDF/DWG/STEP

flooding

   经典图书

下来学习学习

SW初学00

楼主很专业，写得很好！

rwh88888

   经典图书

从哪里来的，没有文件下载

kuzi1314

感谢感谢，我大号没了，小号过来

kuzi1314

   经典案例图书

有些楼层下载链接没了，能重发一下吗？

wangyapeng

hezupeng 发表于 2020-6-22 18:03
可以的，在装配体里点选零件后（该零件必须处于还原状态），可以直接保存该零件的step/pdf/dwg文件，并且是 ...

学习学习学习学习学习学习学习学习学习学习

wangyapeng

   经典案例图书

没有找到文件没有找到文件没有找到文件没有找到文件没有找到文件

wangyapeng

您好！小哥哥可以再分享一下嘛

jiangzhibao606

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

jiangzhibao606

   经典图书

SolidWorks机械工程师网，顶一下。

氕氘氚

感谢楼主分享，很不错！

氕氘氚

找不到啊楼主

lystar

这个不知道能不能用于批量执行

dyb9166

可以研究研究路径可选择！我这个有路径可选择，，但是没有转stepDim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim path As String




Sub main()



Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.BrowseForFolder(0, "请选择文件夹", 201, 17)

        If objFolder Is Nothing Then

            MsgBox "请选择一个有效路径!!"

        ElseIf Dir(objFolder.self.path, 16) = "" Then

            MsgBox "请选择一个有效路径!!"
             Debug.Print objFolder.self.path

        Else

            path = objFolder.self.path
            Set objFolder = Nothing
            Set objShell = Nothing

        End If


Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

'转换PDF

On Error Resume Next

'FileName = Part.GetPathName()



FileName = Part.GetTitle()

FileName = Left(FileName, InStrRev(FileName, "-") - 2)
FileName = path & "\" & FileName
'FileName = path & FileName

Debug.Print ("fileName: " & FileName)


sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

'dwgFileName = Left(FileName, No - 7) & ".PDF"
dwgFileName = FileName & ".PDF"

Part.SaveAs2 dwgFileName, 0, 1, 0

Title = Part.GetTitle

Set Part = swApp.ActiveDoc
'

On Error Resume Next

'FileName = Part.GetPathName()

sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

'dwgFileName = Left(FileName, No - 7) & ".DWG"
dwgFileName = FileName & ".DWG"

Part.SaveAs2 dwgFileName, 0, 1, 0
'转换后关闭图纸

'Title = Part.GetTitle

'Set Part = Nothing

'swApp.CloseDoc Title

X = MsgBox(" 已转成 : " & Title & ".PDF/DWG", 0)

End Sub

rex2023

加入QQ群
参与讨论和学习

或扫描二维码加入

   经典案例图书

功能挺多的，用了宏就越来越想用，工具越整越多。solidworks网，必须顶一下

trakinas2

   经典案例图书

谢谢分享，支持一下

海上的兵

加入QQ群
参与讨论和学习

或扫描二维码加入

楼主太有才了，膜拜中……

海上的兵

   经典案例图书

成功了，楼主🐂牛

沉默的人

感谢楼主分享，很不错！

憨八哥

学习了