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

motofatfat

如題:內文如下
; {0 }6 O+ F  p- ?9 N4 W' |* mprocedure( Main_Modify_Fun( )
& ]/ [3 R$ A- Q" ~6 i( n  prog( ( SizeField LIbField LayerField FormId )
9 k, w8 Q& k6 q( z& }9 `: O
6 _. V8 [6 P9 Y5 k5 E        Size = hiCreateFloatField(
. t' L& Q' `: q9 b, h      ?name 'Size
      ?prompt "Size Offset(+/-):"
+ Y4 b" d7 z+ Y* \# t  K3 j      ?value 0.1
3 X) k' K% M# h; ]7 |# f       ?defValue 0.1
! [0 I$ [! X: T/ r( _# @        )
0 F% l1 Q* `  X* `
        LibName = hiCreateStringField(
2 m- g1 l3 v# x     ?name 'LibName
+ g8 J. g; o( j. Z' E: h( e     ?prompt "Library Name:"
     ?value ""
. `, i3 F, I: S! k! h# h     ?defValue ""
        )
. O7 z% }$ W. E
( j, Q# d' h: g- c2 Z        Layer = hiCreateStringField(
                   ?name 'Layer
( v* e. h4 x1 x4 E                   ?prompt "Layer Name:"
                   ?value ""
                   ?defValue ""
        )

        label = hiCreateLabel(
                   ?name 'Text
* [2 ^6 F* Z  }* M% \! h0 P                   ?labelText "  sizing via "
        )
% d7 Q' \2 D* B( l( `
. x3 u4 f9 g: o& T4 ]        hiCreateForm(
; G% a$ o9 z$ y' Q% J    'name
9 U2 R! Y: y9 i    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
) |5 I# K( I0 v$ y* K1 O3 F    list( Size LibName Layer label)
: @, _3 t' k* U, h, U     ""
     ""
) i- R' Q- s5 a% _2 ?        )
; p) Y' P4 `- Q' b9 ]% u4 Y$ @
) B- G: J5 F% y! b5 r" r
    hiDisplayForm( name )
3 f3 @. {; H) e) f1 g2 Y
) ;prog

)
% O0 v( @: U7 S# U/ T! P5 V

procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )

& T' L4 e! `$ t/ k3 g& _8 L0 N     LibId = ddGetObj( LibName )
, o( Q* u9 a( d) p- Z     Cells = LibId->cells

     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes
, G0 ]0 C# q% J) R* b' p
/ `2 J4 g" W% Y   foreach( two Shapes
   caseq(  two->layerName

% W+ h5 k. V% ?      ( "Cont"
, r% i4 {+ o3 f
     ll=lowerLeft( two->bBox )
1 r# }( p% q% m/ s% o: n, F2 [   uu=upperRight( two->bBox )
      
7 P0 M' r8 n- j$ b7 m% H( [    ll_x = xCoord( ll ) - offset
9 {9 N( {! q: @/ ]( c8 o   ll_y = yCoord( ll ) - offset
                  
& l8 I3 s7 G* P4 w     uu_x = xCoord( uu ) + offset
" T# |& C0 K" C" Z    uu_y = yCoord( uu ) + offset
  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
0 c1 T/ F" J8 z- _        dbDeleteObject( two )
                    
       printf("%s------> ok\n" one->name )

. f$ L$ R0 ]  l2 f( K0 h3 v0 Q7 ?3 T      ) ; end Layer
8 T8 }1 l: s8 }9 E% O; J
       ) ;case

% @- H+ A1 C2 o     ) ; foreach two

2 P" q5 X# w) N, n$ c! ^  h   dbSave( cvId )
& V1 w& @- x) ]5 N% n( X, ^! h   dbClose( cvId )

    ) ; foreact one
4 C/ J9 |* Y& U/ c$ ^. o
)
) s' L* i5 B+ [( D1 U3 C);proc