done和cancel需要点两次才能结束skill

尼伯龙根之歌

axlCmdRegister("as" 'aotuSpacing ?cmdType "interactive" ?doneCmd 'myDone ?cancelCmd 'myCancel)
procedure(aotuSpacing()
        mypopup = axlUIPopupDefine(nil list(
                (list "Done" 'myDone)
                (list "Cancel" 'myCancel)
        ))
        axlUIPopupSet(mypopup)
        notdone = t
        axlClearSelSet()
        while(notdone
                axlSetFindFilter(?enabled "CLINESEGS" ?onButtons "CLINESEGS")
                box = axlEnterBox()
                axlSingleSelectBox(box)
        )
)

procedure(myDone()
        notdone = nil
        axlFinishEnterFun()
)

procedure(myCancel()
        notdone = nil
        axlCancelEnterFun()
)

gfdyael

同问