Getting started in VB for your PC DMIS

Jeffman,

Here is some code that I've used to extract data from a scan and write to a file -

***************************
Dim mode As Integer

Private Sub Form_Load()

Command1.Caption = "Process"
mode = 0

End Sub


Private Sub Command1_Click()


MsgBox "The mode is " & Str(mode)

Select Case mode

Case 0
process_file
Case 1
End
Case 2
End

End Select


End Sub


Private Sub process_file()

'Public Sub main(ScanID As String)

Dim app As PCDLRN.Application
Dim cmds As PCDLRN.Commands
Dim cmd As PCDLRN.Command
Dim ScanCmd As PCDLRN.Command
Dim part As PCDLRN.PartProgram, ScanHits As PCDLRN.FeatCmd
Dim hit As PCDLRN.PointData, vec As PCDLRN.PointData
Dim NoScanYet As Boolean
Dim nh As String
Dim HitX As Double, HitY As Double, HitZ As Double
Dim HitI As Double, HitJ As Double, HitK As Double
Dim i As Integer, TotalCmds As Integer, CurrentCmd As Integer


Command1.Caption = "Cancel"
mode = 1

NoScanYet = True
ScanID = "SCN1"

' Get the App, Partprogram and Commands
Set app = CreateObject("PCDLRN.Application")
Set part = app.ActivePartProgram
Set cmds = part.Commands

' Get the Scan from the part program
TotalCmds = cmds.Count
CurrentCmd = 0
BaseText = "Processing Command # "
EndText = "/" & Str(TotalCmds)
For Each cmd In cmds
CurrentCmd = CurrentCmd + 1
If cmd.ID = ScanID And NoScanYet = True Then
NoScanYet = False
cmd.Next
Set ScanCmd = cmd
Set ScanHits = cmd.FeatureCommand
Label1.Caption = "Found " & ScanID & " as command # " & Str(CurrentCmd)
Exit For
Else
Label1.Caption = BaseText & Str(CurrentCmd) & EndText
Label1.Refresh
End If
Next cmd


If NoScanYet = True Then
MsgBox "The Scan Feature was not found - " + ScanID
End
End If

' Some setup, establish point data objects
Set hit = CreateObject("PCDLRN.PointData")
Set vec = CreateObject("PCDLRN.PointData")

' Get the number of hits in the scan
nh = ScanCmd.GetText(N_HITS, 0)
cnt = CInt(nh)

' set startnum to 1 and endnum to the # of hits (nh)

StartNum = 1
EndNum = nh

Open "c:\tmp\" & ScanID & ".txt" For Output As #1

BaseText = "Processing Hit # "
EndText = "/" & Str(EndNum)

For i = StartNum To EndNum

Label2.Caption = BaseText & Str(i) & EndText
Label2.Refresh

Set hit = ScanHits.GetHit(i, FHITDATA_BALLCENTER, FDATA_MEAS, FDATA_PART, AlignID, PLANE_TOP)
HitX = CDbl(hit.x)
HitY = CDbl(hit.y)
HitZ = CDbl(hit.z)

Set vec = ScanHits.GetHit(i, FHITDATA_VECTOR, FDATA_MEAS, FDATA_PART, AlignID, PLANE_TOP)
HitI = CDbl(vec.x)
HitJ = CDbl(vec.y)
HitK = CDbl(vec.z)

Write #1, i, HitX, HitY, HitZ, HitI, HitJ, HitK

Next

Close #1

Command1.Caption = "Done"
mode = 2

End Sub


********************************

