ANGLE

I have code to create part of a program but I have a problem creating the angles.
How through the code or otherwise, I force the angle to always be the same.

my code.
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands


Set PCDCommand = PCDCommands.Add(DIMENSION_2D_ANGLE, True)
 PCDCommand.Marked = True
 retval = PCDCommand.PutText("PP2", ID, 0)
 retval = PCDCommand.PutText("LIN3", REF_ID, 1) ' ******************** LINHA
 retval = PCDCommand.PutText("XAXIS", REF_ID, 0) ' ******************** REF LINHA
 retval = PCDCommand.PutText("A", AXIS, 0)
 retval = PCDCommand.PutText(" 0.000", NOMINAL, 0)

Parents

0 JEFMAN 8 months ago

I would do it with some assignments, as usual...

ASSIGN/V1=ACOS(DOT(UNIT(LIN3.IJK*MPOINT(1,1,0),MPOINT(1,0,0))))

ASSIGN/V2=LIN3.J/ABS(LIN3.J)

ASSIGN/ANGLE_2D=RAD2DEG(V1*V2)

You can transfer those values in the script
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 WilliamL 8 months ago in reply to JEFMAN

Hi JEFMAN , could you explain in a little more detail how that would be implemented into his script?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 JEFMAN 8 months ago in reply to WilliamL

Something like this:

Set Var1 = PcPartProgram.GetVariableValue("ANGLE_2D")
ANGLE_MEAS=Var1.DoubleValue
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel

Reply

0 JEFMAN 8 months ago in reply to WilliamL

Something like this:

Set Var1 = PcPartProgram.GetVariableValue("ANGLE_2D")
ANGLE_MEAS=Var1.DoubleValue
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel

Children

No Data