AnsweredAssumed Answered

Power sign (^) and 'continue' in loops

Question asked by Peter Brinkhuis on Nov 25, 2015
Latest reply on Nov 28, 2015 by Peter Brinkhuis

Like • Show 0 Likes0
Comment • 14

Hi guys,

I'm trying to do the simplest thing, and it seems like Solidworks doesn't support it even though VBA does.

Sub main()
Dim swApp As Object
Set swApp = Application.SldWorks

Dim i As Double
i= i^ 2

End Sub

This line gives me a syntax error because of the power symbol. I've seen the Microsoft VBA documentation and it's supported of course, it's even in the Solidworks help. The only problem is that it doesn't work. Any ideas? The above is a simplification, my actual line of code is lDblScaleLeft = lArrScaleFactors(j+1)*10^i

My second question is regarding using 'continue' in do while and while loops. It seems that it is not supported, even when I follow the guidelines. The little bit of code should go straight from 5 to 9, but again I get a syntax error, now on the continue line.

Sub main()
Dim swApp As Object
Set swApp = Application.SldWorks

Dim i As Integer
i = 0
Do While i < 10
    MsgBox ( i)
    If i = 5 Then
        i = 9
        continue do
    End If
    i = i + 1
Loop
End Sub

Some documentation on the Do loop by microsoft here.

What am I doing wrong?

Peter Brinkhuis Nov 26, 2015 3:42 AM

Correct Answer

When I type

Debug.Print 2^2

it automatically replaces it with

Debug.Print 2^; 2

The output to the immediate window is

2 2

But when I type:

Debug.Print 2 ^ 2

Debug.Print i ^ 2

Debug.Print 2 ^ i

It works Seems that the extra space is required. And when you read the MSDN link from Roland (which I already went through yesterday) very literally, you might notice the extra space.

And regarding the do while/ continue do topic, I've read the links below. I would like to go to the next iteration of the loop immediately.

https://msdn.microsoft.com/en-us/library/eked04a7.aspx

https://msdn.microsoft.com/en-us/library/801hyx6f.aspx

After writing the line "continue do" I get the message "Compile error: expected: expression".

See the reply in context

No one else had this question

Outcomes

Ivana Kolin Nov 25, 2015 6:51 PM

continue is .NET syntax.

can you try this?

debug.print 2^2

Actions

Peter Brinkhuis @ Ivana Kolin on Nov 26, 2015 3:42 AM

When I type

Debug.Print 2^2

it automatically replaces it with

Debug.Print 2^; 2

The output to the immediate window is

2 2

But when I type:

Debug.Print 2 ^ 2

Debug.Print i ^ 2

Debug.Print 2 ^ i

It works Seems that the extra space is required. And when you read the MSDN link from Roland (which I already went through yesterday) very literally, you might notice the extra space.

And regarding the do while/ continue do topic, I've read the links below. I would like to go to the next iteration of the loop immediately.

https://msdn.microsoft.com/en-us/library/eked04a7.aspx

https://msdn.microsoft.com/en-us/library/801hyx6f.aspx

After writing the line "continue do" I get the message "Compile error: expected: expression".

Actions

Ivana Kolin @ Peter Brinkhuis on Nov 26, 2015 4:37 AM


Sub main()
Dim swApp As Object
Set swApp = Application.SldWorks


Dim i As Integer
i = 0
Do While i < 10
    MsgBox (i)
    If i = 5 Then
        i = 9
        GoTo continue
    End If
    i = i + 1
continue:
Loop
End Sub

Actions

Peter Brinkhuis @ Ivana Kolin on Nov 26, 2015 4:01 PM

This works, so thanks But is it according to the MSDN documentation? I'm trying to figure out how to follow those instructions, get my code running and find out if it is just another quirk of Solidworks or not. If I follow Microsoft's documentation, the line "Dim i As Integer = 6" would also work, which it doesn't.

Actions

Ivana Kolin @ Peter Brinkhuis on Nov 26, 2015 4:41 PM

dim i as integer = 6

loop and continue is VB.NET and not vba.

VBA - macro is more like VB6

VB.NET : Difference between VB.NET and VBA

Actions

Peter Brinkhuis @ Ivana Kolin on Nov 27, 2015 5:32 AM

Thanks, I'm sure that's the case. Too bad I couldn't find that out from the Microsoft documentation.

Actions

Roland Schwarz @ Peter Brinkhuis on Nov 27, 2015 2:05 PM

Ordinarily I would give someone grief for marking their own answer correct. In this case, it seems you did indeed solve your own problem (at least in the final steps).

Actions

Peter Brinkhuis @ Roland Schwarz on Nov 28, 2015 4:27 AM

Haha yeah I know, I thought about that before choosing the answer. Hope my findings help other people as well.

Actions

Roland Schwarz Nov 25, 2015 7:52 PM

In the first program, i is never assigned a value (default i=0?)

Actions

Subhra Maiti Nov 26, 2015 6:27 AM

It seems interesting i^2 doesn't work and I don't know why?

But there is a solution, if you have excel installed. Then you bypass the problem by using WorksheetFunction.power(x, y)

Here is the code for you.

Option Explicit

Dim xlApp As Object

Dim swApp As Object

Sub main()

Set swApp = Application.SldWorks

Set xlApp = CreateObject("Excel.Application")

Dim a As Double

a = xlApp.WorksheetFunction.power(2, 3)

MsgBox (a)

End Sub

Actions

Ian Worrall @ Subhra Maiti on Nov 26, 2015 6:53 AM

