有没有cline to shape的skill，帮忙分享一个。谢谢。

promissingwh

6 q; g! }" M$ x
有没有cline to shape的skill，帮忙分享一个。谢谢。
, h. J, L5 s) G8 [* {8 N我在论坛上找到的，运行命令后，会出现：
# D9 B% l. L! [' O: XW- *WARNING* (axlDBCreateOpenShape): Invalid database id argument - dbid:removed
8 G% j/ ^8 r  I1 c

dzkcool

Allegro自带了这个功能，启动时打开Toolbox选项，Edit->Cross Copy功能就能实现了。
3 l. G  r8 t/ T) F) M6 j

db-_-

16.x及之前的版本需要把出现的两个“?undo t"删掉。
! V" Q% h1 `6 m  C- q8 F

1. ;###############################################################################
   / Z# E2 k: b9 q
2. ;                                                                              #
   
3. ;                      Command: cline2shape                                    #
   + {9 o* s8 s+ o! y3 q& ^  i2 a
4. ;                   Skill File: cline2shape.il                                 #
   
5. ;               How To Execute: Command> cline2shape                           #
   
6. ;                                                                              #
   
7. ;  DISCLAIMER:                                                                 #
   
8. ;       The user of this command assumes all responsibility and does not       #
   2 T9 q* H- Q; N/ Q
9. ;       hold Cadence Design Systems nor the author of this code for any        #
   % k, F, E6 M; i
10. ;       unwarranted results or problems due to the use of this code.           #
    
11. ;                                                                              #
    
12. ;       This is non-supported code and the user may modify it as needed.       #
    # I. P/ C" \. V  P- r) y% }
13. ;                                                                              #
    
14. ;###############################################################################
    
15. 
    & e' @& U  a! f7 q& `1 f: `* [
16. ; demostrates
    6 Z* q/ A8 {7 T
17. ;        1) style for an interactive command
    3 {" D* n: e3 w* }3 w! O; F; [1 P0 W
18. ;        2) use of the database tranasction APIs
    
19. ;        3) two styles of undo/redo support
    ! _: W5 o, z2 J
20. ; Added undo support
    
21. 
    
22. ;  Know Bug: Sometimes the program will not convert all cline segments but it
    
23. ;            will DELETE all segments.  Use at your OWN discretion!
    
