AnsweredAssumed Answered

Help with Compile error '=' expected

Question asked by Clint Clark on Mar 22, 2017
Latest reply on Mar 22, 2017 by Clint Clark

I am new to Solidworks and I am trying to automate some drawing tasks.

Can someone please tell me why the following code won't compile? The error is Expected '=' at the bold line.


' *****************************************************************************

Dim swApp As Object



Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long



Sub main()



Dim swDraw As SldWorks.DrawingDoc

Dim myModelView As Object

Dim vwView As SldWorks.View

Dim swDispDim                   As SldWorks.DisplayDimension

Dim swDim                       As SldWorks.Dimension

Dim swAnn                       As SldWorks.Annotation

Dim iDimsCount                  As Integer


Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set swDraw = Part

Set swView = Part.GetFirstView


iDimsCount = 1


Do While Not swView Is Nothing

    Set swDispDim = swView.GetFirstDisplayDimension5


    Dim sViewName As String


    'sViewName = swView.GetName()


    Do While Not swDispDim Is Nothing

        Dim sDim As String


        sDim = swDispDim.GetText(swDimensionTextAll)

        sDim = swDispDim.GetText(swDimensionTextPrefix)

        sDim = "<C#-" & iDimsCount & ">" & sDim

        swDispDim.SetText(swDimensionsPrefix, sDim)


        'Set swAnn = swDispDim.GetAnnotation

        'Set swDim = swDispDim.GetDimension


        'iResult = MsgBox(swDim.Value & ":" & swAnn.GetStyleName, vbOKOnly, "Dim box")


        iDimsCount = iDimsCount + 1

        Set swDispDim = swDispDim.GetNext3   



     Set swView = swView.GetNextView



iResult = MsgBox(iDimsCount - 1, vbOKOnly, "Total Dims Found")

'Set myModelView = Part.ActiveView

'myModelView.FrameState = swWindowState_e.swWindowMaximized


End Sub