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)