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

promissingwh

有没有cline to shape的skill，帮忙分享一个。谢谢。
我在论坛上找到的，运行命令后，会出现：
W- *WARNING* (axlDBCreateOpenShape): Invalid database id argument - dbid:removed
3 J* w0 r8 y- H5 g1 }

dzkcool

Allegro自带了这个功能，启动时打开Toolbox选项，Edit->Cross Copy功能就能实现了。
6 W3 ]! I8 n  D6 D2 g1 D1 h/ j

db-_-

16.x及之前的版本需要把出现的两个“?undo t"删掉。

; o1 r& P, }  A6 P7 x

1. ;###############################################################################
   
2. ;                                                                              #
   
3. ;                      Command: cline2shape                                    #
   & {. `4 z: g& C6 T0 e1 Z+ S# L8 c
4. ;                   Skill File: cline2shape.il                                 #
   $ f7 v( a0 E% @" b* A, @  Z
5. ;               How To Execute: Command> cline2shape                           #
   - M; G6 V# n, P; P2 x1 e
6. ;                                                                              #
   ( \3 _. j% \( Y" _
7. ;  DISCLAIMER:                                                                 #
   / p3 A9 k. H& T) T, t& `3 J
8. ;       The user of this command assumes all responsibility and does not       #
   * l, d, a% b7 {- ?* P! r! Y
9. ;       hold Cadence Design Systems nor the author of this code for any        #
   1 W  }% @* N  X2 n4 I- g# v: ]
10. ;       unwarranted results or problems due to the use of this code.           #
    2 \( ?, [- h' |1 }0 c0 \$ m
11. ;                                                                              #
    " F9 ^! G4 r( {+ ~* W
12. ;       This is non-supported code and the user may modify it as needed.       #
    
13. ;                                                                              #
    
14. ;###############################################################################
    ) g2 ^; L/ m$ x" a/ W
15. 
    - m; m  {8 ~! f, C
16. ; demostrates
    
17. ;        1) style for an interactive command
    
18. ;        2) use of the database tranasction APIs
    - @* g& _7 y2 [2 z9 a1 S! k2 k
19. ;        3) two styles of undo/redo support
    
20. ; Added undo support
    
21. 
    ) l* V  b, P7 k0 N
22. ;  Know Bug: Sometimes the program will not convert all cline segments but it
    ' `, B: r- ~1 T  m6 b$ M4 |
23. ;            will DELETE all segments.  Use at your OWN discretion!
    
24. ;            Select Cancel or Undo before exiting the command to restore  
    
25. ;            to original Clines.
    
26. 
    + T* _, N- n/ l* s* _2 J
27. 
    " X, _% {$ N/ z& ?, _# b
28. 
    ; j' I" E4 H& ?& c0 T# c8 B
29. 
    . n+ A. S  p$ v, ^0 g
30. axlCmdRegister("cline2shape" 'LCB_cline_to_shape ?cmdType "interactive"
    ( R" N' P! Z8 X! g- N% r% u5 {8 S
31. ?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
    8 O- Y  c+ `% I; \. n
32. axlCmdRegister("cline2shape2" 'LCB_cline_to_shape2 ?cmdType "interactive"
    % w8 R, B+ Z# c7 w, }: S" y
33. ?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
    . e0 o, E1 z4 k( m+ r) ^" w9 d
34. 
    ' i' U% P0 p5 A9 s2 d/ M
35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ! }0 F8 E0 c5 r
36. ; This shows undo where all of the conversions that this user does while
    
37. ; in the command a undone as a single operation.
    ' z+ x3 y0 a  ]; \7 i* g# F
38. ;        To convert an existing command to support undo this method is
    
39. ;        typically easier.
    ; S6 D: h/ |9 `4 t% L) L+ }* P
40. 
    
