Automatic probe calibration script

I'm not sure what you've done (I can't view your doc) and I don't know what version you are using but I think what you want to do is:

Insert -> Calibrate -> Autocalibrate Probe

You can then use parameter sets to calibrate only the probe angles used in the program. Have a look at this code. Maybe it will help.

Great idea for a Script! If you get this to work there is no need for a calibration program at all. No need to worry about adding and subtracting probes or tips. I also have these programs that sometimes get extra tips, or then I delete a bunch, and forget to update the cal program. This would take care of that.

Did the zz= actuprb.qualify2 work? In other words, can you get it to work for just 1 probe and tip? Or does this command never work? I would start with a simple program that just calibrates 1 probe/tip. The try to do 2 tips, then 2 probes 2 tips and work you way into whatever you have right now.

Oh, and another tip: create a PC-DMIS program that calibrates 2 probes and 2 tips. Make sure it runs clean. The export it to a VBasic file. Then look at the code that got generated. That may provide a clue as to what you are doing wrong.

Hope this helps. Please post when you have it all done. Seems like a very useful piece of code to me!


Jan.

Yes Jan d.,
You said all the interest it give to write such a script.

The zz= actuprb.qualify2 works but the problem is that it doesn't take in account the selected tips positions made before in the script. It ask if I want to calibrate all the positions.

I have also tried to use the actuprb.qualify command wich take in account the selected tips positions but if i haven't calibrate one probe just before to run the script, it doesn't work.
I think there's something missing in the script but what???

I'm using PCDMIS V3.7 MR3

For those who don't see the attached file, see the script lines just after:

' Routine de calibration automatique de tous les palpeurs utilisés dans un programme
'
Sub main
' ces variables sont pour acceder à l'application PC-DMIS
Dim Application As Object
Dim part As Object
Dim cmds As Object
Dim cmd As Object
Dim prb As Object
'
'
' these variables are used To manipulate
' the return value from GetToggleString
Dim togglestring As String
Dim togglecount As Integer
' probes variables And tool variable
Dim actuprb As Object
Dim actutip As Object
Dim posactu As Object
Dim actusettings As Object
Dim actutool As Object
Dim actusphere As Object
'
Dim palpactuel, posactuel As String
Dim s As String
Dim i,palpdeb As Integer
Dim tt,newpalpeur,zz As Boolean
'
' Get the application variable And make sure it is valid
Set Application = CreateObject("PCDLRN.Application")
If Application is Nothing Then
msgbox "Impossible de trouver l'application PCDMIS --> fin de la procédure."
End
End If
'
' Get the part variable And make sure it is valid
Dim programs As Object
'
Set programs = Application.PartPrograms
Set part = Application.ActivePartProgram
'
partname = part.fullname
If part is Nothing Then
msgbox "Impossible de trouver un programme actif --> fin de la procédure."
End
End If
' Get the cmds variable And make sure it is valid
Set cmds = part.Commands
If cmds is Nothing Then
msgbox "Impossible de trouver les commandes du programme --> fin de la procédure."
End
End If
'
'
Dim palpeur (6) As String
Dim positions(6) As String
Dim ii,jj,nbpalp As Integer
'
For jj=1 To 6
palpeur (jj)=" "
Next
'
'*****************************************************************************************************
' Loop over all the commands To find used probes
' pour trouver tous les palpeurs utilisés
For Each cmd In cmds
'
If cmd.Type=61 Then '61 est commande charg palpeur / load probe command
togglestring=cmd.gettext(file_name,0)
newpalpeur=True
For jj=1 To 6
If palpeur(jj)=togglestring Then
newpalpeur=False
End If
Next jj
'
If newpalpeur=True Then
ii=ii+1
palpeur(ii)=togglestring
End If
End If
'
Next cmd
'
'*****************************************************************************************************
'
nbpalp=ii
'
Dim numligne%
Dim txt$
numligne=1
'
'*****************************************************************************************************
' Loop over all the commands To find all tip positions
' pour trouver toutes les positions palpeurs utilisées
For Each cmd In cmds
'
If cmd.Type=61 Then '61 est commande charg palpeur / load probe command

palpactuel=cmd.gettext(file_name,0)
For jj=1 To nbpalp
If palpeur(jj)=palpactuel Then
ii=jj
End If
Next jj

End If

If cmd.Type=60 Then '60 est commande contact... / 60= Select tip command
posactuel=cmd.gettext(id,0)
'
txt$=positions(ii)
txt$=txt$ & posactuel & ";"
positions(ii)= txt$
'
End If
numligne=numligne+1
Next cmd
'
'*****************************************************************************************************
'

'*************************************************************************
' Calibration de tous les palpeurs détectés précédemment
' Calibrate all probes And positions detected before
'*************************************************************************
'
Dim nomoutil$
Set prb= part.probes
Set actutool=part.tools
Set actusphere=actutool.item(1)
togglestring=palpeur(1)
txt$=positions(1)
Set actuprb=prb.item(togglestring)
Set actutip=actuprb.tips
Set actusettings=actuprb.qualificationsettings
tt= actusettings.settool(actusphere)

'zz= actuprb.qualify2 (actusettings)
'
For ii=1 To nbpalp
'
'actusettings.toolmoved=1
togglestring=palpeur(ii)
txt$=positions(ii)
Set actuprb=prb.item(togglestring)
Set actutip=actuprb.tips
For jj=1 To actutip.count
Set posactu=actutip.item (jj)
nomoutil$= posactu.id
If instr(1,positions(ii),nomoutil$) Then
posactu.selected=True
Else
posactu.selected=False
End If
Next
'
msgbox togglestring & " " & txt$
'
tt= actuprb.qualify2 (actusettings)
Next
'
msgbox "Qualification terminée !!"
End
'
End Sub

I know it's spam. I just found the title of the post funny.

I am appreciated for this pretty article. thanks.

It is obvious that English is not their first language. What they typed is the opposite of what they meant. I found that humorous.

BTW, speaking of spam, wouldn't it suck if your name was actually Charles Soludo but you weren't that guy?

Don't get sucked in, that is SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM, SPAM

It is a new twist from the spammers, they post in existing threads instead of starting new ones. I have been reporting this for 3 days, all to no avail.

tattletail......