It was taken from ane xisting VB project. Note that it has two Sub name lines, but the 2nd is commented out ('Public Sub main(ScanID As String)). This would be that syntax if it were a script. I sometimes develop in VB (or Excel as in your case) and then convert it to a script for use with PC-DMIS.

There is also some extra code in there to do some displays, messaging, etc. I suspec you'll be able to extract what you need.

One other thing to keep in mind is this. The area of code that latches onto the Scan object -

If cmd.ID = ScanID And NoScanYet = True Then
NoScanYet = False
cmd.Next
Set ScanCmd = cmd
Set ScanHits = cmd.FeatureCommand

has syntax which is dependedn on which type of scan you have. Linear open scans are different than Basic Circle scans, as an example.

Anyway, I hope this helps. I'll try to answer any question you might have on it, but I wrote it quite a while ago.

Don

Jeffman,

Here is some code that I've used to extract data from a scan and write to a file -

***************************
Dim mode As Integer

Private Sub Form_Load()

Command1.Caption = "Process"
mode = 0

End Sub


Private Sub Command1_Click()


MsgBox "The mode is " & Str(mode)

Select Case mode

Case 0
process_file
Case 1
End
Case 2
End

End Select


End Sub


Private Sub process_file()

'Public Sub main(ScanID As String)

Dim app As PCDLRN.Application
Dim cmds As PCDLRN.Commands
Dim cmd As PCDLRN.Command
Dim ScanCmd As PCDLRN.Command
Dim part As PCDLRN.PartProgram, ScanHits As PCDLRN.FeatCmd
Dim hit As PCDLRN.PointData, vec As PCDLRN.PointData
Dim NoScanYet As Boolean
Dim nh As String
Dim HitX As Double, HitY As Double, HitZ As Double
Dim HitI As Double, HitJ As Double, HitK As Double
Dim i As Integer, TotalCmds As Integer, CurrentCmd As Integer


Command1.Caption = "Cancel"
mode = 1

NoScanYet = True
ScanID = "SCN1"

' Get the App, Partprogram and Commands
Set app = CreateObject("PCDLRN.Application")
Set part = app.ActivePartProgram
Set cmds = part.Commands

' Get the Scan from the part program
TotalCmds = cmds.Count
CurrentCmd = 0
BaseText = "Processing Command # "
EndText = "/" & Str(TotalCmds)
For Each cmd In cmds
CurrentCmd = CurrentCmd + 1
If cmd.ID = ScanID And NoScanYet = True Then
NoScanYet = False
cmd.Next
Set ScanCmd = cmd
Set ScanHits = cmd.FeatureCommand
Label1.Caption = "Found " & ScanID & " as command # " & Str(CurrentCmd)
Exit For
Else
Label1.Caption = BaseText & Str(CurrentCmd) & EndText
Label1.Refresh
End If
Next cmd


If NoScanYet = True Then
MsgBox "The Scan Feature was not found - " + ScanID
End
End If

' Some setup, establish point data objects
Set hit = CreateObject("PCDLRN.PointData")
Set vec = CreateObject("PCDLRN.PointData")

' Get the number of hits in the scan
nh = ScanCmd.GetText(N_HITS, 0)
cnt = CInt(nh)

' set startnum to 1 and endnum to the # of hits (nh)

StartNum = 1
EndNum = nh

Open "c:\tmp\" & ScanID & ".txt" For Output As #1

BaseText = "Processing Hit # "
EndText = "/" & Str(EndNum)

For i = StartNum To EndNum

Label2.Caption = BaseText & Str(i) & EndText
Label2.Refresh

Set hit = ScanHits.GetHit(i, FHITDATA_BALLCENTER, FDATA_MEAS, FDATA_PART, AlignID, PLANE_TOP)
HitX = CDbl(hit.x)
HitY = CDbl(hit.y)
HitZ = CDbl(hit.z)

Set vec = ScanHits.GetHit(i, FHITDATA_VECTOR, FDATA_MEAS, FDATA_PART, AlignID, PLANE_TOP)
HitI = CDbl(vec.x)
HitJ = CDbl(vec.y)
HitK = CDbl(vec.z)

Write #1, i, HitX, HitY, HitZ, HitI, HitJ, HitK

Next

Close #1

Command1.Caption = "Done"
mode = 2

End Sub


********************************

It was taken from ane xisting VB project. Note that it has two Sub name lines, but the 2nd is commented out ('Public Sub main(ScanID As String)). This would be that syntax if it were a script. I sometimes develop in VB (or Excel as in your case) and then convert it to a script for use with PC-DMIS.

There is also some extra code in there to do some displays, messaging, etc. I suspec you'll be able to extract what you need.

One other thing to keep in mind is this. The area of code that latches onto the Scan object -

If cmd.ID = ScanID And NoScanYet = True Then
NoScanYet = False
cmd.Next
Set ScanCmd = cmd
Set ScanHits = cmd.FeatureCommand

has syntax which is dependedn on which type of scan you have. Linear open scans are different than Basic Circle scans, as an example.

Anyway, I hope this helps. I'll try to answer any question you might have on it, but I wrote it quite a while ago.

Don