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

motofatfat

如題:內文如下
; a' n# U8 d( ]# l  uprocedure( Main_Modify_Fun( )
# r8 x( v6 U) r. s' v  prog( ( SizeField LIbField LayerField FormId )
, z- F( a: l+ ?+ b4 i
        Size = hiCreateFloatField(
      ?name 'Size
      ?prompt "Size Offset(+/-):"
" `3 h5 T# w& r* o" T' R) b4 O/ `      ?value 0.1
       ?defValue 0.1
        )
3 S, S7 J, Z' F5 E9 m) }1 R
        LibName = hiCreateStringField(
     ?name 'LibName
# ^& X2 X5 S, Z     ?prompt "Library Name:"
     ?value ""
     ?defValue ""
( Z( H/ J" O5 d0 p7 b2 ?        )
7 o$ j" Q; W& H2 U6 q* h: ~( j
        Layer = hiCreateStringField(
3 a# |0 \. E. U0 t( I& E2 m5 m" X                   ?name 'Layer
& ?4 Q3 ^& Z6 Y2 y& [: w6 h, L                   ?prompt "Layer Name:"
! \1 m% j! [8 H) @9 {                   ?value ""
                   ?defValue ""
        )
. Z8 ?- m7 W5 J" S# a8 S6 }1 q
        label = hiCreateLabel(
( c* a, b! w8 g/ {                   ?name 'Text
                   ?labelText "  sizing via "
        )

        hiCreateForm(
    'name
& z( g: o7 Y- ]5 m; L: t' b    "Modify Via/Cont"
8 @- v) k$ Z) a; S' @( c   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
     ""
# m. `! q& m( J  }        )
" F5 n  `- `! N; D
: Z. R. v2 o  _" f  F" s
! ?" J! ~2 J! P8 o6 y8 {    hiDisplayForm( name )
+ Y7 `) h/ g: U% x' u: Q. B* I' U
) ;prog

6 {* i; d. n8 U) j/ P' h8 C, |5 E)

1 o! T- h2 x3 G  s0 _7 g) z
procedure(Modify_Fun(offset LibName Layer )
3 ~! y2 q$ F/ C, E prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )
+ D8 z& m  q6 c/ K0 N
     LibId = ddGetObj( LibName )
     Cells = LibId->cells
. a0 Y$ d0 S. |& I
# X* `+ e# _( F     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes
* B' r! q) t# C4 K" R$ o
( H$ [: c8 [2 r* x3 O3 E   foreach( two Shapes
+ s& p( L( O% D' U/ I" r! x   caseq(  two->layerName
! k% `7 c' K+ K$ }# l
      ( "Cont"
: i6 Q* y6 b$ Q$ W1 Y, G
8 H, W. u! T4 u1 p! y     ll=lowerLeft( two->bBox )
* R: }8 T5 r5 G   uu=upperRight( two->bBox )
3 A' p( ^. ^: o$ ]. \. C4 |      
6 z, ~, q, x* e! K( _- w  J    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
6 D% z' d) _: u+ _1 {                  
     uu_x = xCoord( uu ) + offset
0 x" l8 Q" |: Z/ b    uu_y = yCoord( uu ) + offset
  
; i, s* @! b. @! f8 |5 V- r        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
+ i0 e& m9 i6 @7 j) e# m6 u        dbDeleteObject( two )
                    
       printf("%s------> ok\n" one->name )
+ f8 u" B0 U& Y! _
      ) ; end Layer
  H/ F* e7 X7 D& C! F7 m3 F) y
       ) ;case

0 t$ v& X! `9 Q  \     ) ; foreach two
  a* c5 Q) q' ]
   dbSave( cvId )
   dbClose( cvId )

0 c+ A4 [/ t0 i+ z( _    ) ; foreact one
3 Q" W% ~1 h1 J4 ^& E
)
* C: |* h. k7 ~! f& Q4 E);proc