24. ;            Select Cancel or Undo before exiting the command to restore  
    6 V8 d% s8 \/ K, a9 }2 [
25. ;            to original Clines.
    8 S- y% y9 `" k3 R( l! j( g
26. 
    ) Y* x1 U9 i7 E- {
27. 
    
28. 
    
29. 
    + L0 f! F1 _: [' {( U/ F9 S# S9 r
30. axlCmdRegister("cline2shape" 'LCB_cline_to_shape ?cmdType "interactive"
    
31. ?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
    
32. axlCmdRegister("cline2shape2" 'LCB_cline_to_shape2 ?cmdType "interactive"
    
33. ?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
    2 T$ Q" u- O2 `( z6 v7 c, b
34. 
    
35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    4 U; V5 R" l8 M/ v# w& k4 B
36. ; This shows undo where all of the conversions that this user does while
    
37. ; in the command a undone as a single operation.
    
38. ;        To convert an existing command to support undo this method is
    4 A( ?5 J: i, R# o
39. ;        typically easier.
    
40. 
    / J, W  |5 S) p" s3 G0 v! P
41. procedure(LCB_cline_to_shape()
    / y1 F  D9 |7 g8 i- X
42. let( (lclines layer polydbid )
    - Z* K8 {) d# |! }- K
43. 
    
44.   LCB_Setup()
    
45. 
    6 Q: ~5 |" s6 d7 Z2 H$ r9 C, m
46.   ; cannot have a global transaction if we want undo to roll back each operation
    
47.   LCB_mark = axlDBTransactionStart()
    8 |9 T, e0 N- A2 j6 k
48. 
    . D! M9 _7 V# Y$ J7 M% ]% Y
49.   LCBnotDone = t
    6 D: d8 g' y$ }% {0 c4 R
50.   while( LCBnotDone
    
51.       lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
    " V; [  O2 s) K% F9 g8 v% }
52. 
    
53.       foreach( clinedbid lclines
    
54.             layer = clinedbid->layer
    
55.             polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
    6 V5 D7 u/ }9 G0 [6 ]! R
56. 
    
57.             axlDeleteObject(clinedbid)
    
58. 
    / E' l& v* Q, u, c
59.             unless( axlDBCreateShape(car(polydbid) t layer)  
    # R0 O# R* g, t& r: w8 T5 }& }
60.                 axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
    5 d6 O+ y: S/ D! \5 K- O6 G, N
61.             )
    
62.             when( cadr(polydbid)
    
63.                 axlDBCreateShape(cadr(polydbid) t layer)
    9 \$ R. F/ x6 X; z* U
64.             )
    ! s+ S- A3 Y* n, E+ I: ^/ x
65.      )
    : K! u( K& L( K
66. 
    
67.      ; marks are only required if undo is using rolling back all database changes
    2 k* E6 Z, n) r4 p1 `8 }- A
68.      ; when command is active. When undoing each conversion this is not needed
    
69.      ; nor is Oops functional.
    ) Z, O0 j! w& F8 [: |
70.      when(LCB_mark axlDBTransactionMark(LCB_mark))
    ' [4 ]( z( B' f4 ^+ i
71.   )
    
72.   ;LCB_Done() ; just in case
    
73. ))
    
74. 
    
75. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
76. ; This shows undo where each conversion is supported as seperate undo operation
    # D+ Y. e+ T9 d, M8 ]: @: ^
77. ; in the command a undone as a single operation.
    * J+ P7 R5 B' \
78. ;        To convert an existing command to support undo this method is
    
79. ;        typically easier.
    
80. 
    & b0 F9 V: a3 {2 a9 P7 ~8 D* {0 g
81. procedure(LCB_cline_to_shape2()
    
82. let( (lclines layer polydbid doMark )
    
83. 
    
84.   LCB_Setup()
    
85. 
    
86.   ; cannot have a global transaction if we want undo to roll back each operation
    1 d( q6 d7 C  e" |. G3 h1 @
87. 
    
88.   LCBnotDone = t
    1 z) Q4 ^% u% z! L4 U8 Y0 m
89.   doMark = 'undoMark
    
90. 
    4 ~/ c( P  J$ M* I) d
91.   while(LCBnotDone
    7 P: U# \+ {* @" c+ s0 M/ f; g; j
92.       lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
    
93. 
    + K- b+ B( f2 _0 L7 Z
94.       ; need to do a start/commit for each operation if we want undo to
    
95.       ; rollback each change. This mostly disables Oops
    
96.       ;          don't want to start a transaction unless we have work to do or it will
    & z! |9 ?# T2 F
97.       ;   do a unneeded undoMark.
    
98.       when(lclines
    
99.           LCB_mark = axlDBTransactionStart(doMark)
    & x  C( W7 T  h+ J( M$ d
100.       )
     
101. 
     ' E' c+ f+ a* U
102.       foreach( clinedbid lclines
     
103.             layer = clinedbid->layer
     # u' s2 v, J/ U
104.             polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
     
105. 
     
106.             axlDeleteObject(clinedbid)
     
107. 
     
108.             unless( axlDBCreateShape(car(polydbid) t layer)
     
109.                 axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
     
110.             )
     1 C( V. O3 B9 _  h
111.             when( cadr(polydbid)
     ! ?( {& \: k$ Z, w  W
112.                 axlDBCreateShape(cadr(polydbid) t layer)
     2 |- V4 e! E1 m9 v3 h4 w
113.             )
     
114.      )
     
115. 
     $ `; Y; ^$ l1 l
116.      ; marks are only required if undo is using rolling back all database changes
     
117.      ; when command is active. When undoing each conversion this is not needed
     ' N" S( T! b6 p% Q) h
118.      ; nor is Oops functional.
     # p  x* [% p$ U8 p/ m
119.      when(LCB_mark axlDBTransactionCommit(LCB_mark))
     
120.      LCB_mark = nil
     ! B8 X% ]5 Y# `4 a0 [
121.   )
     . y% J& t' i  z3 g- b
122.   LCB_Done() ; just in case
     5 E+ Q& B; T' |% f/ y
123. ))
     
124. 
     3 n4 n# \9 T$ C: X% b
125. 
     ! i$ @7 b2 H' W' G
126. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
127. ;; support APIs
     
128. 
     + L' |; K2 s8 ~5 ~. J1 x& t8 `
129. procedure(LCB_Setup()
     
130. let( (popup)
     * N7 k$ j  j  C) E' y8 _$ C
131.   axlSetFindFilter(?enabled list("noall" "clines")
     & V5 I# o* g1 M* u0 W/ X
132.                   ?onButtons list("noall" "clines"))
     " s) F2 a6 x2 [3 K: S! h
133. 
     ) t9 m1 q+ ?3 _
134.   popup = axlUIPopupDefine( nil (list
     
135.     (list "Done" 'LCB_Done)
     
136.     (list "Oop" 'LCB_Oops)
     6 I; x/ [* W$ g
137.     (list "Cancel" 'LCB_Cancel)
     # M) |- W0 v* ^9 Q
138.      ))
     
139. 
     + R. c- O; x; M* \3 w
140.   ; Snapping is not required by this command but this shows the ability
     
141.   ; to add the snap sub-menu to the Right Mouse Popup menu
     0 ^. ?6 i+ j# ]7 {: B$ c
142.   axlSnapEnableAtRMB()
     
143. 
     
144.   axlUIPopupSet(popup)
     : _6 _7 j! r  j6 c& a
145.   LCB_mark = nil
     6 h: q( z+ {; j+ j. |' M; l; H+ E
146. ))
     - A1 [) s$ R3 W' f6 v( G) T- L
147. 
     + M9 \# J5 N5 l% r' S- s
148. procedure(LCB_Oops()
     
149.   when(LCB_mark
     - n: ]5 V, e4 B; K+ t1 A
150.     if(! axlDBTransactionOops(LCB_mark) then
     . e$ J" a- h3 `5 v  _+ g
151.       axlUIWPrint(nil "-- Nothing Left To oops. --")
     
152.     else
     
153.       axlUIWPrint(nil "-- Replacing Clines. --")
     
154.     )
       T+ N. U' e( `* h! K
155.   )
     
156.   axlClearSelSet()
     ! R6 s' d3 f. h
157. )
     ) V0 {( M1 F2 M
158. 
     ) k+ s2 G; Z% H
159. procedure(LCB_Cancel()
     4 p3 W8 T% F( {9 J, O: F
160.   axlUIWPrint(nil "** Cancelled Program. **")
     
161.   when( LCB_mark axlDBTransactionRollback(LCB_mark))
     
162.   ;LCB_mark = nil
     3 L' P( z1 @% O( M% h" j
163.   LCBnotDone = nil
     
164.   axlClearSelSet()
     ! R* ^- ~, Q! \# d! q( C3 d" ?
165.   axlCancelEnterFun()
     7 b. V8 p" v( b& F, d
166. )
     
167. 
     
168. 
     
169. procedure(LCB_Done()
     ; U; w$ X! w6 \1 `3 Z5 ~
170.   when( LCB_mark axlDBTransactionCommit(LCB_mark))
     
171.   ;LCB_mark = nil
     * p' W3 w) f: T7 c, j
172.   LCBnotDone = nil
     4 A6 V$ U5 ~" ?. y" O
173.   axlFinishEnterFun()
     
174. )
     

复制代码

子木_eda

db-_- 发表于 2022-2-18 11:54
16.x及之前的版本需要把出现的两个“?undo t"删掉。

删掉也不行，还是报错E- *Error* axlDBTransactionStart: too many arguments (0 expected, 1 given) - (undoMark)

ph20009

看一下，学一下

owenli520

dzkcool 发表于 2019-1-2 15:50
Allegro自带了这个功能，启动时打开Toolbox选项，Edit->Cross Copy功能就能实现了。

学习了
( Q( h% l6 _* b

lavidayao

owenli520 发表于 2019-1-4 10:00
学习了

9 c" i; y8 a. u$ D请问16.6有这个功能吗
3 G. \& p0 i. E" D

dzkcool

从16.6开始就有了

13349852893

allegro productivity toolbox

13349852893

corss copy确实很好用，还可以直接将pad copy成shape,对于挖空来说很方便。

owenli520

lavidayao 发表于 2019-1-4 10:14
请问16.6有这个功能吗

0 V) L! q$ y! s* R& ~7 h& {. k- T新版本有，我用的17.2
+ C. M2 T1 G, ]5 z. H

melody55555

新版的功能学习起来

nnew

13349852893 发表于 2019-1-4 11:21
1 _* W  r8 x/ e* G/ ?7 aallegro productivity toolbox

" U# J- o4 M. s# l+ b  S5 v$ ^- _請問是在哪裡呢? 我的沒瞧見

何文斌

16.6版本 shape栏有个compose shape 选中后，在optins 选项栏中 设置好你要的shape图层属性。在finds中只勾选lines然后框选你的闭合线框就会生成你设定的shape。注意线框一定要闭合的

promissingwh

何文斌 发表于 2019-1-9 10:16
16.6版本 shape栏有个compose shape 选中后，在optins 选项栏中 设置好你要的shape图层属性。在finds中只勾 ...

这个15.X版本就已经有了的。不过还是感谢回答。
+ F# I& L, W- p) A- x: }

promissingwh

dzkcool 发表于 2019-1-4 10:16
从16.6开始就有了

& r3 V5 [$ ]4 S3 X. m7 b; l1 O我哪儿都找不到toolbox，请问在哪里可以打开？麻烦告之，谢谢！

promissingwh

dzkcool 发表于 2019-1-4 10:16
% P% M$ ^/ `) Z" W从16.6开始就有了

. o0 c7 k1 S- e0 K* I0 k+ C是不是需要再打个补丁？
; t" g$ c9 R; ]$ L: l