AnsweredAssumed Answered

Macro change global variable

Question asked by Willem Van Opstal on Jan 7, 2016
Latest reply on Jan 10, 2020 by Indu Naidu

Like • Show 0 Likes0
Comment • 13

Hi all,

I think it's really simple, but can't get it to work. Just stepped into the world of macro's.

I downloaded and edited a few examples and wish to make them work within my models. I now created a user form to change dimensions successfully.

What I can't get to work, is changing global variables. What line of codes do I have to insert?

For changing the dimensions I use a variable from the userform and the following line of code:

boolstatus=Part.Extension.SelectByID2("name@sketch@location","DIMENSION", xx,xx,xx....)

Part.Parameter("name@sketch").SystemValue = dblVariable

In this case, 'Part' is the active document.

Pretty simple and straightforward to me. Is there any simple line of code to change Global variables within the equations manager?

Thanks!

Deepak Gupta Jan 7, 2016 1:49 PM

Correct Answer

The codes I've posted above assume that you already have a global variable.

For e.g. add a variable A with any value and then run the codes. The value should change to 5.

Option Explicit
Sub main()
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr

    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
    Set swEquationMgr = Part.GetEquationMgr
    swEquationMgr.SetEquationAndConfigurationOption 0, """A"" = 5", swAllConfiguration, Empty
End Sub

See the reply in context

No one else had this question

Outcomes

13 Replies

Paul Churm Jan 7, 2016 11:26 AM
Mark Correct
Correct Answer
Hi Willem,

You can use an example like this to itterate over all the Global Variables you have.

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swEqnMgr                As SldWorks.EquationMgr
    Dim i                       As Long
    Dim nCount                  As Long
    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swEqnMgr = swModel.GetEquationMgr

    Debug.Print "File = " & swModel.GetPathName
    Debug.Print " Status = " & swEqnMgr.Status

    nCount = swEqnMgr.GetCount

    For i = 0 To nCount - 1

        Debug.Print " Eqn(" & i & ") = " & swEqnMgr.Equation(i)
        Debug.Print "    Value = " & swEqnMgr.Value(i)
        Debug.Print "    Supp   = " & swEqnMgr.Suppression(i)

    Next i

End Sub

Hope this helps to get you started.

Paul
Like • Show 0 Likes0
Actions
Deepak Gupta Jan 7, 2016 12:04 PM
Mark Correct
Correct Answer
Try these codes

Option Explicit
Sub main()
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr

    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
    Set swEquationMgr = Part.GetEquationMgr
    'swEquationMgr.SetEquationAndConfigurationOption 0, """Global Variable Name here"" = Required value", swAllConfiguration, Empty
    swEquationMgr.SetEquationAndConfigurationOption 0, """A"" = 5", swAllConfiguration, Empty
End Sub
Like • Show 0 Likes0
Actions
- Willem Van Opstal @ Deepak Gupta on Jan 7, 2016 12:54 PM
  Mark Correct
  Correct Answer
  Seems to work, thanks!
  But... It won't accept my variable as an input instead of the '5'. The variable comes from an inputform (check my other problem )
  Like • Show 0 Likes0
  Actions
  - Scott Stuart @ Willem Van Opstal on Jan 7, 2016 4:31 PM
    Mark Correct
    Correct Answer
    The return from the inputform will be a string. You probably need to cast that to a double with something like
    dblVariable = Cdbl(input)
    Like • Show 0 Likes0
    Actions
- Willem Van Opstal @ Deepak Gupta on Jan 7, 2016 1:32 PM
  Mark Correct
  Correct Answer
  OK, I'm sorry for the last reply.
  It seems not to work as I like.... First time I run the macro at a freshly opened model, it generates a NEW global variable. Second time I'll run the macro, It deletes the created one. Third and all times after that, it does nothing...
  This is with a fixed number for the value...
  Like • Show 0 Likes0
  Actions
  - Deepak Gupta @ Willem Van Opstal on Jan 7, 2016 1:49 PM
    Unmark Correct
    Correct Answer
    The codes I've posted above assume that you already have a global variable.
    
    For e.g. add a variable A with any value and then run the codes. The value should change to 5.
    
    Option Explicit
    Sub main()
        Dim SwApp           As SldWorks.SldWorks
        Dim Part            As SldWorks.ModelDoc2
        Dim swEquationMgr   As SldWorks.EquationMgr
    
        Set SwApp = Application.SldWorks
        Set Part = SwApp.ActiveDoc
        Set swEquationMgr = Part.GetEquationMgr
        swEquationMgr.SetEquationAndConfigurationOption 0, """A"" = 5", swAllConfiguration, Empty
    End Sub
    Like • Show 0 Likes0
    Actions
    - Willem Van Opstal @ Deepak Gupta on Jan 7, 2016 2:30 PM
      Mark Correct
      Correct Answer
      Did this for an existing variable, but it just creates another one (with exactly the same name!).
      I can't figure out why, because when I'd like to add a new global variable with exactly the same name by hand, SW gives me a warning that the new one would override the existing...
      I'll try and try, thanks for the help!
      btw, I store my variable as 'dblRatio' using the CDbl(textfield) commands.
      Like • Show 0 Likes0
      Actions
      - Deepak Gupta @ Willem Van Opstal on Jan 8, 2016 6:46 AM
        Mark Correct
        Correct Answer
        It was working fine for me last night when I posted it up and now it is not working for me also
        Like • Show 0 Likes0
        Actions
        Willem Van Opstal @ Deepak Gupta on Jan 8, 2016 7:31 AM
        Mark Correct
        Correct Answer
        Thanks for all the help, I worked a bit around it. It's working fine when I let it create a new variable and modify that one.
        
        Only thing isn't working yet is the variable from the inputform.. With fixed numbers it's working fine.
        
        On button click;
        dblRatio = CDbl(txtRatio.Text / 100)
        swEquationMgr.SetEquationAndConfigurationOption 4, """Ratio"" = dblRatio", swAllConfiguration, Empty
        Like • Show 0 Likes0
        Actions
    - Willem Van Opstal @ Deepak Gupta on Jan 8, 2016 7:31 AM
      Mark Correct
      Correct Answer
      Experimented some with the given macro. It works fine when I create a new global variable, when I change the value the globalvariable changes also.
      But when I use the name of an existing variable, it creates another one, deletes it, and does nothing after that.
      
      Any suggestions?
      Like • Show 0 Likes0
      Actions
      - Indu Naidu @ Willem Van Opstal on Dec 4, 2019 5:09 AM
        Mark Correct
        Correct Answer
        Those still looking for a solution to this (specifically if your are using a variable)
        
        dblRatio = CDbl(txtRatio.Text / 100)
        swEquationMgr.SetEquationAndConfigurationOption 4, """Ratio"" = " + CStr(dblRatio), swAllConfiguration, Empty
        
        ........................................................................................................................................................................................
        
        Points to note:
        1) Its imperative that we convert the variable from double to string and concatenate with rest of the equation string.
        2) CStr is not required for variable which are already of type string.
        Like • Show 0 Likes0
        Actions
Jose Maria Guerrero Jan 5, 2020 12:47 PM
Mark Correct
Correct Answer
I am trying to change a global vble too. My code dont work. I want to change a global vble what I know the name and change the value. I search the vble in the EquarionMgr and after when I know the index change it for a value that I write . Any help please?
Thanks. Sorry for my english
Attachments
- CHANGE_GLOBAL_VBLE.txt.zip1.1 KB
Like • Show 0 Likes0
Actions
- Indu Naidu @ Jose Maria Guerrero on Jan 10, 2020 5:48 AM
  Mark Correct
  Correct Answer
  Hope you are doing index-1 in your code
  
  Also, make sure that you are in Ordered View (select from top left in equation manager screen).
  
  If still in doubt, export the equations as txt file and check the index there.
  
  I had many many issues with equations but it all comes down to using the right index!!!!
  Like • Show 0 Likes0
  Actions

Incoming Links

Modify A Global Variable Value (C#)

Macro change global variable

Outcomes

Attachments

Related Content

Recommended Content

Incoming Links