Your Products have been synced, click here to refresh
Sub NextRandom 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 ("RND") Dim I As Object If Not Var Is Nothing Then Var.DoubleValue = RND(1) Part.SetVariableValue "RND", Var MsgBox "RND is now: " & Var.DoubleValue Else MsgBox "Could Not find variable" End If End Sub Sub InitRandom RANDOMIZE Call NextRandom End Sub Sub Main Call NextRandom End Sub
Sub NextRandom 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 ("RND") Dim I As Object If Not Var Is Nothing Then Var.DoubleValue = RND(1) Part.SetVariableValue "RND", Var MsgBox "RND is now: " & Var.DoubleValue Else MsgBox "Could Not find variable" End If End Sub Sub InitRandom RANDOMIZE Call NextRandom End Sub Sub Main Call NextRandom End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |