Basic Script SERIAL_NUM.bas

Trying out 2015.
I found out Basic Script file SERIAL_NUM.BAS will not work.
Has anyone updated this file to work with 2015?

Parents

david phillips over 8 years ago

Running V2015.1 Here's the Basic Script file I've used since 2005

Dim App As Object
Dim Part As Object
Sub main
Set App = CreateObject("PCDLRN.Application")
Set Part = App.ActivePartProgram
SerNum = InputBox("Please enter in the serial number for this part")
Part.SerialNumber = SerNum
STATCOUNT = SerNum
End Sub

this code Places the serial # in the Serial # Header field

Reply

david phillips over 8 years ago

Running V2015.1 Here's the Basic Script file I've used since 2005

Dim App As Object
Dim Part As Object
Sub main
Set App = CreateObject("PCDLRN.Application")
Set Part = App.ActivePartProgram
SerNum = InputBox("Please enter in the serial number for this part")
Part.SerialNumber = SerNum
STATCOUNT = SerNum
End Sub

this code Places the serial # in the Serial # Header field

Children

No Data