Solidworks宏程序：一键切换2D/3D图纸的高效方法

一键切换2D、3D功能描述：

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

全度代码  

https://item.taobao.com/item.htm?ft=t&id=677530595534

SolidWorks 一键切换2D、3D宏程序 一键切换图纸