最后,定义结束,还有其它如宏设置...
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工具中的|""复制设定向导""|把自己的设置 全部保存下来随身带走.到需要用的地方..导入即可...
简单提几个 能用英文缩写的尽量用 。如extrude 快键 E 拉伸；旋转R revolve, 倒圆角 FILLET 。 等等。 还有想L K 等离得远的键也没必要设置，不实用。