本站微信 收藏本站 设为首页
 找回密码
 注册
关于网站域名变更的通知
EDA365电子论坛网»电子社区 › EDA工具&PCB设计 › Allegro Skill开发 › 高效框选自动摆放器件SKILL
返回列表 发新帖
查看: 1537|回复: 11
打印 上一主题 下一主题

高效框选自动摆放器件SKILL

[复制链接]
digitzing

该用户从未签到
跳转到指定楼层
1#
发表于 2022-2-16 16:14 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录！

您需要 登录 才可以下载或查看，没有帐号？注册

x
本帖最后由 digitzing 于 2022-2-17 14:18 编辑

原来程序为点击ON，开启程序，点击select,后，鼠标框选器件，或从原理图中选中部分电路，联动到PCB选中后，点击place，鼠标框选器件要摆放的位置，自动摆放后done
有没有哪位帅哥美女可以把这个skill 修改为框选器件后，快捷键调起这个SKILL，然后鼠标框选区域，器件就自动摆放完成？再框选，就再自动重新摆放, 不要弹出FROM，直接快捷键后台运行，提高效率和操作更方便
调用命令：pis
  1. load("Part_Place_Inside.il" "")
复制代码













  1. /*
  2. #########################################################################################                                                                    
  3. #                 Skill File: FanySkill_Place_Inside.il                                                           #
  4. #                 How To Load: Command> (load("FanySkill_Place_Inside.il"))                                        #
  5. #                        Modify by:  longxf 2020-1-1 Download Addr:https://pcbbar.com/                                 #
  6. #                        How To Execute: Command> FYPI                                                                                                #
  7. #                        Original author : Skny                                                                                                                #
  8. #########################################################################################
  9. */

  11. axlCmdRegister("pis" 'Part_Place_Inside)         ;"pi" 为启动命令关键字,可以自定义此关键字。

  13. defun( Part_Place_Inside ()
  14.      let(()
  15.      formcreate()
  16.         ) ;let
  17.      ) ;defun
  18.       
  19. defun( move ()   
  20.       axlShell("unrats all")
  21.       Com_area=axlEnterBox(?prompts list("First rectangle point, please..." "Second rectangle point, please..."))
  22.       if(caar(Com_area)>car(cadr(Com_area)) then
  23.                 new_x=car(cadr(Com_area))
  24.                 big_x=caar(Com_area)
  25.       else
  26.                new_x=car(car(Com_area))
  27.                big_x=car(cadr(Com_area))
  28.               )
  29.       if(cadr(cadr(Com_area))>cadr(car(Com_area)) then
  30.                 new_y=cadr(cadr(Com_area))
  31.       else
  32.                 new_y=cadr(car(Com_area))
  33.                 )
  34.        sym_dy=0
  35.        sym_dx=0
  36.        H_dy=0
  37.        pls_x=new_x+1
  38.        pls_y=new_y-1
  39.        pls_xy=list(pls_x,pls_y)
  40.        all_dy=0
  41.       
  42.        axlClearSelSet()
  43.        axlSetFindFilter(?enabled list( "noall" "symbols") ?onButtons list( "noall" "symbols"))
  44.        foreach(ref reflist
  45.                dSyms = axlSelectByName("REFDES" ref)
  46.                dSym=car(dSyms)
  47.                foreach(db0 dSym->children
  48.                        layer = cadr(parseString(db0->layer "/"))
  49.                        if(layer == "PLACE_BOUND_TOP" || layer == "PLACE_BOUND_BOTTOM"  then
  50.                           sym_boundary = db0->bBox
  51.                           downleft_xy=car(sym_boundary)  
  52.                           upright_xy=car(cdr(sym_boundary))
  53.                           left_x=car(downleft_xy)
  54.                           up_y=car(cdr(upright_xy))
  55.                           right_x=car(upright_xy)
  56.                           down_y=car(cdr(downleft_xy))
  57.                           if(pls_x<big_x then
  58.                              ix=pls_x-left_x
  59.                              iy=pls_y-up_y
  60.                              axlTransformObject(dSym, ?move ix:iy)
  61.                              
  62.                              axlDehighlightObject(dSym)
  63.                              sym_dx=right_x-left_x
  64.                              pls_x=pls_x+sym_dx+5   
  65.                              sym_dy=up_y-down_y
  66.                              pls_xy=list(pls_x,pls_y)
  67.                              if(sym_dy>H_dy then
  68.                                       H_dy=sym_dy
  69.                              else
  70.                                 H_dy=H_dy
  71.                                 );if(sym_dy>H_dy then
  72.                   
  73.                           else
  74.                                     all_dy=H_dy+all_dy+5
  75.                                     pls_x=new_x+1
  76.                                     pls_y=new_y-all_dy
  77.                                     ix=pls_x-left_x
  78.                              iy=pls_y-up_y
  79.                                     axlTransformObject(dSym, ?move ix:iy)
  80.                                     axlDehighlightObject(dSym)  
  81.                              sym_dy=up_y-down_y
  82.                              sym_dx=right_x-left_x
  83.                              pls_x=pls_x+sym_dx+5
  84.                              pls_xy=list(pls_x,pls_y)
  85.                              H_dy=sym_dy
  86.                              ) ;if(pls_x<big_x then
  87.                           );if(layer
  88.                       );foreach(db0
  89.                 );foreach(ref
  90.      );defun
  91.      
  92. defun( formcreate ()
  93.        let((place)
  94.            path_place="./place_in.form"
  95.            place= outfile(path_place "w")
  96.            
  97.            fprintf(place "FILE_TYPE=FORM_DEFN VERSION=2\n")
  98.            fprintf(place "FORM\n")
  99.            fprintf(place "FIXED\n")
  100.            fprintf(place "PORT 30 5\n")
  101.            fprintf(place "HEADER \"Place_inside\"\n")
  102.            fprintf(place "TILE\n")
  103.             
  104.                  fprintf(place "FIELD Place\n")
  105.                  fprintf(place "FLOC 17 19\n")
  106.                  fprintf(place "MENUBUTTON \"Place\" 10 4\n")
  107.                  fprintf(place "ENDFIELD\n")
  108.                  
  109.                  fprintf(place "FIELD Select\n")
  110.                  fprintf(place "FLOC 17 12\n")
  111.                  fprintf(place "MENUBUTTON \"Select\" 10 4\n")
  112.                  fprintf(place "ENDFIELD\n")
  113.         
  114.            fprintf(place "TEXT \"Symbols:\"\n")
  115.            fprintf(place "FLOC 3 1\n")
  116.            fprintf(place "ENDTEXT\n")
  117.         
  118.            fprintf(place "TEXT\n")
  119.            fprintf(place "FLOC 10 1\n")
  120.            fprintf(place "INFO Sym_Count 20\n")
  121.            fprintf(place "FSIZE 20 2\n")
  122.            fprintf(place "ENDTEXT\n")
  123.            
  124.            fprintf(place "FIELD ref_sym\n")
  125.            fprintf(place "FLOC 2 3\n")
  126.            fprintf(place "LIST \"\" 10 10\n")
  127.            fprintf(place "OPTIONS multiselect\n")               
  128.            fprintf(place "ENDFIELD\n")
  129.            
  130.            fprintf(place "FIELD Toggle\n")
  131.            fprintf(place "FLOC 17 5\n")
  132.            fprintf(place "MENUBUTTON \"On/Off\" 10 4\n")
  133.            fprintf(place "ENDFIELD\n")
  134.         
  135.            fprintf(place "TEXT\n")
  136.            fprintf(place "FLOC 23 2\n")
  137.            fprintf(place "INFO msg 20\n")
  138.            fprintf(place "FSIZE 20 2\n")
  139.            fprintf(place "ENDTEXT\n")
  140.            
  141.            fprintf(place "TEXT \"Function:\"\n")
  142.            fprintf(place "FLOC 15 2\n")
  143.            fprintf(place "ENDTEXT\n")
  144.         
  145.                  fprintf(place "ENDTILE\n")
  146.            fprintf(place "ENDFORM\n")
  147.            close(place)
  148.         
  149.            axlFormCreate('place_in "./place_in.form" '("msgLines" 1) 'placeAction t nil)
  150.            axlFormDisplay(place_in)
  151.            axlUIWPrint(place_in "Please Turn ON the function!")
  152.            deleteFile(path_place)
  153.        );end let
  154.            sts = 0
  155.            axlFormSetField( place_in "msg"         "OFF")
  156.            axlFormSetField( place_in "Sym_Count"  "0"  )
  157.      );end defun

  159. defun( placeAction (place_in)
  160.        targ = nil
  161.        case(place_in->cuRField
  162.                     ("Place"         
  163.                         if(reflist == nil  then
  164.                            axlUIWPrint(place_in "Please Select symbols First!!")
  165.                         else
  166.                            axlShell("done")
  167.                            move()
  168.                            axlFormSetField( place_in "Sym_Count"  "0" )
  169.                            axlFormListDeleteAll(place_in "ref_sym" )
  170.                            axlUIWPrint(place_in "Done")
  171.                            reflist = nil
  172.                           );if
  173.                       );Place
  174.                     ("Select"
  175.                         if(sts == 0 then
  176.                            axlUIWPrint(place_in "Please Open the function First!!")
  177.                         else
  178.                                  axlUIWPrint(place_in "Selecting......")
  179.                            hilight()
  180.                           );if
  181.                       );Select
  182.                     ("Toggle"
  183.                         Toggle_Sts()
  184.                       );Toggle
  185.              );case
  186.        reflist = nil
  187.      );defun
  188. defun( hilight ()
  189.        targ = nil
  190.        axlFormListDeleteAll(place_in "ref_sym" )
  191.        axlShell("hilight")
  192.        axlSetFindFilter(?enabled list( "noall" "symbols") ?onButtons list( "noall" "symbols"))
  193.      );

  195. defun( myxprobe (items)
  196.        if(car(items) == 'highlight then
  197.           targ = cons(caadr(items)->refdes targ)
  198.           );if
  199.        axlFormListDeleteAll(place_in "ref_sym" )
  200.        when(member(nil targ) targ = remove(nil targ))
  201.        targ = sort(unique(targ) nil)
  202.        axlFormSetField( place_in "ref_sym"         targ)
  203.        reflist = targ
  204.        Sym_cnt=length(reflist)
  205.        axlFormSetField( place_in "Sym_Count" Sym_cnt  )
  206.      );defun

  208. defun( Toggle_Sts ()
  209.        if(sts == 0 then
  210.           sts = 1
  211.           axlTriggerSet('xprobe 'myxprobe)
  212.           axlFormSetField( place_in "msg"         "ON")
  213.           axlUIWPrint(place_in "Please Select symbols!")
  214.                   
  215.        else
  216.           sts = 0
  217.           axlTriggerClear('xprobe 'myxprobe)
  218.           axlFormSetField( place_in "msg"         "OFF")
  219.           axlUIWPrint(place_in "Please Open the function!")
  220.           axlFormListDeleteAll(place_in "ref_sym" )
  221.           axlFormSetField( place_in "Sym_Count"  "0"  )
  222.           reflist = nil
  223.           );if
  224.       );defun
复制代码





下载资料威望不够？点击查看获取威望的N种方法>>
回复

举报

EDA365微信号及QQ群号！
db-_-
  • TA的每日心情
    奋斗
    2025-7-7 15:38

    • 签到天数: 83 天

    [LV.6]常住居民II
    2#
    发表于 2022-2-16 16:29 | 只看该作者
    一句注释都没有，看着费劲。。。

    点评

    digitzing
    复制下来运行  详情 回复 发表于 2022-2-16 20:01

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    digitzing

    该用户从未签到
    3#
     楼主| 发表于 2022-2-16 20:01 | 只看该作者
    db-_- 发表于 2022-2-16 16:29
    一句注释都没有，看着费劲。。。

    复制下来运行

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    db-_-
  • TA的每日心情
    奋斗
    2025-7-7 15:38

    • 签到天数: 83 天

    [LV.6]常住居民II
    4#
    发表于 2022-2-17 10:53 | 只看该作者
    运行了下什么也干不了  所以到底是做什么的呢？


    这个程序是做什么的都不说清楚，怎么可能会有人一行一行给你读一下，猜出来功能再给你改。

    点评

    leilei4908
    这是网上共享的源代码，分享出来之前可能已经删去注释了 或者压根没有注释的习惯（比如我）  详情 回复 发表于 2022-2-18 09:21

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    leilei4908
  • TA的每日心情
    开心
    2022-5-6 15:29

    • 签到天数: 34 天

    [LV.5]常住居民I
    5#
    发表于 2022-2-18 09:21 | 只看该作者
    db-_- 发表于 2022-2-17 10:53
    运行了下什么也干不了  所以到底是做什么的呢？

    这是网上共享的源代码，分享出来之前可能已经删去注释了
    或者压根没有注释的习惯（比如我）

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    db-_-
  • TA的每日心情
    奋斗
    2025-7-7 15:38

    • 签到天数: 83 天

    [LV.6]常住居民II
    6#
    发表于 2022-2-18 11:44 | 只看该作者
    可能是我太笨了吧。我这点及ON/OFF没反应。

    话说不是有根据原理图页数以及位置放置器件的skill吗。这个就显得有点多余。

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    Conan221
  • TA的每日心情
    开心
    2022-3-15 15:23

    • 签到天数: 2 天

    [LV.1]初来乍到
    7#
    发表于 2022-3-4 14:46 | 只看该作者
    這個厲害啊~ 感謝分享

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    db-_-
  • TA的每日心情
    奋斗
    2025-7-7 15:38

    • 签到天数: 83 天

    [LV.6]常住居民II
    9#
    发表于 2022-3-4 15:27 | 只看该作者
    有几个问题

    1、网站有个BUG，代码里面如果有特殊关键词，会自动小写改大写。比如161行的case(place_in->cuRField，应该是case(place_in->curField，所以直接复制下来的代码运行不了。

    2、有没有哪位帅哥美女可以把这个skill 修改为框选器件后，快捷键调起这个SKILL。
    你是用的plach mode？还是什么预选模式吗？none模式需要先运行命令才可以框选

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    Jeffrey6501
  • TA的每日心情
    难过
    2025-3-6 15:07

    • 签到天数: 251 天

    [LV.8]以坛为家I
    10#
    发表于 2022-3-10 10:44 | 只看该作者
    点了ON/OFF没有反应。没有变成ON,默认为OFF

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    Novelname1
  • TA的每日心情
    慵懒
    2025-7-9 15:01

    • 签到天数: 49 天

    [LV.5]常住居民I
    11#
    发表于 2023-12-13 17:30 | 只看该作者
    插个眼，等有空了来细看

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    aarom
    头像被屏蔽
  • TA的每日心情
    开心
    2025-1-23 15:05

    • 签到天数: 17 天

    [LV.4]偶尔看看III
    12#
    发表于 2023-12-14 22:33 | 只看该作者
    提示: 作者被禁止或删除 内容自动屏蔽

    下载资料威望不够？点击查看获取威望的N种方法>>
    回复 支持 反对

    举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-7-19 12:47 , Processed in 0.140625 second(s), 29 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

    快速回复 返回顶部 返回列表