Making option (f3 like) function

This is done by using one of the enterFunctions (e.g. enterPoint, enterPath, enterPoints, etc - check for functions in cdsFinder which begin with enter), and supplying the ?form argument to these functions. The form has to be created as ?formType 'options . It makes sense because the command is to do some kind of digitization, and so as you are prompted to enter points or whatever, you can then hit F3 to alter the behaviour of the command in progress. 

For example (an incomplete example because this example was just an experiment which isn't really working properly in the "DoneProc"):

 procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
    abCreateGuardringOptionsForm()
    )
    enterPath(?prompts list("Enter points for guard ring")
    ?doneProc "abCreateGuardringDoneProc"
    ?points nil
    ?addPointProc "abCreateGuardringPointTracker"
    ?delPointProc "abCreateGuardringPointTracker"
    ?form abCreateGuardringForm
    ?alwaysMap t
    ?pathWidth abCreateGuardringForm->diffWidth->value
    )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
    diffWidth=hiCreateFloatField(
        ?name 'diffWidth
        ?value 10.0
        ?callback "abChangeGuardringWidth()"
        ?prompt "Diffusion Width"
    )
    hiCreateAppForm(
        ?name 'abCreateGuardringForm
        ?formType 'options
        ?buttonLayout 'HideCancelDef
        ?fields list(
        list(diffWidth 0:0 400:30 100)
        )
    )
    )
)

Hope that helps,

Andrew

This is done by using one of the enterFunctions (e.g. enterPoint, enterPath, enterPoints, etc - check for functions in cdsFinder which begin with enter), and supplying the ?form argument to these functions. The form has to be created as ?formType 'options . It makes sense because the command is to do some kind of digitization, and so as you are prompted to enter points or whatever, you can then hit F3 to alter the behaviour of the command in progress. 

For example (an incomplete example because this example was just an experiment which isn't really working properly in the "DoneProc"):

 procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
    abCreateGuardringOptionsForm()
    )
    enterPath(?prompts list("Enter points for guard ring")
    ?doneProc "abCreateGuardringDoneProc"
    ?points nil
    ?addPointProc "abCreateGuardringPointTracker"
    ?delPointProc "abCreateGuardringPointTracker"
    ?form abCreateGuardringForm
    ?alwaysMap t
    ?pathWidth abCreateGuardringForm->diffWidth->value
    )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
    diffWidth=hiCreateFloatField(
        ?name 'diffWidth
        ?value 10.0
        ?callback "abChangeGuardringWidth()"
        ?prompt "Diffusion Width"
    )
    hiCreateAppForm(
        ?name 'abCreateGuardringForm
        ?formType 'options
        ?buttonLayout 'HideCancelDef
        ?fields list(
        list(diffWidth 0:0 400:30 100)
        )
    )
    )
)

Hope that helps,

Andrew