设为首页收藏本站
切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
Cadence Skill 论坛»首页 › 分享交流 › Allegro Skill下载 › 一种用于器件聚拢的功能
1234下一页
返回列表 发新帖
查看: 60245|回复: 33

[原创] 一种用于器件聚拢的功能

[复制链接]
发表于 2014-5-15 16:41:28 | 显示全部楼层 |阅读模式
在16.x版本的平台上，具体功能和用法见说明。由于不常布局，写完之后用的不多，里面有些地方不太完善，但不影响使用效果，我也没心思改了，谁有兴趣拿去改改，改好了贴上来分享。
  1. ;************************************************************************************
  2. ;Symbol Gather beta1.0
  3. ;
  4. ;功能概述：类似Protel交互布局时器件的聚拢。
  5. ;
  6. ;使用说明：        首先加载此il文件，在pcbenv文件目录下的allegro.ilinit最后一行添加
  7. ;                   load("symbol_gather.il")  ，axlCmdRegister("gs" 'gather_sym)中的"gs"       
  8. ;                为启动命令关键字,可以自定义此关键字。
  9. ;         
  10. ;功能明细        1. 通过在CIW窗口输入gs或者其他已经自定义的命令，启动功能窗体。
  11. ;                        2. 在打开Gather Symbols窗口后，应点击Start/End命令来激活交互功能（此按钮为避免内存浪费）
  12. ;                        3. 聚拢功能是以激活高亮器件的操作来执行的，如若需要聚拢必须（只允许）先高亮这些目标器件。
  13. ;                        6. 窗口中的Hilight按钮的意义是：通过点击按钮可以执行高亮操作。
  14. ;                        4. 可在Capture或Concept HDL原理图交互高亮器件，在功能窗口将显示这些目标器件位号。
  15. ;                        5. 若Active Symbols表中有位号显示，则表示可以执行Gather命令执行内聚。
  16. ;                        6. 点击Gather按钮，则将产生内聚示意图。
  17. ;                        7. 当布局结束必须点击Start/End来结束命令。
  18. ;
  19. ;
  20. ;作者：chen_ck
  21. ;
  22. ;升级历史


  25. axlCmdRegister("gs" , 'gather_sym)

  27. defun( gather_sym ()
  28.         let( (path p)
  29.                 Path = "./_gathersym.form"
  30.                 p = outfile( Path "w")
  31.                
  32.                 fprintf(p "FILE_TYPE=FORM_DEFN VERSION=2\n")
  33.                 fprintf(p "FORM\n")
  34.                 fprintf(p "FIXED\n")
  35.                 fprintf(p "PORT 30 11\n")
  36.                 fprintf(p "HEADER "Gather Symbol"\n")
  37.                 fprintf(p "TILE\n")

  39.                 fprintf(p "TEXT "Active Symbols:"\n")
  40.                 fprintf(p "FLOC 3 1\n")
  41.                 fprintf(p "ENDTEXT\n")

  43.                 fprintf(p "FIELD ref_sym\n")
  44.                 fprintf(p "FLOC 2 3\n")
  45.                 fprintf(p "LIST "" 10 10\n")
  46.                 fprintf(p "OPTIONS multiselect\n")               
  47.                 fprintf(p "ENDFIELD\n")
  48.                
  49.                 fprintf(p "FIELD gather\n")
  50.                 fprintf(p "FLOC 15 4\n")
  51.                 fprintf(p "MENUBUTTON "Gather" 12 5\n")
  52.                 fprintf(p "ENDFIELD\n")
  53.                
  54.                 fprintf(p "FIELD hilight\n")
  55.                 fprintf(p "FLOC 15 10\n")
  56.                 fprintf(p "MENUBUTTON "Hilight" 12 5\n")
  57.                 fprintf(p "ENDFIELD\n")
  58.                
  59.                 fprintf(p "FIELD startend\n")
  60.                 fprintf(p "FLOC 15 16\n")
  61.                 fprintf(p "MENUBUTTON "Start/End" 12 5\n")
  62.                 fprintf(p "ENDFIELD\n")

  64.                 fprintf(p "TEXT "Gather Mode:"\n")
  65.                 fprintf(p "FLOC 15 21\n")
  66.                 fprintf(p "ENDTEXT\n")
  67.                
  68.                 fprintf(p "TEXT\n")
  69.                 fprintf(p "FLOC 25 21\n")
  70.                 fprintf(p "INFO msg 20\n")
  71.                 fprintf(p "FSIZE 20 2\n")
  72.                 fprintf(p "ENDTEXT\n")
  73.        
  74.                 fprintf(p "ENDTILE\n")
  75.                 fprintf(p "ENDFORM\n")
  76.                 close(p)

  78.         axlFormCreate('gather  "_gathersym" '("msglines" 1) 'gatherCB t nil)
  79.         axlUIWPerm(gather t)
  80.         axlFormDisplay(gather)
  81.         deleteFile(Path)
  82.         );let
  83.        
  84.         kg = 0
  85.         axlFormSetField( gather "msg"         "  OFF")
  86. );
  87. defun( gatherCB (gather)
  88.         targ = nil
  89.        
  90.         case(gather->curField
  91.                 ("gather"        
  92.                         if(reflist == nil
  93.                                 then
  94.                                         axlUIWPrint(gather "Please Hilight symbols First!")
  95.                                 else
  96.                                         output())
  97.                 );#1
  98.                 ("hilight"
  99.                         if(kg == 0
  100.                                 then
  101.                                         axlUIWPrint(gather "Please Enable START/END Mode!")
  102.                                 else
  103.                                         hilight()
  104.                         );if
  105.                 );#2
  106.                 ("startend"
  107.                         tig_Ld_Uld()
  108.                 );#3
  109.         );case
  110.         case(gather->doneState
  111.                 (3 axlTriggerClear('xprobe 'myxprobe))
  112.         );case
  113.        
  114.         reflist = nil
  115. );defun
  116. defun( hilight ()
  117.         targ = nil
  118.         axlFormListDeleteAll(gather "ref_sym" )
  119.         axlShell("hilight")
  120. );

  122. defun(myxprobe (items)
  123.         if(car(items) == 'highlight
  124.                 then
  125.                         targ = cons(caadr(items)->refdes targ)
  126.         );if
  127.         axlFormListDeleteAll(gather "ref_sym" )
  128.         when(member(nil targ) targ = remove(nil targ))
  129.         targ = unique(targ)
  130.         axlFormSetField( gather "ref_sym"         targ)

  132.         reflist = targ
  133. );defun

  135. defun( tig_Ld_Uld ()
  136.         if(kg == 0
  137.                 then
  138.                         kg = 1
  139.                         axlTriggerSet('xprobe 'myxprobe)
  140.                         axlFormSetField( gather "msg"         "  ON")
  141.                        
  142.                 else
  143.                         kg = 0
  144.                         axlTriggerClear('xprobe 'myxprobe)
  145.                         axlFormSetField( gather "msg"         "  OFF")
  146.                        
  147.         )
  148. );defun

  150. defun(output ()       

  152.         axlShell("done")

  154.         axlClearSelSet()
  155.         axlSetFindFilter(?enabled list( "noall" "symbols") ?onButtons list( "noall" "symbols"))
  156.        
  157.         sym = makeTable("Symbol" nil)
  158.         k = 0
  159.         LenX = 0
  160.         LenY = 0
  161.         foreach(db reflist
  162.                 k++ ;
  163.                 sym[k] = gensym()
  164.                
  165.                 tmp = car(axlSelectByName("REFDES" db))
  166.                 sym[k]->db = tmp
  167.                 foreach(db0 tmp->children
  168.                         layer = cadr(parseString(db0->layer "/"))
  169.                         if(layer == "PLACE_BOUND_TOP" || layer == "PLACE_BOUND_BOTTOM"
  170.                                 then
  171.                                         box = db0->bBox
  172.                         );if
  173.                 );foreach
  174.                 sym[k]->lenH = xCoord(cadr(box)) - xCoord(car(box))
  175.                 sym[k]->lenV = yCoord(cadr(box)) - yCoord(car(box))
  176.                 sym[k]->Xo = xCoord(car(box))
  177.                 sym[k]->Yo = yCoord(car(box))

  179.                 path = list(        0 : 0
  180.                                                 sym[k]->lenH : 0
  181.                                                 sym[k]->lenH : sym[k]->lenV
  182.                                                 0 : sym[k]->lenV
  183.                                                 0 : 0
  184.                                         );path list
  185.                 outline = axlPathStart(path)
  186.                
  187.                 sym[k]->otl = outline
  188.                
  189.                 LenX = LenX + sym[k]->lenH
  190.                 LenY = LenY + sym[k]->lenV
  191.                
  192.         );foreach
  193.        
  194.         PlenX1 = 0
  195.         PlenX2 = 0
  196.         PlenX3 = 0
  197.         Rsec = 0
  198.         Rtht = 0
  199.         PlenY = 0
  200.         PlenY1 = 0
  201.         for(i 1 k
  202.                
  203.                 if(PlenX1 <= LenX / 3
  204.                         then
  205.                                 PlenX1 = PlenX1 + sym[i]->lenH
  206.                                 org = -(PlenX1 - sym[1]->lenH) : PlenY
  207.                         else if(PlenX2 <= LenX / 3
  208.                                         then
  209.                                                 when(PlenX2 == 0 Rsec = sym[i]->lenH)
  210.                                                 PlenX2 = PlenX2 + sym[i]->lenH
  211.                                                 PlenY = sym[i]->lenV +50
  212.                                                 org = -(PlenX2 - Rsec ) : PlenY
  213.                                                 when(PlenY1 == 0 PlenY1 = PlenY)
  214.                                           else
  215.                                                 when(PlenX3 == 0 Rtht = sym[i]->lenH)
  216.                                                 PlenX3 = PlenX3 + sym[i]->lenH
  217.                                                 PlenY = PlenY1 + sym[i]->lenV +50
  218.                                                 org = -(PlenX3 - Rtht ) : PlenY
  219.                                 );else if
  220.                 );if
  221.                 axlAddSimpleMoveDynamics(org outline "path" ?ref_point 0:0)
  222.                 sym[i]->Xt = - car(org)
  223.                 sym[i]->Yt = - cadr(org)
  224.         );for
  225.        
  226.         if(pic = axlEnterPoint()
  227.                 then
  228.                         move(pic)
  229.         );if
  230.        
  231. );defun


  234. defun( move (pick)

  236.         for(i 1 k
  237.                 relaxy = car(pick) - sym[i]->Xo + sym[i]->Xt : cadr(pick) - sym[i]->Yo + sym[i]->Yt
  238.                 axlTransformObject(sym[i]->db, ?move relaxy)
  239.         );
  240.         axlClearDynamics()
  241.         axlFormListDeleteAll(gather "ref_sym" )
  242.        
  243. );defun




  248.    
复制代码

评分

参与人数 1威望 +4 SKILL币 +8 贡献 +8 收起 理由
vivienluo + 4 + 8 + 8 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-5-15 16:56:45 | 显示全部楼层
感谢分享……
回复 支持 反对

使用道具 举报

发表于 2014-5-15 21:17:33 | 显示全部楼层
布局很有用。多谢
回复 支持 反对

使用道具 举报

发表于 2014-5-15 23:52:21 | 显示全部楼层

感谢分享……
回复 支持 反对

使用道具 举报

发表于 2014-5-16 08:48:43 | 显示全部楼层

布局很有用。多谢
回复 支持 反对

使用道具 举报

发表于 2014-5-17 21:35:17 | 显示全部楼层
谢谢楼主分享
回复 支持 反对

使用道具 举报

发表于 2015-8-28 09:21:28 | 显示全部楼层
很好用的样子，试试
回复 支持 反对

使用道具 举报

发表于 2015-9-2 17:03:15 | 显示全部楼层
布局很有用。多谢
回复 支持 反对

使用道具 举报

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

本版积分规则

Archiver|小黑屋|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备2026063727号|川公网安备51010802033484号 )

GMT+8, 2026-10-24 12:43 , Processed in 0.044465 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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