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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
! z/ p! E3 H0 X. o# ~  \% ]; J- |- o  prog( ( SizeField LIbField LayerField FormId )

. y% C0 ~: h/ c# X9 e( e        Size = hiCreateFloatField(
      ?name 'Size
# D! O" U6 X6 _# |      ?prompt "Size Offset(+/-):"
      ?value 0.1
. R  h: A3 F8 k+ Q* w" k( T9 h8 ]; z       ?defValue 0.1
        )

6 l! s. f) ~: H% j        LibName = hiCreateStringField(
2 l& Q4 G5 P* L0 ^6 G! a     ?name 'LibName
     ?prompt "Library Name:"
! _, P' K* v1 e2 y: c* b* d' G! R     ?value ""
" T5 g2 u  X! `     ?defValue ""
. U5 K6 N% o. b$ z; N: f        )
  u) R/ R# n7 i& c+ x# o% K
8 A) r+ E# }- y: p3 G+ v        Layer = hiCreateStringField(
) U* X% n: U2 L3 P: B4 b                   ?name 'Layer
                   ?prompt "Layer Name:"
                   ?value ""
                   ?defValue ""
( Y5 ?9 N* o1 Z8 @        )

        label = hiCreateLabel(
                   ?name 'Text
( g& w7 ~! i3 x. v8 I( m4 T                   ?labelText "  sizing via "
        )
7 u9 K8 _6 K( ~
3 d7 _3 D9 M, O) }        hiCreateForm(
' G1 J- u  R- L1 t7 D5 A' s    'name
    "Modify Via/Cont"
# h$ @6 T- c  q9 y   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
( b$ \. w: f" N& r$ a$ L9 e( b    list( Size LibName Layer label)
     ""
9 D5 l" a8 R9 z3 Z% D+ H     ""
        )


" P( Q& J9 ~$ V9 I! B  j. k    hiDisplayForm( name )

) ;prog

)


procedure(Modify_Fun(offset LibName Layer )
# B2 n( @* t9 _/ \$ k prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
, o3 x8 R; h6 E0 \+ r         ll uu )
  |$ A" M: T2 W) F  ~8 t( L0 ^
1 Q5 @$ {2 z- s     LibId = ddGetObj( LibName )
     Cells = LibId->cells

" u6 C9 P! |8 R1 u& }+ Y     foreach( one Cells
2 x" u# d9 w) Z/ U$ U/ [: N3 x  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
+ D' \. f0 W- o6 b9 ~- o4 T     Shapes = cvId->shapes
2 g9 T# n  o, N( {5 Z
  Q0 S0 A2 d# G# v& Q4 f8 Z" U" B   foreach( two Shapes
) \5 ?; r# m. Q5 D/ D6 b+ R/ ^   caseq(  two->layerName
( m9 b/ K+ |2 ^! q) d
; U: p6 X$ c2 ]7 z% d, j; _      ( "Cont"
% \7 Y7 X0 Q4 P: U5 Q9 A
1 [; `$ I/ p0 W1 U. f     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
" G2 o; n* Y0 \  @2 ^      
    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
, e- Y7 a2 z& M& k( U  _                  
8 b: g, A! v7 s" |: }     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
9 Y/ k" ?' k2 ~! ?2 X4 Y% S  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
# V& r- n( ~6 A: a& D                    
) m0 M: v( Z. |1 Z0 L, R1 e       printf("%s------> ok\n" one->name )
/ T' T! }( r+ e+ t' T/ o# g
! e% [6 t/ N8 Z. n3 \      ) ; end Layer

       ) ;case

/ x8 U# n  F9 X, u; q) b, m     ) ; foreach two
( f3 a* @2 X3 ?) N3 m
   dbSave( cvId )
   dbClose( cvId )
0 @: c, ^: x9 x1 s, x" A) ?+ p1 N
' V- O( S/ ]+ Y    ) ; foreact one

)
);proc