Tip object

Hi,

I am trying to get A angle of tip for script.

From help:
"Tip.A
Returns the A angle of the tip. Read-only Double."

I have no clue how to retrieve data. How I can A angle of current tip?

Kp61dude! over 4 years ago

Here you go:

LOADPROBE/LSPX1_3X50
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
TIP/T1A-90B0, SHANKIJK=0, -1, 0, ANGLE=0
ASSIGN/A_ANGLE=PROBEDATA("A")
ASSIGN/B_ANGLE=PROBEDATA("B")

Darius11 over 4 years ago in reply to Kp61dude!

This is for pc dmis itself. At the moment I do have:
[If Cmd.Type = SET_ACTIVE_TIP Then
ProbeAngle1 = right(left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1),(len(left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1))-instr(1,left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1),"A")))
...]

It doing job but if I could replace this "right(left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1),(len(left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1))-instr(1,left(Cmd.GetText (ID, 0),instr(1,Cmd.GetText (ID, 0),"B")-1),"A")))" by one command it would be easier to reed.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Darius11 over 4 years ago

Other thing what I can't find out is how to use MOVE_CLEARPOINT .Script should check if before every "LOADPROBE/B" command is command "MOVE/CLEARPOINT". Basically should be " If Cmd.Type = SET_ACTIVE_TIP " and previous command wasn't "MOVE/CLEARPOINT" then MSGBOX... . I did try things like "if cmd.Type = MOVE_CLEARPOINT Then "...... but no positive result was achieved. Any ideas?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
LostL over 4 years ago

Not at work but iirc loadprobe is not type Set_active_tip? You may need to back up another step.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Dave Hocum over 4 years ago in reply to Darius11

Replace MOVE_CLEARPOINT with 163.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Darius11 over 4 years ago in reply to Darius11

Thanks, it did work.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
LostL over 4 years ago

Seems to be:
MOVE/CLEARPOINT = MOVE_CLEARPOINT (163)
LOADPROBE/ * = GET_PROBE_DATA ( 61)
TIP/* = SET_ACTIVE_TIP (60)

Activetip has an .Angle property, but that could be for B. Otherwise you can use the Probe object to find tip info, but I wouldn´t recommend that. Better to do what you do already. I'd put it in a function so it doesnt mess up the code so much.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Dave Hocum over 4 years ago in reply to Darius11

No problem
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Darius11 over 4 years ago in reply to LostL

Thanks. I didn't manage to get A angle in any other way than my so I will stick to my way.
Could you be more specific what do you mean by "put it in a function". If that isn't that what i have done, then it is outside of my experience.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

LostL over 4 years ago

I have a similar function for what is likely a similar purpose...

In VBA:

Function NegativeTip(name As String) As Boolean
Dim Temp() As String
Dim Angle As Integer
Temp = Split(name, "A")
Temp = Split(Temp(1), "B")
Angle = CInt(Temp(0))
If Angle <= 0 Then
NegativeTip = True
Else
NegativeTip = False
End If

End Function