EDA365电子论坛网

标题: 请问脚本窗口是否可以嵌入到软件windows里 [打印本页]
作者: alpb    时间: 2015-4-17 10:34
标题: 请问脚本窗口是否可以嵌入到软件windows里
如图所示！

QQ图片20150417103329.png (58.1 KB, 下载次数: 4)

QQ图片20150417103329.png
作者: deargds    时间: 2015-4-17 11:09
参考以下帖子内容
https://www.eda365.com/forum.php? ... mp;highlight=option
https://www.eda365.com/forum.php? ... mp;highlight=option
作者: alpb    时间: 2015-4-17 11:10
谢谢侬，学习一下！
作者: alpb    时间: 2015-4-17 15:02
deargds 发表于 2015-4-17 11:09
参考以下帖子内容
https://www.eda365.com/forum.php?mod=viewthread&tid=54247&highlight=option
http:// ...
  1. ;Allergo调用声明
  2. axlCmdRegister("quick_grids_setup" 'Quick_Grids_Setup)

  4. ;快捷键设置
  5. axlSetFunckey("~G" "quick_grids_setup")

  7. defun( Quick_Grids_Setup ()

  9.                         GridsZoomListmil = '(1 5 10 20 50 100 150 200)
  10.                         GridsZoomListmm = '(0.05 0.1 0.25 0.5 1 1.5 2 3)
  11.                         unit_conversion = axlGetParam("paramDesign")->units
  12.                         gridsetform()
  13.            )

  15. defun( gridsetform ()
  16. ;Using the let Function to define local variables
  17.           let( ()          
  18.         GridFormfile = "GridForm.form"
  19.         formport = outfile(GridFormfile "w")
  20.         
  21.                                 fprintf(formport "FILE_TYPE=FORM_DEFN VERSION=2\n")
  22.         fprintf(formport "FORM\n")
  23.         fprintf(formport "FIXED\n")
  24.         fprintf(formport "PORT 54 6\n")
  25.         fprintf(formport "HEADER \"Grids Setup\"\n")
  26.         
  27.         fprintf(formport "TILE\n")
  28.         
  29.                                 fprintf(formport "\n")
  30.                                 fprintf(formport "TEXT \"mil:\"\n")
  31.                                 fprintf(formport "TLOC 2 1\n")
  32.                                 fprintf(formport "ENDTEXT\n")
  33.                
  34.                                 fprintf(formport "\n")
  35.                                 fprintf(formport "TEXT \"mm:\"\n")
  36.                                 fprintf(formport "TLOC 2 3\n")
  37.                                 fprintf(formport "ENDTEXT\n")
  38.                
  39.         a = 6
  40.                                 foreach(grid GridsZoomListmil  
  41.                 fprintf(formport "FIELD %L_mil\n" grid)
  42.                 fprintf(formport "FLOC %d 1\n" a)
  43.                 fprintf(formport "FGROUP \"displayunit\"\n")
  44.                 fprintf(formport "CHECKLIST %L\"displayunit\"\n" grid)
  45.                 fprintf(formport "ENDFIELD\n")
  46.                                 a = a+6
  47.                        )      
  48.           
  49.         a = 6
  50.                                 foreach(grid GridsZoomListmm
  51.                 fprintf(formport "FIELD %L_mm\n" grid)
  52.                 fprintf(formport "FLOC %d 3\n" a)
  53.                 fprintf(formport "FGROUP \"displayunit\"\n")
  54.                 fprintf(formport "CHECKLIST %L\"displayunit\"\n" grid)
  55.                 fprintf(formport "ENDFIELD\n")
  56.                                 a = a+6
  57.                        )            
  58.           
  59.                           fprintf(formport "ENDTILE\n")
  60.               fprintf(formport "ENDFORM\n")
  61.       
  62.               close(formport)
  63.              
  64.                           displaygrdform = axlFormCreate((gensym) GridFormfile '(se inner) 'Grid_act t)
  65.                           axlFormDisplay(displaygrdform)
  66.                           deleteFile("GridForm.form")
  67.                           axlControlRaise('options)
  68.                           axlEnterPoint()
  69.           ))
  70.           
  71. defun( Grid_act (displaygrdform)

  73.                                 grid_set = displaygrdform->curField
  74.                           setgrid = atof(car(parseString(grid_set "_")))
  75.                           if(car(reverse(parseString(grid_set "_"))) == "mil"
  76.                                   then
  77.                                            case(unit_conversion
  78.                                 ("mils"  setgrid)
  79.                                             ("millimeters" setgrid = setgrid/39.37)
  80.                                                         ("inches" setgrid = setgrid/1000)
  81.                                                         ("centimeters" setgrid = setgrid/393.7)
  82.                                                         ("microns" setgrid = setgrid* 25.4 )
  83.                               )
  84.                                           SetCurGrid(setgrid)
  85.                                   else
  86.                                           if(car(reverse(parseString(grid_set "_"))) == "mm"
  87.                                           then                    
  88.                                                    case(unit_conversion
  89.                                         ("mils"  setgrid = setgrid* 39.37)
  90.                                                     ("millimeters" setgrid)
  91.                                                                 ("inches" setgrid = setgrid* 0.03937)
  92.                                                                 ("centimeters" setgrid = setgrid/10)
  93.                                                                 ("microns" setgrid = setgrid* 1000)
  94.                                               )   
  95.                                                   SetCurGrid(setgrid)
  96.                                      )
  97.                     )
  98.           )
  99.   
  100. defun( SetCurGrid (gridnum)          
  101.           grid = axlDBGridGet("TOP")
  102.           grid->name = 'all
  103.           grid->xGrids = gridnum
  104.           grid->yGrids = gridnum
  105.           axlDBGridSet(grid)
  106.           )

复制代码
照猫画虎插入那两条命令还是木有作用，您看下是不是还是位置不对呀，请您解释下。
作者: deargds    时间: 2015-4-17 15:12
alpb 发表于 2015-4-17 15:02
照猫画虎插入那两条命令还是木有作用，您看下是不是还是位置不对呀，请您解释下。

这样来写
  1. displaygrdform = axlMiniStatusLoad( (gensym) GridFormfile  'Grid_act t)
复制代码


作者: alpb    时间: 2015-4-17 15:32
deargds 发表于 2015-4-17 15:12
这样来写

呵呵，成功了，但是我发现他没法作为一个单独的窗口，还是占用了"option"的窗口，那有不占用那三个窗口，生成另外的窗口去嵌入的方法么
作者: alpb    时间: 2015-4-17 15:33
deargds 发表于 2015-4-17 15:12
这样来写

或者放到工具栏也可以
作者: deargds    时间: 2015-4-17 16:21
alpb 发表于 2015-4-17 15:32
呵呵，成功了，但是我发现他没法作为一个单独的窗口，还是占用了"option"的窗口，那有不占用那三个窗口， ...

这个暂时没有




欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/) Powered by Discuz! X3.2