hexagon logo
Register Sign in
  • Replies 5 replies
  • Subscribers 31 subscribers
  • Views 113 views
  • Users 0 members are here
Options
Related

Use variables on a bas

jcasas
I'm new at VB programming inside PCDMIS. The first thing I'm trying to do is to get a variable from the part program and use it inside the script. What I've done is to follow the example wich comes in the pcdmis basic help file:

Inside the part program:

C1=COMMENT/INPUT,Please type an integer value.
ASSIGN/V1 = INT(C1.INPUT)
COMMENT/OPER,BEFORE SCRIPT: Variable is: ,V1
CS1=SCRIPT/FILENAME= D:\PROGRAM FILES\PCDMIS35\TEST2.BAS
FUNCTION/Main,,
STARTSCRIPT/
ENDSCRIPT/

and the script is the following:

Sub Main
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Var As Object
Set Var = Part.GetVariableValue ("V1")
Dim I As Object
If Not Var Is Nothing Then
Var.LongValue = Var.LongValue + 1
Part.SetVariableValue "V1", Var
MsgBox "V1 is now: " & Var
Else
Msgbox "Could Not find variable"
End If
End Sub


the problem is that when I run the program, or the script from inside the basic editor, i get this error

OLE Automation object does not have a default value

Could anyone hep me
  • C1=COMMENT/INPUT,Please type an integer value.
ASSIGN/V1 = INT(C1.INPUT)
COMMENT/OPER,BEFORE SCRIPT: Variable is: ,V1
CS1=SCRIPT/FILENAME= D:\PROGRAM FILES\PCDMIS35\TEST2.BAS
FUNCTION/Main,[COLOR="Red"]ARG1=V1[/COLOR],,
STARTSCRIPT/
ENDSCRIPT/


    Sub Main(VarV1 as string)
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
MsgBox "V1 is now: " & VarV1
End Sub
  • I've been able to get the variable from the program to the script, that's OK. But now, how to write variables from the script to the program??

    I've made this

    Sub Main(var As Integer)
    Dim App As Object
    Set App = CreateObject ("PCDLRN.Application")
    Dim Part As Object
    Set Part = App.ActivePartProgram
    var = var +10
    Part.SetVariableValue "V1", Var

    End Sub

    But I get a "type mismatch" error

    In the help there's something like this
    The GetVariableValue and SetVariableValue methods only change a variable's value during the script's execution. If you want to permanently change a value of a variable inside PC-DMIS, you should use the PutText method instead.

    what does this mean?
    I only want to open an operator comment showing me the new value of V1

    Thank youSlight smile
  • I posted this earlier but thought after I saw Jan's post that I misunderstood you need.
    I wouldnt use the function(I dont think it returns the values, but not sure). There was something in another thread about global variables and maybe that is what you are missing.

    But here is what I originally posted after your question: 
    Option Explicit
    Dim CommandLineInput As String
    Dim CommandLineParsed() As String
    
    Dim VariableName As String

Sub SaveData(Response As String)
    VariableName = "DROPLIST"
    Dim PCDMIS As Object
    Set PCDMIS = CreateObject("PCDLRN.Application")
    
    Dim Part As Object
    Set Part = PCDMIS.ActivePartProgram
    
    Dim objListVar As Object
    Set objListVar = Part.GetVariableValue(VariableName)  'where VariableName is a PCDMIS part program variable
    
    'MsgBox "PCDMIS Variable: " & objListVar.StringValue
    
    objListVar.StringValue = Response
    Part.SetVariableValue VariableName, objListVar   'this sets the variable in the part program to the value of Response
    'Part.RefreshPart
    
  
End Sub
  • Dim Var As Object
    Set Var=Part.GetVariableValue("V1")
    Var.StringValue=Part.VarV1
    Part.SetVariableValue"V1",Var

    Or, just in case V1 is indeed a number:

    Dim Var As Object
    Set Var=Part.GetVariableValue("V1")
    Var.DoubleValue=VarV1
    Part.SetVariableValue"V1",Var

  • But I get a "type mismatch" error



    V1 in your PC-DMIS program is a STRING not a INTEGER. So a string is passed on to the VB Script.

    When you get an error, does it say in which line the error was produced? If it is in line 1, you know that V1 was NOT an INTEGER.
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement