大量铜皮指定属性操作

abu1987

求大神来个大量相同模块铜皮属性指定的快捷方法，或者求大神告知下此类skill怎么写？

521li

我每次都是慢慢的改，但是你这个需求能提高工作效率，
看看大神一会回复，坐等大神出现

abu1987

几个的话是没必要，一个个画和指定，先后指定铜皮属性都是可以的，我说的是大量的。几十个相同模块的，画好一个，其他复制过去，得一个一个指定，VENSEN skill之前用是可以，但是后来收费了，所以香求大神给个快捷的SKILL或者告知下怎么编写代码的

deargds

abu1987 发表于 2023-4-11 10:58
几个的话是没必要，一个个画和指定，先后指定铜皮属性都是可以的，我说的是大量的。几十个相同模块的，画好 ...

官方Skill示例中有类似的功能代码:\share\pcb\examples\skill\cmds\changeNetsOnManyShapes.il

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
2. ;
   
3. ; Author --
   
4. ;        Cadence Design Systems
   
5. ;
   
6. ; Function --
   
7. ;       
   
8. ; Copyright, 2003, Cadence Design Systems, Inc.
   
9. ; No part of this file may be reproduced, stored in a retrieval system,
   
10. ; or transmitted in any form or by any means --- electronic, mechanical,
    
11. ; photocopying, recording, or otherwise --- without prior written permission
    
12. ; of Cadence Design Systems, Inc.
    
13. ;
    
14. ; WARRANTY:
    
15. ; NONE. NONE. NONE.
    
16. ; Use all material in this code at your own risk.  Cadence Design Systems
    
17. ; makes no claims about any material in this archive.  These examples may
    
18. ; not function or may only function in specific instances. We'd like to hear
    
19. ; what you think of our approach to this, and how we can improve it.
    
20. ;
    
21. ; RESTRICTIONS:
    
22. ; All software contained within this archive is in the public domain or
    
23. ; the author has given us permission for redistribution.  Some packages
    
24. ; have explicit copyrights and notices concerning their redistribution.
    
25. ; Please carefully read all documentation with any package on this tape.
    
26. ;
    
27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
28. 
    
29. ; This allows a user to assign/change nets assign to one or more
    
30. ; shapes. Command started user is prompted to pick one or more
    
31. ; shapes (e.g. pick or by window). User is then presented with a net
    
32. ; browser to select net.
    
33. 
    
34. ; Examples of axl function use (for more info on individual functions
    
35. ;        see the documentation)
    
36. ;
    
37. ; This demostrates writing a simple interactive Allegro command that
    
38. ;
    
39. ;   axlSetFindFilter: Prompt user to find elements
    
40. ;   axlControlRaise: raise a panel in options
    
41. ;   axlUIPopupSet: define your own popup
    
42. ;
    
43. ;   axlDBTransaction<XXX>:  database transactions (conditional database changes)
    
44. ;   axlDBCloak: Improve performance when making multiple etch/logic changes
    
45. ;
    
46. ;   axlChangeNet: change the net associated with a database object
    
47. ;   
    
48. ;
    
49. 
    
50. _ashChangeNetFinish = nil
    
51. 
    
52. (defun ashChangeShapeNets ()
    
53.     (let (oldPopup procFunc)
    
54.         oldPopup = axlUIPopupSet(axlUIPopupDefine(nil
    
55.                                 '(("Cancel" _ashChangeNetCancel)
    
56.                                   ("Done" _ashChangeNetDone))))
    
57. 
    
58.         procFunc = '_ashChangeNetsListCloak
    
59.         axlControlRaise('find)
    
60.         axlSetFindFilter(?enabled '("NOALL" "SHAPES" )
    
61.                          ?onButtons '("SHAPES"))
    
62.         mark = axlDBTransactionStart()
    
63.         while( axlSelect(?prompt "Select shapes(s) to change nets")
    
64.              apply(procFunc list(axlGetSelSet()))
    
65.         )
    
66. 
    
67.         if( _ashChangeNetFinish then
    
68.             axlDBTransactionCommit(mark)
    
69.         else
    
70.             axlUIWPrint(nil 'warn "Canceled.\n")
    
71.             axlDBTransactionRollback(mark)
    
72.         )
    
73.         axlUIPopupSet(oldPopup)
    
74.         nil
    
75. ))
    
76. 
    
77. (defun _ashChangeNetsListCloak (shapes)
    
78.     (let (net )
    
79. 
    
80.     axlDBCloak( '_ashChangeNetsList(shapes) ))
    
81. )
    
82. 
    
83. (defun _ashChangeNetsList (shapes)
    
84.     (let (net )
    
85. 
    
86.     net = axlUIDataBrowse('NET '(RETRIEVE_OBJECT) "Select Net" t)
    
87.     when(net
    
88.         axlUIWPrint(nil 'info0 "Changing shapes to net %s...\n" car(net))
    
89.         net = cadr(net)
    
90.         foreach(item shapes
    
91.             ; only change shapes already with a net
    
92.             when(item->net
    
93.                 axlChangeNet(item net))
    
94.         )
    
95.         axlUIWPrint(nil 'info0 "Completed.\n")
    
96.     )
    
97. ))
    
98. 
    
99. (defun _ashChangeNetCancel ()
    
100.         axlCancelEnterFun()
     
101.         _ashChangeNetFinish = nil
     
102. )
     
103. 
     
104. (defun _ashChangeNetDone ()
     
105.         axlFinishEnterFun()
     
106.         _ashChangeNetFinish = t
     
107. )
     
108. 
     
109. 
     
110. axlCmdRegister("changeshapenet" 'ashChangeShapeNets
     
111.                         ?cmdType "interactive"
     
112.                         ?doneCmd '_ashChangeNetDone
     
113.                         ?cancelCmd '_ashChangeNetCancel)
     

复制代码

max192

+1。。。。。。。