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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
8 Q& }! D( K2 M/ l7 i1 Q3 d  prog( ( SizeField LIbField LayerField FormId )
0 x1 y6 ^8 E) k: k3 u
        Size = hiCreateFloatField(
, x/ R% m# O* W4 E3 d      ?name 'Size
2 A- ?( G/ E4 o( j( f, ^& H9 ~      ?prompt "Size Offset(+/-):"
      ?value 0.1
       ?defValue 0.1
: W5 g$ Q$ N3 O4 m1 u        )

        LibName = hiCreateStringField(
( ~# |' [# i7 c8 U     ?name 'LibName
: t$ p8 a: ^# d- o     ?prompt "Library Name:"
* X1 {  U' |. k+ D' Y! [- j. d4 e     ?value ""
     ?defValue ""
        )

        Layer = hiCreateStringField(
+ k. m* K2 i' {                   ?name 'Layer
                   ?prompt "Layer Name:"
4 i4 t+ g! d6 Y) P5 v; \4 n; V3 w                   ?value ""
                   ?defValue ""
        )

' `( I1 o) d- b/ G% H        label = hiCreateLabel(
                   ?name 'Text
& |, P! {6 G) w* O; a& R) D  V                   ?labelText "  sizing via "
; p0 G  @9 l: l9 l" H        )
4 I, f3 m/ g% k" v) w5 C5 x
        hiCreateForm(
( x3 j7 C0 ?4 P& Q8 Q8 |3 y    'name
    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
; \' j1 _! r1 d; f& D3 l     ""
$ F1 k# Z% @/ ~        )


0 Y5 Z+ e# {, u  E/ P( M6 b    hiDisplayForm( name )

) ;prog
; N7 h  F' t+ B$ T
" ~7 A8 w( m- u# X+ t( h/ })


6 U- Q3 B# r3 D6 P: O4 sprocedure(Modify_Fun(offset LibName Layer )
- q% y- P/ D6 j prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )
5 {: _& ?* t+ p6 O
     LibId = ddGetObj( LibName )
2 ?$ K+ T' G8 `( h# `6 B" [     Cells = LibId->cells
2 \3 C* Z1 T1 C9 I
- ]- A/ T& |' @3 G     foreach( one Cells
, F! s5 |0 d: e; M# `' X3 s+ R  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
1 o$ E/ v7 S/ W# w" P$ e$ t     Shapes = cvId->shapes

   foreach( two Shapes
. T8 @1 t/ ]- T' r- @# }9 h' G   caseq(  two->layerName

0 |8 h' d9 J5 V      ( "Cont"

     ll=lowerLeft( two->bBox )
- v. {; T: k  s   uu=upperRight( two->bBox )
      
6 H# }8 O; e3 ?( n! }    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
: r& M8 D% p1 V+ n3 L  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
# g' y' A  Q+ p3 J% e0 z        dbDeleteObject( two )
& {! _6 K7 p( G                    
7 g* k& t- p/ ~4 w. Z       printf("%s------> ok\n" one->name )

      ) ; end Layer

" R! g/ k$ a0 f: P, K       ) ;case
* Z; {: t4 Y3 x, x7 y& h& O6 r
; H7 R2 q8 c0 p( z# j     ) ; foreach two
8 ^/ E3 U0 `. S! \7 p
9 z( L8 x8 A& T7 a0 i6 i$ }% p   dbSave( cvId )
   dbClose( cvId )

) N$ e; Z- c; K    ) ; foreact one
1 Q+ r2 k+ w9 d! e2 s4 H
5 e( q2 S# @! [/ M)
# Q6 K/ ?: J* ]* z4 X/ E0 b$ C);proc