Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set SelMgr = Model2.SelectionManager
Count = SelMgr.GetSelectedObjectCount
If Count <> 1 Then
swApp.SendMsgToUser "PLEASE SELECT ONE VIEW."
Exit Sub
End If
Dim configname As String
Set selview = SelMgr.GetSelectedObject5(1)
configname = selview.ReferencedConfiguration
viewpath = selview.GetReferencedModelName
If (LCase(Right(viewpath, 3)) = "prt") Then
swtype = swDocPART
Else
swtype = swDocASSEMBLY
End If
Set Part = swApp.OpenDoc6(viewpath, swtype, 0, configname, e, w)
partitle = Part.GetTitle
Part.ShowConfiguration2 (configname)
retval = Part.Save3(swOpenDocOptions_Silent, e, w)
swApp.CloseDoc partitle
Model2.EditRebuild3
Set Part = Nothing