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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )
. c3 Y' t  Z  t9 j( K
        Size = hiCreateFloatField(
      ?name 'Size
' W4 m" A$ |! _      ?prompt "Size Offset(+/-):"
1 ~: q2 z6 a! @      ?value 0.1
4 X) _, Y! {/ c& ?; N/ D       ?defValue 0.1
- ~# L# ^: n7 {' n        )

        LibName = hiCreateStringField(
     ?name 'LibName
     ?prompt "Library Name:"
% C  S* G3 t2 u& g% U     ?value ""
     ?defValue ""
) I! R5 t# h& C. z. E2 Q- U3 X        )
. m9 n) H6 p9 i) K
$ D* R/ O/ G- Z/ r( R        Layer = hiCreateStringField(
) i8 S# g  ?/ z1 w4 p6 L' [6 ?7 a" f                   ?name 'Layer
6 I! v2 b; B4 ~# |% h                   ?prompt "Layer Name:"
                   ?value ""
. `0 q1 K3 L! Y8 `/ x4 M                   ?defValue ""
        )

        label = hiCreateLabel(
, v5 T2 B% ^  a/ h9 W7 Y" i! z3 N( v5 E                   ?name 'Text
8 [1 Y: T# f- y& z" M2 Z& V$ l& ~8 d' i                   ?labelText "  sizing via "
* d8 Z6 L1 w  n- G" V        )
. ^' @6 [8 p5 q4 P6 d
        hiCreateForm(
    'name
7 i4 H0 b. ?! Q( [    "Modify Via/Cont"
( h/ m' b; V; S: E/ H   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
     ""
        )
3 K6 u2 B/ W: X; V9 k$ \1 [/ @

    hiDisplayForm( name )
5 D' W2 l" Q9 \4 j6 D
) ;prog
4 z% b( Y4 f+ {: Z, k
)

0 Z& ]" a2 M5 w3 ^$ }# F
1 S) \" D" a% u5 N4 Zprocedure(Modify_Fun(offset LibName Layer )
3 D0 z# C6 M$ R! ~# ?& V& Q prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )
- e% k4 ?  z  C0 l1 U6 F- G, W( t
) a5 k0 _8 Q: G6 O$ j     LibId = ddGetObj( LibName )
     Cells = LibId->cells
* K. C/ b  G, G2 w6 U5 l
! d. R6 y7 _0 D; w# @! }! A1 r     foreach( one Cells
4 |" @& P( X* g0 _0 s  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes
- g. L5 ]. z0 d' A2 C3 M
: Y6 d# D4 l. S, p4 B% j7 S. w% E   foreach( two Shapes
   caseq(  two->layerName
+ c' p! z" Q) q$ k
0 W4 p" h& E1 p" |9 y8 J/ x      ( "Cont"

     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
& j  X6 Q7 A" x5 ]) a: f$ ^% y      
    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
; D0 Y! c$ R8 f                  
$ ]- D1 ^% G) x     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
" B1 V) j! P% m" L4 J2 M  
6 b/ D, F: O8 k% \        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
                    
       printf("%s------> ok\n" one->name )
( u0 @9 c. n( A
5 e7 h, t3 }) U( _6 l2 M# R      ) ; end Layer
% t/ J$ p) U/ j* j
       ) ;case
& w8 m; o$ i6 v/ t; w, w
     ) ; foreach two
" x; c( h) [. R% ], y9 Z( Q/ H
   dbSave( cvId )
" ~% N6 L4 J  q7 w8 r0 K   dbClose( cvId )

* p9 a- K" F+ e; ~; A3 B" {    ) ; foreact one
3 [8 [: f8 \8 N; O9 y8 a
. h! O9 I. T9 a$ W5 s- A% [)
1 F+ e" Y0 H' A# ^);proc