抓了一個修改via size skill file沒有效果, 請高手指點 ...

motofatfat

如題:內文如下
( D2 k! |3 m0 L! @9 e% ~. {procedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )

        Size = hiCreateFloatField(
      ?name 'Size
      ?prompt "Size Offset(+/-):"
      ?value 0.1
       ?defValue 0.1
        )
3 J* G; v2 X8 a, {: w1 s  n
! o3 c8 e8 t: e! a% A0 V        LibName = hiCreateStringField(
/ J* M; V, {% F7 Q     ?name 'LibName
     ?prompt "Library Name:"
     ?value ""
     ?defValue ""
" H4 W2 S* ~' D. l, V5 e" k# u; c        )
% K" j+ @4 @% i, d% G& k' H; q' H
        Layer = hiCreateStringField(
                   ?name 'Layer
                   ?prompt "Layer Name:"
( @0 b1 J, B  @) Q  q! h8 Q                   ?value ""
                   ?defValue ""
        )
# O8 J9 P4 `, C4 J- w
' I: c. J7 ?  g  ?0 W, x* c7 U        label = hiCreateLabel(
                   ?name 'Text
                   ?labelText "  sizing via "
        )
4 n- ?, {0 f5 O- D' b0 t
, p+ p5 L  s: b- P, A% P6 K7 `; Y        hiCreateForm(
# p) U" A, N* n& G/ Y* P    'name
    "Modify Via/Cont"
, o* X3 X" r8 w' E# F! f+ Y; [   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
2 `$ e& {$ y* b7 p/ b6 m4 i     ""
& |. e& A( ~4 G& ?# ]) ?     ""
        )

1 G9 {6 l- h5 s& k" Z) Z2 [
2 @( p/ B8 f, W    hiDisplayForm( name )
7 v6 c3 E2 h& V; i' y
! u, U9 P1 b. a, d ) ;prog
  b# ]7 U4 Q$ a$ W* d2 n5 X
0 @+ f8 g  |. @)

. m( I& l, Q3 S- n3 k7 l
procedure(Modify_Fun(offset LibName Layer )
' n6 k$ a1 c: n prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
3 H6 \+ y; j, |4 n/ p+ h         ll uu )

1 d0 }& X/ z' J     LibId = ddGetObj( LibName )
! `$ ]! _: p2 s, w  ^- L) ]     Cells = LibId->cells
! A& H" I2 B3 J
( \+ a+ z; z3 u; h4 Z- R     foreach( one Cells
$ c: q, ?( f4 D  u$ t3 w3 M% q  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
, D6 j+ P4 H5 g" w     Shapes = cvId->shapes

$ D- u1 |3 W& O- ], |9 O   foreach( two Shapes
8 p( h) I0 Q- U# l' w/ s9 v$ x. `   caseq(  two->layerName

) d6 J4 B. Q& `      ( "Cont"
" ?# q8 f' V7 Q& n1 f- u
% D( O: s& n0 y  q% V$ _+ ]- v8 q( n8 N     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
      
: A  H$ o1 S9 L; {    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
0 ~0 w' D7 C- G1 h: X                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
; m' u' l0 }: J- `" T  
* q. B+ F$ j) W6 y        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
                    
5 C. K& ]& T% B' [0 T       printf("%s------> ok\n" one->name )

      ) ; end Layer

       ) ;case
1 E& K, K" t6 N) H
     ) ; foreach two

   dbSave( cvId )
0 M3 D% N3 ^* O# v% T% u5 x   dbClose( cvId )

" [0 }" ?7 ?4 v( d+ L& G" V- b    ) ; foreact one

7 q5 Q2 K. _4 a- V* l6 |+ J)
  ~7 Q; c* h9 ]9 ]) G);proc