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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )
, s* Y6 F& O" d& O! N
        Size = hiCreateFloatField(
      ?name 'Size
      ?prompt "Size Offset(+/-):"
" V# T4 b* j9 E      ?value 0.1
: o8 \" g/ A' y4 y4 `       ?defValue 0.1
& W' R* |/ ^6 \2 p' |        )

        LibName = hiCreateStringField(
     ?name 'LibName
% j2 |8 R& z7 r+ ]" n5 y$ |     ?prompt "Library Name:"
. L! W3 h' g8 Z6 }. K4 F) m     ?value ""
) l2 Z+ M% B: l" }9 c" _  ?     ?defValue ""
        )

; |/ s. B) P3 W& P" g% f* V" B        Layer = hiCreateStringField(
" |/ L. `. h6 u                   ?name 'Layer
3 l  z) D8 ]$ X7 [+ D                   ?prompt "Layer Name:"
0 N( N# J0 a, y* o- f                   ?value ""
                   ?defValue ""
2 O4 N1 P/ P8 |2 o4 R) }        )
3 T) E/ a- x; z8 P7 ~
. r- @# m1 a1 I. W$ O: L& E! ?, Q        label = hiCreateLabel(
                   ?name 'Text
5 p/ m7 a. h; z" M5 q- o                   ?labelText "  sizing via "
. S# l* ^0 `9 b& `% O, \7 m        )

        hiCreateForm(
0 x( U+ g  m% J+ i    'name
+ s$ Q# F" t8 i' D; s8 n" d    "Modify Via/Cont"
3 p! v' W3 o  z1 G   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
( X7 ^, m" U! Q8 _+ m     ""
( Y) K: T' W( S. t        )


    hiDisplayForm( name )

3 \% K- @+ T- m+ q8 n8 { ) ;prog
+ m9 J0 }7 `' c0 B; A* j& A  V
)
- g8 {: k+ u1 ~2 p, c! i8 m
8 S4 s( M2 e$ q- J9 ^
procedure(Modify_Fun(offset LibName Layer )
* N) A/ ~4 x* r, Y) k% G prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )
* v* p5 I' j. T2 v4 ?$ V
     LibId = ddGetObj( LibName )
     Cells = LibId->cells
) S: q2 ]8 V! }( \3 @( r5 ?
& ?* c" |/ F' C: E+ z8 ?4 }     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
7 G7 l$ F" @# f( }+ }* `( q% N+ A     Shapes = cvId->shapes

   foreach( two Shapes
$ `3 m, ^7 s6 u: _! g3 F   caseq(  two->layerName

9 |8 `) P/ E# j8 g* S# J( u8 f6 U      ( "Cont"

9 }$ _. K5 Q* f9 [0 J1 b) |     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
1 U& j$ d2 x  ?, H      
    ll_x = xCoord( ll ) - offset
   ll_y = yCoord( ll ) - offset
                  
) ]$ T2 T5 A, \4 c+ K0 ^     uu_x = xCoord( uu ) + offset
1 Q; W' s' \7 l& W& ~9 ~2 b    uu_y = yCoord( uu ) + offset
  
1 P+ W' J8 y6 H6 {$ W6 _        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
2 X1 V: t) h# l! @" V) ]        dbDeleteObject( two )
' Y2 C# C: [* @& u9 r: t( C( C/ x                    
       printf("%s------> ok\n" one->name )

3 ?9 s% }7 g9 V2 P/ O/ H  C      ) ; end Layer

       ) ;case

     ) ; foreach two

   dbSave( cvId )
   dbClose( cvId )
) E# z6 F. ~9 V' F2 w
% ?) o6 p! [8 g1 ^    ) ; foreact one
) R8 ?2 e/ x# W
)
);proc