pin number居中

定风波H

求大神分享一个pin number居中skill

bellring840507

在放置焊盘时，在options中设置offset x=0 y=0.

leoyin

同问一下~~~

db-_-

1. ;;v1.0 初稿
   
2. axlCmdRegister("mvpn" 'dbMovePnCernter
   
3.                 ?cmdType "interactive"
   
4.                 ?doneCmd '_dbMovePnCernterDone
   
5.                 ?cancelCmd '_dbMovePnCernterCancel
   
6. )
   
7. 
   
8. ;;---------------------------------------------------------
   
9. ;; skill load "move_pinnumber_center.il"
   
10. ;;指令: mvpn
    
11. ;;功能: 移动Pin Number到Pin的中心
    
12. ;;描述: v1.0
    
13. ;; 仅支持SYMBOL模式，如需支持LAYOUT模式，请自行删去条件限制。
    
14. ;;---------------------------------------------------------
    
15. 
    
16. ;;主函数
    
17. procedure(dbMovePnCernter()
    
18. (let (oldVis)
    
19. 
    
20.     axlUIWPrint(nil 'info0 "------Move PinNumber To Center, Version 1.0, Author: db")
    
21.     axlUIPopupSet(axlUIPopupDefine(nil
    
22.                 '(("Done" _dbMovePnCernterDone)
    
23.                   ("Cancel" _dbMovePnCernterCancel)
    
24.     )))
    
25.     mk_mvpn = axlDBTransactionStart()
    
26. 
    
27.     oldVis =  axlVisibleGet()
    
28.     axlVisibleDesign(nil)
    
29.     axlVisibleLayer("PIN/TOP" t)
    
30.     axlVisibleLayer("PIN/BOTTOM" t)
    
31.     axlVisibleLayer("PACKAGE GEOMETRY/PIN_NUMBER" t)
    
32.     axlVisibleUpdate(nil)
    
33. 
    
34.     axlSetFindFilter(?enabled `("NOALL" "text") ?onButtons `("NOALL" "text"))
    
35.     axlClearSelSet()
    
36.     axlAddSelectAll()
    
37.    
    
38.     if(axlDesignType(nil) == "SYMBOL" then
    
39.         _dbMovePnCernter(axlGetSelSet())
    
40.     else
    
41.         printf("LAYOUT type is not supported!\n")
    
42.     )
    
43.     axlClearSelSet()
    
44. 
    
45.     axlVisibleSet(oldVis)
    
46.     axlVisibleLayer("PACKAGE GEOMETRY/PIN_NUMBER" t)
    
47.     axlVisibleUpdate(nil)
    
48. 
    
49.     dbMovePnCernterEvent()
    
50.     axlUIPopupSet(nil)
    
51. ))
    
52. 
    
53. ;获取鼠标单击事件
    
54. procedure( dbMovePnCernterEvent()
    
55. (let (event loop )
    
56.     loop = t
    
57.     while( loop
    
58.         event = axlEnterEvent('(PICK) nil nil)
    
59.         caseq(event->type
    
60.             (DONE
    
61.                 loop = nil
    
62.                 _dbMovePnCernterDone()
    
63.             )
    
64.             (CANCEL
    
65.                 loop = nil
    
66.                 _dbMovePnCernterCancel()
    
67.             )
    
68.         )
    
69.     )
    
70. ))
    
71. 
    
72. ;;旋转文字，并居中
    
73. procedure(_dbMovePnCernter(items)
    
74. (let (prt)
    
75. 
    
76.     foreach(i items
    
77.         prt = i->parent
    
78.         when( prt
    
79.             axlTransformObject(i ?angle -i->rotation)        ;旋转文字
    
80.             axlTransformObject(i ?move axlMXYSub(axlDBAltOrigin('center prt) axlDBAltOrigin('center i)) ?angle -i->rotation) ;移动文字
    
81.         )
    
82.     )
    
83. ))
    
84. 
    
85. procedure( _dbMovePnCernterDone()
    
86.     axlDBTransactionCommit(mk_mvpn)
    
87.     axlFinishEnterFun()
    
88. )
    
89. 
    
90. procedure( _dbMovePnCernterCancel()
    
91.     axlDBTransactionRollback(mk_mvpn)
    
92.     axlCancelEnterFun()
    
93. )

复制代码

antoni2011

db-_- 发表于 2024-12-31 10:48

大佬,真强.学习了

MioMk

太牛了

倾听风雨

好东西，找了好久