想通过录制完成对cline ix 或者iy 移动固定值

LJ1697369196

目的：想通过录制完成通过右键框选1条clinesegs 自动 ix 或者iy 移动固定值


目前完成状况，可以生成slider.scr,但是时序上不对，同时也没有对选中的cline进行操作，应该是Dbid 没用上，但又不知道Dbid和.scr 文件如何联系
论坛的各位帮忙提示一下，谢谢。
axlCmdRegister("test" 'ctm ?cmdType "interactive")
      defun( ctm ()
        
     mypopup = axlUIPopupDefine(nil list(list("Finish" 'axlFinishEnterFun)));右键菜单结束输入
   
        myPort=outfile("./Place_data.txt")
        axlClearSelSet()
        axlSetFindFilter(?enabled '("clinesegs") ?onButtons '("clinesegs"))
   axlUIPopupSet(mypopup);根据上面设置的popup，加入到右键菜单内
        while(axlSingleSelectBox()
        app = axlGetSelSet()
  axlClearSelSet();清空选择项目，取消选中状态
  fprintf(myPort "%s\t%L\n" "app" app )
  SetslideScriptCreate(20)
   
              )
   
            axlUIPopupSet(nil);重置右键菜单
    close(myPort)
         )
procedure(SetslideScriptCreate(InGrid)
SGScriptFile = outfile("./slide.scr")
fprintf(SGScriptFile "scriptmode +i +n\n")
fprintf(SGScriptFile "version 16.6\n")
fprintf(SGScriptFile "setwindow pcb\n")
fprintf(SGScriptFile "trapsize 1885\n")
fprintf(SGScriptFile "slide\n")

fprintf(SGScriptFile "ipick 0 %n\n" InGrid)
fprintf(SGScriptFile "prepopup\n")
fprintf(SGScriptFile "done\n")
close(SGScriptFile)
sprintf(runScript,"replay %s","./slide.scr")
axlShell(strcat("replay " "./slide.scr"))
;deleteFile("./grids.scr")
axlVisibleUpdate(t)
axlUIWPrint(nil "^_^ ctm Successful...")
);end procedure