hexagon logo

AutoCalibration

Hi guys. I recently created a form in VB studio to be used for a front end GUI. I am currently creating a button for autocalibration. So in a nutshell this is what im doing. The operator will click on the autocalibration button and it opens up a file dialog box to navigate to whatever program they want to run. After they select the program I wrote a code to go into said program and find all the active tip angles in said program and it then writes them to a txt file on the desktop. After that, it opens up a program I wrote that pretty much just has a DO loop to open/read the text file with the tip angles and loops through each individual line/angle and calibrates them accordingly using the autocalibrate command, some IF/GOTO statements, and parameter sets. I have that working fluently, The problem is we use sooooo many different tip angles so this process would be extremely tedious and time consuming to do for every angle the machine is capable to index to. My question is, is there a way to assign a variable to a parameter set so I can just create one single autocalibrate command and loop through each line in my text file and assign that tip angle to both the tip command and parameter set? Or maybe an easier way than how i am going about doing this. Any help or direction would be appreciated. See attachment for my current program format.

Attached Files
Parents
  • Update**
    I got this to Open my probe utilities, and select the tips. It then seems to be attempting to open the qualification settings window, but PCDMIS then deselects my tips and gives me this error (see attached).

    probes = part.Probes
    probe = probes.Item("1MM_WITH_EXTENSION_ADAPTER")
    probe.SelectAllTips()

    myquals = probe.QualificationSettings
    myquals.Mode = PCDLRN.QUALIFICATION_SETTINGS_MODE.PCD_QUALIFICATI ON_SETTING_MODE_DCC_PLUS_DCC
    myquals.ExecuteMode = PCDLRN.ENUM_CALIBRATION_EXECUTE_MODE.CALIBRATE_TIP S
    myquals.UserDefinedCalibrationMode = False
    myquals.UserDefinedCalibrationOrder = False
    myquals.PreHit = 0.1
    myquals.MoveSpeed = 100
    myquals.Touchspeed = 2
    myquals.NumLevels = 3
    myquals.NumHits = 17
    myquals.StartAngle = 0
    myquals.EndAngle = 90
    myquals.SetTool(part.Tools.Item("offline"))
    myquals.ToolMoved = PCDLRN.ENUM_TOOL_MOVED.TOOL_MOVED_NO

    probe.Qualify2(myquals)
    probe.Qualify()

    Attached Files
  • I don't blame you for trying, but I did mention this in post #2.
Reply Children
No Data