|
经典图书 我整理的..Solidworks快捷键.定义...简单定义,大大提高Solidworks的工作效率...
最后,定义结束,还有其它如宏设置...
PDF文件输出..DWG文件输出.等...
下面是一个.把文件输出为DWG格式的宏代码.大家可以把它存为宏文件.然后自行添加一个按钮
'''****************************************************************
'' Edit by SPYWAY @ 090909 update 091010
'' ****************************************************************
Dim swApp As Object
Dim Part As Object
Dim Filename$, dwgFileName$
Dim No%, Title$, sTime$, sUserDir$
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
On Error Resume Next
Filename = Part.GetPathName()
sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)
sTime = Format(Time, "hhmmss")
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) & "_" & sTime & ".DWG"
Part.SaveAs2 dwgFileName, 0, 1, 0
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
swApp.Frame.SetStatusBarText Filename & "is SAVED!"
End Sub
如果需要保存为PDF,红色的DWG改为PDF即可...
一番设置下来..大家可以利用Solidworks工具中的|""复制设定向导""|把自己的设置
全部保存下来随身带走.到需要用的地方..导入即可...
|
|