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

motofatfat

如題:內文如下
9 D$ N4 u3 o; m8 yprocedure( Main_Modify_Fun( )
, I! S, F- \8 \% f  prog( ( SizeField LIbField LayerField FormId )
1 U5 V, G, q" G5 e2 n) H4 Y' @+ c
        Size = hiCreateFloatField(
1 r- X( {8 {. P; e      ?name 'Size
/ w5 m( E* v7 m) C" n0 y+ \      ?prompt "Size Offset(+/-):"
9 n6 z1 M9 Q% C' X/ J      ?value 0.1
5 B7 |! ^& I3 V, f! [) \; _7 V       ?defValue 0.1
) s7 i& j! _6 I        )
  Y, n( p6 P! E8 u; I0 _( m
8 D# ~6 |8 K/ ]% ^! R        LibName = hiCreateStringField(
4 v8 Q0 s9 n! ^) x, ~     ?name 'LibName
     ?prompt "Library Name:"
     ?value ""
     ?defValue ""
        )
8 ~- O6 o3 g4 q0 z8 N! f! Q- w- U
        Layer = hiCreateStringField(
                   ?name 'Layer
' W' z9 X6 U3 T# c3 k/ {                   ?prompt "Layer Name:"
% e* n1 h$ {3 n                   ?value ""
6 a  V1 Q5 `4 i! n                   ?defValue ""
# L/ e- n9 z# I; C" t) R        )
2 ^- |. C' Q0 _
' e: _. F. u+ _- ?9 d6 J        label = hiCreateLabel(
                   ?name 'Text
                   ?labelText "  sizing via "
        )
2 ^0 G$ w' g- n$ o8 s- `' E
9 ?  a- X1 {& S7 k0 d1 n7 C        hiCreateForm(
) a1 H$ v& g: E5 H" N    'name
4 q- ^3 Q8 x0 i2 R# T5 }  c    "Modify Via/Cont"
7 V* F, x( f# f0 C  I: C/ ~2 R; R& `   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
% ]+ R9 g% b* r- H6 J3 B5 _* P    list( Size LibName Layer label)
1 G/ C" L& p; \     ""
: N. ]: _' N) C% |' d- A- e0 @/ p     ""
! T1 g: {4 ^) G7 a" X8 D" n        )


! z: n: }0 W2 w. I% ~9 e- j    hiDisplayForm( name )
/ S2 L$ E: u- _5 O* M  c7 H
) ;prog

- j( M* D% v  [5 ])
1 a) J; v5 u9 A  ~

procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
; e6 B4 f% t: E& ?$ R' G! ~: e1 p         ll uu )

     LibId = ddGetObj( LibName )
     Cells = LibId->cells
" K2 b8 z- n) K9 X$ Y
     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes

; X3 n  r7 @7 ]   foreach( two Shapes
   caseq(  two->layerName
( _  v  K4 `0 c1 E+ p1 `' o# K% v$ d
6 `' n* W0 C# k5 T; _& t      ( "Cont"

     ll=lowerLeft( two->bBox )
. ]; K! K0 y+ c0 z, ^# ~7 m   uu=upperRight( two->bBox )
      
    ll_x = xCoord( ll ) - offset
% j  |; O& c6 I- Y* a; D   ll_y = yCoord( ll ) - offset
' u- g5 Q0 O) W& @4 U7 F/ d' Y% c                  
  j8 B( g0 i- d: N+ u5 j9 q* J     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
  
* }+ x: o" F, w0 X: P# \* b        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
5 v' C$ S" D: I  C        dbDeleteObject( two )
                    
' B+ X, }  F9 f  V: E# i       printf("%s------> ok\n" one->name )
1 I1 d3 L1 F7 a) Z
' \0 m) x4 z1 v      ) ; end Layer

       ) ;case

( h0 @- z- ?* h# D5 {9 G     ) ; foreach two
  [7 P5 G; T1 _4 K9 S2 |" |
. o' D0 k* c3 ]/ r: A   dbSave( cvId )
: M% D* Q5 D( Y  u   dbClose( cvId )
" W9 [: M* j7 `. F) N6 Y  Z3 G$ A8 u
    ) ; foreact one

)
# v# ^; g7 a8 B9 r0 [7 o+ });proc