I wonder if instead of i^2, you could use i*i (as that's all squaring something is)?

Actions

Peter Brinkhuis @ Ian Worrall on Nov 26, 2015 7:20 AM

I'm sure multiplying multiple times would work. In my case it was a little harder to do because I wanted to do 10^i.

Subhra, thanks for you workaround. But as said in my previous post, it works in Solidworks when you add spaces between the symbols, so "i ^ 2" will work.

Actions

Subhra Maiti @ Peter Brinkhuis on Nov 26, 2015 11:05 AM

Peter Brinkhuis Please marked it as resolved.

Actions

14 Replies

Ivana Kolin Nov 25, 2015 6:51 PM
Mark Correct
Correct Answer
continue is .NET syntax.

can you try this?
debug.print 2^2
Like • Show 0 Likes0
Actions
- Peter Brinkhuis @ Ivana Kolin on Nov 26, 2015 3:42 AM
  Unmark Correct
  Correct Answer
  When I type
  
  Debug.Print 2^2
  
  it automatically replaces it with
  
  Debug.Print 2^; 2
  
  The output to the immediate window is
  
  2 2
  
  But when I type:
  
  Debug.Print 2 ^ 2
  Debug.Print i ^ 2
  Debug.Print 2 ^ i
  
  It works Seems that the extra space is required. And when you read the MSDN link from Roland (which I already went through yesterday) very literally, you might notice the extra space.
  
  And regarding the do while/ continue do topic, I've read the links below. I would like to go to the next iteration of the loop immediately.
  
  https://msdn.microsoft.com/en-us/library/eked04a7.aspx
  https://msdn.microsoft.com/en-us/library/801hyx6f.aspx
  
  After writing the line "continue do" I get the message "Compile error: expected: expression".
  Like • Show 1 Like1
  Actions
  - Ivana Kolin @ Peter Brinkhuis on Nov 26, 2015 4:37 AM
    Mark Correct
    Correct Answer
    Sub main() Dim swApp As Object Set swApp = Application.SldWorks Dim i As Integer i = 0 Do While i < 10 MsgBox (i) If i = 5 Then i = 9 GoTo continue End If i = i + 1 continue: Loop End Sub
    Like • Show 1 Like1
    Actions
    - Peter Brinkhuis @ Ivana Kolin on Nov 26, 2015 4:01 PM
      Mark Correct
      Correct Answer
      This works, so thanks But is it according to the MSDN documentation? I'm trying to figure out how to follow those instructions, get my code running and find out if it is just another quirk of Solidworks or not. If I follow Microsoft's documentation, the line "Dim i As Integer = 6" would also work, which it doesn't.
      Like • Show 0 Likes0
      Actions
      - Ivana Kolin @ Peter Brinkhuis on Nov 26, 2015 4:41 PM
        Mark Correct
        Correct Answer
        dim i as integer = 6
        loop and continue is VB.NET and not vba.
        VBA - macro is more like VB6
        
        VB.NET : Difference between VB.NET and VBA
        Like • Show 0 Likes0
        Actions
        Peter Brinkhuis @ Ivana Kolin on Nov 27, 2015 5:32 AM
        Mark Correct
        Correct Answer
        Thanks, I'm sure that's the case. Too bad I couldn't find that out from the Microsoft documentation.
        Like • Show 0 Likes0
        Actions
  - Roland Schwarz @ Peter Brinkhuis on Nov 27, 2015 2:05 PM
    Mark Correct
    Correct Answer
    Ordinarily I would give someone grief for marking their own answer correct. In this case, it seems you did indeed solve your own problem (at least in the final steps).
    Like • Show 0 Likes0
    Actions
    - Peter Brinkhuis @ Roland Schwarz on Nov 28, 2015 4:27 AM
      Mark Correct
      Correct Answer
      Haha yeah I know, I thought about that before choosing the answer. Hope my findings help other people as well.
      Like • Show 0 Likes0
      Actions
Roland Schwarz Nov 25, 2015 7:52 PM
Mark Correct
Correct Answer
In the first program, i is never assigned a value (default i=0?)
Like • Show 0 Likes0
Actions
Roland Schwarz Nov 25, 2015 7:54 PM
Mark Correct
Correct Answer
https://msdn.microsoft.com/en-us/library/zh100ckf.aspx
Like • Show 0 Likes0
Actions
Subhra Maiti Nov 26, 2015 6:27 AM
Mark Correct
Correct Answer
It seems interesting i^2 doesn't work and I don't know why?
But there is a solution, if you have excel installed. Then you bypass the problem by using WorksheetFunction.power(x, y)

Here is the code for you.

Option Explicit
Dim xlApp As Object
Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Set xlApp = CreateObject("Excel.Application")
Dim a As Double
a = xlApp.WorksheetFunction.power(2, 3)
MsgBox (a)
End Sub
Like • Show 1 Like1
Actions
- Ian Worrall @ Subhra Maiti on Nov 26, 2015 6:53 AM
  Mark Correct
  Correct Answer
  I wonder if instead of i^2, you could use i*i (as that's all squaring something is)?
  Like • Show 0 Likes0
  Actions
  - Peter Brinkhuis @ Ian Worrall on Nov 26, 2015 7:20 AM
    Mark Correct
    Correct Answer
    I'm sure multiplying multiple times would work. In my case it was a little harder to do because I wanted to do 10^i.
    
    Subhra, thanks for you workaround. But as said in my previous post, it works in Solidworks when you add spaces between the symbols, so "i ^ 2" will work.
    Like • Show 0 Likes0
    Actions
    - Subhra Maiti @ Peter Brinkhuis on Nov 26, 2015 11:05 AM
      Mark Correct
      Correct Answer
      Peter Brinkhuis Please marked it as resolved.
      Like • Show 0 Likes0
      Actions

Power sign (^) and 'continue' in loops

Outcomes

Related Content

Recommended Content