41. procedure(LCB_cline_to_shape()
    9 r# i$ H3 Q! z- z/ w
42. let( (lclines layer polydbid )
    4 g" U- h  b5 }. A5 m( C% z
43. 
    
44.   LCB_Setup()
    $ c& g9 X& B( s0 c6 }
45. 
    + c& k# x9 K( X# t( Q# T
46.   ; cannot have a global transaction if we want undo to roll back each operation
    
47.   LCB_mark = axlDBTransactionStart()
    7 D; d; e; N  F5 t1 b/ a$ t
48. 
    
49.   LCBnotDone = t
    ) R$ U( @$ ]+ M" F* s2 T8 Q
50.   while( LCBnotDone
    ( T# v5 P7 Z- n) q3 f5 G
51.       lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
    ' ~. @3 u$ ~/ P+ Q8 ]3 i: y
52. 
    
53.       foreach( clinedbid lclines
    5 P5 G! u% U7 T# O8 i1 T
54.             layer = clinedbid->layer
    1 D9 Z3 P' ^) S. Q/ t
55.             polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
    : Z: q! m( Q; t3 j- y
56. 
    , d9 K$ x4 ^0 V0 W2 V
57.             axlDeleteObject(clinedbid)
    4 @, |7 K4 [* k
58. 
    7 Y/ O0 o& A8 V. q
59.             unless( axlDBCreateShape(car(polydbid) t layer)  
    + N1 f6 g  I; h
60.                 axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
    
61.             )
    
62.             when( cadr(polydbid)
    
63.                 axlDBCreateShape(cadr(polydbid) t layer)
    " d! P2 e9 i1 U( S0 z$ K
64.             )
    
65.      )
    . o, X5 P" x9 A: @# L+ Y
66. 
    
67.      ; marks are only required if undo is using rolling back all database changes
    " f  z! W5 A. q5 k- I
68.      ; when command is active. When undoing each conversion this is not needed
    
69.      ; nor is Oops functional.
    % v) C: {+ E4 G4 B
70.      when(LCB_mark axlDBTransactionMark(LCB_mark))
    
71.   )
    * N& R) K+ j  }  F) h! k9 H  e" t# Z
72.   ;LCB_Done() ; just in case
    , {( B5 e" i- Z$ m4 z
73. ))
    
74. 
    
75. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    3 {4 ]. @/ w; w5 O( \- g' `: x
76. ; This shows undo where each conversion is supported as seperate undo operation
    
77. ; in the command a undone as a single operation.
    7 F% {+ H- X& P  e6 L2 W: C
78. ;        To convert an existing command to support undo this method is
    
79. ;        typically easier.
    1 w6 M% \  S" t# `4 A; t3 Y- u8 m
80. 
    4 K+ C/ I6 {7 D' n9 r, @$ Y6 @
81. procedure(LCB_cline_to_shape2()
    8 h1 J/ G- \( j" N6 N
82. let( (lclines layer polydbid doMark )
    
83. 
    
84.   LCB_Setup()
    , G7 y* T" N2 _
85. 
    1 I) Y# |5 K& p& r( n
86.   ; cannot have a global transaction if we want undo to roll back each operation
    
87. 
    ' a) e3 B6 X! r9 i
88.   LCBnotDone = t
    - L1 N6 O& M( w. U* ]
89.   doMark = 'undoMark
    
90. 
    
91.   while(LCBnotDone
    " c) D1 x% m1 p  r5 s
92.       lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
    
93. 
    " k1 G9 \0 X+ }9 i& N4 G, e" _4 X
94.       ; need to do a start/commit for each operation if we want undo to
    $ w% A% R" R2 m6 g. }
95.       ; rollback each change. This mostly disables Oops
    ( V& S. G" H7 I8 ]& k% T
96.       ;          don't want to start a transaction unless we have work to do or it will
    
97.       ;   do a unneeded undoMark.
    - J* [1 g5 O% \8 C1 J& ]' o8 d: ^! A
98.       when(lclines
    2 S1 ~3 u5 ^% ^' E6 }6 [+ J" Y. `  f5 P
99.           LCB_mark = axlDBTransactionStart(doMark)
    ) D4 y8 z( @$ |9 J5 m
100.       )
     
101. 
     & y7 s9 \% u. Q
102.       foreach( clinedbid lclines
     & r" S$ B' F6 P7 x! G: L/ d
103.             layer = clinedbid->layer
     0 p. \# M8 N8 S4 k0 C
104.             polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
     ; ?; v8 b4 C% h, i: T
105. 
     
106.             axlDeleteObject(clinedbid)
     
107. 
     
108.             unless( axlDBCreateShape(car(polydbid) t layer)
     
109.                 axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
     - h4 R- [+ o0 v3 g6 R
110.             )
     3 t+ c2 X: ^" W3 V! H8 Z% \
111.             when( cadr(polydbid)
     ' l* W9 i: i2 B% x$ t; j9 r
112.                 axlDBCreateShape(cadr(polydbid) t layer)
     1 X7 s# Y4 x6 n# Q9 n  H! }% d. Q
113.             )
     
114.      )
     ! v4 E, z* K% P! ~4 N+ _& G$ R+ {; A
115. 
     
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" c% C. }% X1 T8 }/ I6 v  s# K" ^
118.      ; nor is Oops functional.
     ) O3 I6 ^2 }. V/ m( J
119.      when(LCB_mark axlDBTransactionCommit(LCB_mark))
     
120.      LCB_mark = nil
     
121.   )
     * I! k' E+ a& f9 g1 T
122.   LCB_Done() ; just in case
     
123. ))
     
124. 
     
125. 
     # J- z, P. F0 m
126. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
127. ;; support APIs
     
128. 
     % `) R; y( W( M+ X0 Z
129. procedure(LCB_Setup()
     6 y0 [' n- I% A1 h
130. let( (popup)
     , q5 M$ N" r, s5 y3 I7 L
131.   axlSetFindFilter(?enabled list("noall" "clines")
     ; M0 z/ @7 J: Q9 o& R# L0 a  L
132.                   ?onButtons list("noall" "clines"))
     
133. 
     
134.   popup = axlUIPopupDefine( nil (list
     
135.     (list "Done" 'LCB_Done)
     ! z/ h0 H/ z) p$ e. _6 y
136.     (list "Oop" 'LCB_Oops)
     9 `' o* r8 M8 Q! C# J
137.     (list "Cancel" 'LCB_Cancel)
     9 L1 [* z+ V0 \
138.      ))
     " s- A6 L0 u3 w) n1 p) z
139. 
     ! L3 h/ ^! N1 U
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
     
142.   axlSnapEnableAtRMB()
     ( {4 |: g; L7 v1 f. P
143. 
     
144.   axlUIPopupSet(popup)
     " K8 ~/ h$ R3 {8 y+ q
145.   LCB_mark = nil
     
146. ))
       F8 T" y* ~0 b. B5 e& d  n9 i
147. 
     
148. procedure(LCB_Oops()
     9 V9 V& ^5 X4 |2 t: w/ D# z% m
149.   when(LCB_mark
     % b' a; d3 t! d% W
150.     if(! axlDBTransactionOops(LCB_mark) then
     
151.       axlUIWPrint(nil "-- Nothing Left To oops. --")
     
152.     else
     
153.       axlUIWPrint(nil "-- Replacing Clines. --")
     3 W( O& C' h! m6 \7 r
154.     )
     : m1 P) s) Y& R9 x" D
155.   )
     ' @7 h) Q, X: N0 o" _+ r8 n
156.   axlClearSelSet()
     
157. )
     
158. 
     
159. procedure(LCB_Cancel()
     * y! p6 _7 p4 m) k) F
160.   axlUIWPrint(nil "** Cancelled Program. **")
     1 g* U0 H1 c6 R0 s
161.   when( LCB_mark axlDBTransactionRollback(LCB_mark))
     % R% S" ?$ X: W( c  F; K! s# r5 X
162.   ;LCB_mark = nil
     
163.   LCBnotDone = nil
     5 Z6 z! P7 @# F( ^, J
164.   axlClearSelSet()
     
165.   axlCancelEnterFun()
     ) d. Z% |) m9 T( M' e7 @  Q. l" I
166. )
     
167. 
     9 h, Q( I- q- [3 F( j! `% |9 r
168. 
     ) r3 }8 U9 I8 L1 ^. f+ [  v
169. procedure(LCB_Done()
     + n1 R0 ^2 B- ^/ i$ S$ B
170.   when( LCB_mark axlDBTransactionCommit(LCB_mark))
     3 g1 a" g2 Q6 a% ~4 l- ~
171.   ;LCB_mark = nil
     
172.   LCBnotDone = nil
     
173.   axlFinishEnterFun()
     9 j6 d& v% b' Y4 Q5 F% ~$ W/ }5 G9 o
174. )
     - i, W5 L5 b  m. e  u* k. N

复制代码

子木_eda

db-_- 发表于 2022-2-18 11:54
* }# q7 ], N0 Y9 y" K% L$ ~16.x及之前的版本需要把出现的两个“?undo t"删掉。

: \$ t- L. i# l0 Q8 S删掉也不行，还是报错E- *Error* axlDBTransactionStart: too many arguments (0 expected, 1 given) - (undoMark)

ph20009

看一下，学一下

owenli520

dzkcool 发表于 2019-1-2 15:50
# g) D5 ~* C0 j# X# d; K  Q) FAllegro自带了这个功能，启动时打开Toolbox选项，Edit->Cross Copy功能就能实现了。

学习了
/ ]1 {! V& l, Z! H  y" _( H

lavidayao

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

请问16.6有这个功能吗
; i2 Y- ^: i3 S# l+ p5 ?4 V

dzkcool

从16.6开始就有了

13349852893

allegro productivity toolbox

13349852893

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

owenli520

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

新版本有，我用的17.2

melody55555

新版的功能学习起来

nnew

13349852893 发表于 2019-1-4 11:21
- Q2 c. X: s. `% d2 Z% \allegro productivity toolbox

1 u1 V7 f1 R; e1 [請問是在哪裡呢? 我的沒瞧見
" b& Z% {& L, r# M% c

何文斌

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

promissingwh

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

这个15.X版本就已经有了的。不过还是感谢回答。

promissingwh

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

我哪儿都找不到toolbox，请问在哪里可以打开？麻烦告之，谢谢！

promissingwh

dzkcool 发表于 2019-1-4 10:16
3 ]! U4 X; S1 {' W' {1 u5 s/ S从16.6开始就有了

* q, h" O+ v* i, D是不是需要再打个补丁？