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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
7 a+ K7 l( F( q* k' x" v; X( C  prog( ( SizeField LIbField LayerField FormId )

        Size = hiCreateFloatField(
      ?name 'Size
* d1 V/ t* m7 k8 W$ ^# u, C5 \0 A      ?prompt "Size Offset(+/-):"
) K9 Y( n4 \) L0 r5 w% Q5 p% r      ?value 0.1
9 X. _2 V- q- g; W  n2 t/ q$ D       ?defValue 0.1
        )

5 }  L3 d1 q7 s5 J5 j! E7 \        LibName = hiCreateStringField(
$ b# O, @$ [2 T7 o6 s1 v4 o; ^     ?name 'LibName
     ?prompt "Library Name:"
; x4 ^$ O: E2 X     ?value ""
" K( z2 m0 p- x. }0 c! B$ v9 n' r     ?defValue ""
        )

        Layer = hiCreateStringField(
                   ?name 'Layer
! P- R& s2 o6 M* I5 R2 a                   ?prompt "Layer Name:"
                   ?value ""
                   ?defValue ""
        )
" T9 N" `. Q# W7 w- G- r
0 i- X1 T! f- N) P6 ]* a4 q8 U/ B/ E: B        label = hiCreateLabel(
                   ?name 'Text
4 Q" T" U+ Q' [" H! R7 y                   ?labelText "  sizing via "
        )

' O, C/ ?; g4 D- i( i4 f' l        hiCreateForm(
. u# d7 o9 z- q    'name
- @) D: ?1 L) E4 s) [% y    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
     ""
* B2 ]5 m+ J) |, ~        )


    hiDisplayForm( name )
+ W. Y3 [8 U, ?4 ~) x; u
) ;prog

1 ~* A' {& Q. |: O1 q- T)


procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
1 k- z2 w4 Q/ K1 m+ f1 S9 w. l         ll uu )

     LibId = ddGetObj( LibName )
0 B  y$ P& D5 _4 U$ m" U" ~8 K     Cells = LibId->cells

+ Q3 L0 X. b& y% j     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes
8 n% i0 I8 }6 p! e# }& _8 @+ R& L
   foreach( two Shapes
- p* W  ~" a' Q( P$ J1 O) v9 q9 d   caseq(  two->layerName

      ( "Cont"

     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
      
    ll_x = xCoord( ll ) - offset
0 J6 _. G* A# A5 M" A$ q   ll_y = yCoord( ll ) - offset
                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
  
: G" ]  E- J5 p% \" ^        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
                    
. {5 n  S% C! Z4 [% d) W6 `0 o  \       printf("%s------> ok\n" one->name )
, x% _: g+ P9 @- D
      ) ; end Layer
: L+ }4 L6 k# N  w/ _  Q
       ) ;case
- j% h, n4 t2 b3 S5 o4 s4 z1 N
5 A/ e2 X9 u- |& u+ L# x# t     ) ; foreach two
8 C8 T. C" E& \1 C( C1 g
, R3 O) Z6 f% y$ n) x   dbSave( cvId )
   dbClose( cvId )
# ^6 o# }) \. X4 l: r# u8 J
+ G: V7 V' O9 ^    ) ; foreact one

)
);proc