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

motofatfat

如題:內文如下
3 E  I# r. D" C! \/ U% Yprocedure( Main_Modify_Fun( )
( _2 `$ v8 x0 }: x) t  v6 G  prog( ( SizeField LIbField LayerField FormId )
& p  B! B2 r; m7 x  z
7 C6 R. E# t; `+ _        Size = hiCreateFloatField(
      ?name 'Size
) w% A3 L* I( A8 f  p. G6 @+ S      ?prompt "Size Offset(+/-):"
      ?value 0.1
       ?defValue 0.1
        )

        LibName = hiCreateStringField(
     ?name 'LibName
     ?prompt "Library Name:"
     ?value ""
     ?defValue ""
        )

* @  V3 l6 f& ]4 i        Layer = hiCreateStringField(
                   ?name 'Layer
                   ?prompt "Layer Name:"
                   ?value ""
                   ?defValue ""
        )
0 c' g1 E; C% _8 B' f
- h- l1 l3 h: J( k        label = hiCreateLabel(
                   ?name 'Text
  ~8 c% Z- G+ k* [/ D                   ?labelText "  sizing via "
        )

3 r, W. ^% o, {8 T5 v7 ~        hiCreateForm(
( `  L  o/ @  R5 y; u    'name
! u) U0 ^7 Y' h; m; e    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
8 j% f. Z4 M- _8 c     ""
        )

; l1 t! P5 ^' d5 M
    hiDisplayForm( name )
/ C  W5 _7 _4 V8 w' w" y
) ;prog
7 v# Y* U$ u+ H: B/ e+ q2 _8 K
)
4 O* G$ X1 k3 P) i( [. R
) j. E; }1 w$ C) s0 G5 o  N/ [; D
procedure(Modify_Fun(offset LibName Layer )
9 \2 S" p# o/ [7 `! D prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
. ]8 w- q; n9 ~+ `7 j9 A2 g         ll uu )
; u$ ?* l& O% K1 i
! d. ~' C! `; ^+ f( s; l' A     LibId = ddGetObj( LibName )
5 D: w! R+ p" l; K# W$ e     Cells = LibId->cells

     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes

: s) ]6 y4 p) {4 Y, S   foreach( two Shapes
   caseq(  two->layerName
, D6 y# {! K, ]* U. `+ `' a
      ( "Cont"
; p) `. L' Y! W7 \
1 y" o6 j( K6 v) e2 }9 q     ll=lowerLeft( two->bBox )
6 z1 E* s5 w3 L+ Z   uu=upperRight( two->bBox )
      
    ll_x = xCoord( ll ) - offset
) ]* T* H" @8 D0 g$ g1 Y, L& i! X6 D   ll_y = yCoord( ll ) - offset
1 \% G* z$ i( s& A% u3 |4 c                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
  
2 O( p# M" O( b8 _9 U' M        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
                    
       printf("%s------> ok\n" one->name )

) ~2 X+ i: U; j+ p: h  A' z  \      ) ; end Layer
4 ?+ D6 H. ]! g4 |- |
       ) ;case

     ) ; foreach two
# _3 k8 \- J, `
# p' W4 f2 h7 a& W2 X   dbSave( cvId )
( R. k3 N7 e0 N5 ~! I0 z+ h, X7 e' o; Q   dbClose( cvId )

    ) ; foreact one

3 O* P* A* b2 o& X& h)
);proc