EDA365电子工程师网

标题: 想通过录制完成对cline ix 或者iy 移动固定值 [打印本页]

作者: LJ1697369196 时间: 2018-7-16 22:00
标题: 想通过录制完成对cline ix 或者iy 移动固定值
目的：想通过录制完成通过右键框选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

欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/)