1.SOLIDWORKS程序没有打开任何文档，运行宏后，无任何反应。
2.当前文档为零件，运行宏后，如果有工程图，则打开并且前置；没有，则提醒。
3.当前文档为装配体，没有选择任何，运行宏后，如果装配体有工程图，则打开并且前置；没有，则提醒。
4.当前文档为装配体，选择子部件，运行宏后，如果子部件有工程图，则打开并且前置；没有，则提醒。
5.当前文档为工程图，没有选择任何，运行宏后，打开3D并且前置。
6.当前文档为工程图，选择图纸，运行宏后，打开3D并且前置。
7.当前文档为工程图，选择视图并且没有选择其他实体，运行宏后，打开视图的3D并且前置。
8.当前文档为工程图，选择视图并且选择子部件实体，运行宏后，如果子部件有工程图，则打开子部件的工程图并且前置；如果子部件没有工程图，则打开子部件3D并且前置。
9.当前文档为工程图，选择视图并且选择视图注解，运行宏后，无任何反应。
10.当前文档为工程图，选择注解，运行宏后，无任何反应。
11.当前文档为工程图，选择子部件，运行宏后，如果子部件有工程图，则打开子部件的工程图并且前置；如果子部件没有工程图，则打开子部件3D并且前置。
12.总则，优先打开工程图，如果已被打开且前置，则打开3D并且前置。在零件和装配体中，没有工程图则提醒。并且装配体中，选择子部件，有工程图则打开，没有则提醒。在装配体的工程图中，选择子部件，子部件有工程图则打开并且前置，没有则打开子部件。
说明：
1.需要打开一个零件文档，或者装配体，或者工程图
2.如果想打开子部件的，需要选择子部件。
部分代码：
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swComp As SldWorks.Component2
Dim swDrawComp As SldWorks.DrawingComponent
Dim swSelectMgr As SldWorks.SelectionMgr
Dim swFace As SldWorks.Face2
Dim swEntity As SldWorks.Entity
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim swView As SldWorks.View
Dim swModelType As Integer
Dim swMouse As SldWorks.Mouse
Dim X As Double
Dim Y As Double
Dim Z As Double
Dim value As Boolean
Dim vPickPt As Variant
Dim path As String
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then Exit Sub '防止未打开文件时，运行宏出错
path = swModel.GetPathName
If path = "" Then Exit Sub '防止零件未保存时，运行宏出错
path = Left(path, Len(path) - 6) & "SLDDRW"
If Dir(path) = "" Then
MsgBox "你还没有出工程图哦。", vbMsgBoxSetForeground, "Solidworks未出图警告"
End
End If
swModel.ClearSelection2 True
Set swModel = swApp.OpenDoc6(path, 3, 0, "", longstatus, longwarnings)
Set swModel = swApp.ActivateDoc3(swModel.GetTitle, False, 0, longwarnings)
End Sub