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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )

& x6 l: J+ O2 Y  n* N- O/ p/ K# M        Size = hiCreateFloatField(
5 H6 p* O- B" @& }' e& e      ?name 'Size
; _6 E2 o. L9 C      ?prompt "Size Offset(+/-):"
8 N5 J. V2 f7 r0 y5 F      ?value 0.1
       ?defValue 0.1
        )
* ?1 z2 A8 Z( t; G' N; _
4 [# J4 |/ T4 k- {- ?9 ^8 }        LibName = hiCreateStringField(
     ?name 'LibName
     ?prompt "Library Name:"
3 L3 |4 ~3 |( d% V. F, W( d     ?value ""
* o+ V$ R, d5 _- b% P     ?defValue ""
        )

2 S4 j  }5 N7 C# _! F( t4 ]/ W9 ~        Layer = hiCreateStringField(
                   ?name 'Layer
6 j. P7 M3 Q$ M  O/ ^8 T                   ?prompt "Layer Name:"
                   ?value ""
( t4 I* Z, u  R/ G                   ?defValue ""
        )
; _/ K$ k# M! S: H! s* z: X, L
0 ?* z& C6 Z( m. i9 ~/ p        label = hiCreateLabel(
' ~( P3 r8 ~5 |7 L* t( b% Q                   ?name 'Text
                   ?labelText "  sizing via "
        )

        hiCreateForm(
    'name
    "Modify Via/Cont"
5 ?0 s. n& A2 Z+ x8 \   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
0 I0 R. n5 \  o) s$ Y  b3 W    list( Size LibName Layer label)
     ""
; k( B2 T5 c. {4 f; b5 h1 w     ""
, V7 r$ Q* V! B6 E# u  X& I        )
1 E; Q4 [( J  h! h/ Q3 q
  w5 |6 B7 p' v- B1 ~: x8 X# y
4 E' e6 j9 c6 w* M3 {    hiDisplayForm( name )
2 C! @& {$ P3 [
, Q- j# N3 t, Q# H) e ) ;prog
* \& a9 p! |. R, ]" [
/ m! K0 a3 }1 D) q5 I)
( s1 @2 F0 X& k! J) i
* C2 B, l$ }3 _+ X8 u5 ^# O2 V* `- t
+ {" k2 o" K6 A4 v6 y3 Sprocedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )

     LibId = ddGetObj( LibName )
+ @9 U" V' z9 t" k2 S. m1 u; j: R     Cells = LibId->cells

     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
3 Y. z- _! c  u/ ?) W) Q     Shapes = cvId->shapes
+ z% i; J) v1 `* A
   foreach( two Shapes
   caseq(  two->layerName

      ( "Cont"
( H* F* j4 S1 r- l
- _3 i4 Z' C! P) a4 [: `; f- z+ Q     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
      
/ C" f# a( o) o0 d    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
                  
9 O8 ^+ D# w& F4 G# m     uu_x = xCoord( uu ) + offset
, j! F1 Q1 t7 G' t0 d. A    uu_y = yCoord( uu ) + offset
  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
2 a( g' T7 @: g9 I  e, N2 w+ S7 a        dbDeleteObject( two )
# I+ v5 d) \; V5 O; C+ }                    
* M, C$ x1 W3 B$ F' K" c  t       printf("%s------> ok\n" one->name )
7 u3 z* S" w. C# A( X4 f6 V: N6 u$ B
& P8 B! C! }% M) [( V$ R      ) ; end Layer
5 J+ B' g" z- ~) U: _9 \" W. L
       ) ;case
- @0 C$ F) F1 ?! U7 W2 A
     ) ; foreach two
+ e0 s; V" y2 n' e
, _) r* W1 n+ M. n   dbSave( cvId )
% ~* ]# k: T3 F! y" }& o   dbClose( cvId )
2 C* \/ @$ _- \' J/ c( O) x3 C* V$ `
    ) ; foreact one

8 N5 k/ f! y$ U4 |. w4 m)
* ], P" w5 z' g);proc