Grread polyline draw with arc option

[office]

I made a lisp that draws a polyline with grread.

I want to switch to arc while drawing the polyline with my grread function.

How can it be made to be the same as the autocad polyline draw arc option while drawing a polyline?

[office]

If you started the polyline with an with arc did not work.

Here is attached the edited lisp.

[ronjonp]

Glad you found an answer 🙂 Remember to cleanup your variables after use 

[CHECKING TEXT <Untitled-0> loading... SELECTION]
.
; === Top statistic:
; Global variables: (STARTPOINT)
; Function definition (with number of arguments): ((*ERROR* . 1) (C:TEST . 0))
.
; === Top statistic:
; Global variables: (CARGR GRPOINT GRREAD_ INPUTCHARCODE INPUTTEXT ISARCON ISENDOFGRREAD ISFOUNDOSNAP MAINPROMPTTEXT OSNAPPOINT PLINEBULGELIST PLINECOORDLIST PLINEVLA PREVGRPOINT)
; Function definition (with number of arguments): ((STARTPOLYGRREAD . 1))
.
; === Top statistic:
; Global variables: (ISARCON ISFOUNDOSNAP P1 PLINECOORDLIST PLINEVLA)
; Function definition (with number of arguments): ((UPDATEGRDRAW . 2))
.
; warning: same symbol found before and after / in arguments list: P3
; === Top statistic:
; Global variables: (CHORD D2_3 RETURNBULGE)
; Function definition (with number of arguments): ((GRDRAWARC . 3))
.
; === Top statistic:
; Function definition (with number of arguments): ((LM:3P->BULGE . 3))
.
; === Top statistic:
; Function definition (with number of arguments): ((PM_ARC . 3))
.
; === Top statistic:
; Global variables: (PLINECOORDLIST PLINEVLA)
; Function definition (with number of arguments): ((UPDATEPOLYLINE . 1))
.
; === Top statistic:
; Global variables: (vlax-vbDouble)
; Function definition (with number of arguments): ((CREATEPOLYLINE . 1))
.
; === Top statistic:
; Global variables: (ISARCON MAINPROMPTTEXT OPTIONASCIILIST)
; Function definition (with number of arguments): ((CREATEPROMPTTEXT . 0))
; Check done.