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

motofatfat

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

8 V. h+ i: ~4 i2 W' p% c* u        Size = hiCreateFloatField(
2 W7 e8 z  Z# M+ d: U      ?name 'Size
      ?prompt "Size Offset(+/-):"
      ?value 0.1
       ?defValue 0.1
  L+ O# g& u& \9 H; \6 U$ ?        )

, J. T0 f7 ^" v- N2 [        LibName = hiCreateStringField(
     ?name 'LibName
     ?prompt "Library Name:"
9 M2 T, s, x; ^' l2 Z. K# {     ?value ""
( l/ `4 U. j+ |  K- g& G     ?defValue ""
        )

        Layer = hiCreateStringField(
9 H& O" m7 j$ y2 d- R8 ^                   ?name 'Layer
0 B0 r6 l0 [) x/ m) e7 h: @5 m                   ?prompt "Layer Name:"
1 `0 d5 Q" s5 p' z# {- S$ i! x                   ?value ""
                   ?defValue ""
        )

8 j- I- ?) l- D$ d4 z5 K        label = hiCreateLabel(
                   ?name 'Text
% h. ~& z' H5 m                   ?labelText "  sizing via "
% a) Z6 c: `4 E, }) X1 J        )
. |; ~: U2 L9 }: L+ a8 X
0 \5 u( x5 U( N0 k' z8 J, e0 S        hiCreateForm(
    'name
    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
# B+ F  G: u! @, @% y6 I5 G0 n    list( Size LibName Layer label)
     ""
/ [/ |: |7 v. Y     ""
/ J0 }  [" a8 V1 z! p8 h. r        )


    hiDisplayForm( name )

$ H1 E7 d3 ?  a% p ) ;prog
$ B1 \; `( h0 F; n
3 i8 e+ S5 h, e8 L)
* T% s0 q4 R# @+ b" I" @8 P
  g, n, p3 L0 g1 k) |% u4 p
7 I/ a' e( ^' \procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
+ T5 z$ f  H/ l7 B$ j7 x. d( v         ll uu )

& @; L* J# B6 P* E. ^8 n8 Q     LibId = ddGetObj( LibName )
4 b$ y# d7 z0 Y. i* F* q9 v     Cells = LibId->cells

8 Q' k, E4 [& k) Z* j% _: _  @$ y     foreach( one Cells
8 D8 V: [- D3 G2 c7 b3 B  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
: ?+ L6 G) v* Z8 i/ n& s     Shapes = cvId->shapes

& u9 S" [4 \; p4 ~8 _   foreach( two Shapes
8 L3 Q$ g' t) }  n5 `   caseq(  two->layerName

      ( "Cont"

     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
      
    ll_x = xCoord( ll ) - offset
8 p9 L7 \; U' I/ P  W   ll_y = yCoord( ll ) - offset
                  
* H8 o; ~4 ~# l+ d/ o7 {     uu_x = xCoord( uu ) + offset
6 y2 u. V$ M/ k    uu_y = yCoord( uu ) + offset
  
( U7 f* }& ]" n9 S( F8 B) H        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
/ w2 p# U7 A  G9 i6 X# O& A        dbDeleteObject( two )
: K0 e7 ?  B- P- D: Z" r/ B4 ]                    
       printf("%s------> ok\n" one->name )

* \; S  C: ]2 t- x% D      ) ; end Layer
- c: }4 a: m+ k  H
       ) ;case

     ) ; foreach two

/ {" V$ G% C7 b   dbSave( cvId )
5 r: a. d& }: c   dbClose( cvId )
8 V4 T3 l. e! j3 B& v% u8 o
    ) ; foreact one
( [: Z5 ?- y5 k( m
)
# {. o. a3 g) K6 H. l2 m9 g9 ^);proc