Refresh view palette

Hi Deepak and Thanks

It work great!

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

Dim swApp As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim strFileName As String

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

Set swView = swDraw.GetFirstView

Set swView = swView.GetNextView

strFileName = swView.GetReferencedModelName

boolstatus = swDraw.GenerateViewPaletteViews(strFileName)

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''