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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
8 e8 z1 n7 c; A; E. L  prog( ( SizeField LIbField LayerField FormId )

; ?5 T/ F! z$ j7 Z9 @" V; v        Size = hiCreateFloatField(
, J" T) w. ?' h$ J" S2 P      ?name 'Size
      ?prompt "Size Offset(+/-):"
      ?value 0.1
  C7 S7 w5 {' T       ?defValue 0.1
        )

        LibName = hiCreateStringField(
     ?name 'LibName
! A1 A( ?' [) n, n2 C7 P     ?prompt "Library Name:"
; \: {/ h8 ^7 ?! t8 \! }4 ?# y     ?value ""
6 N7 G# q+ H7 T/ A' n     ?defValue ""
6 I8 G; ?- G+ J9 F+ b; N& h" H        )

        Layer = hiCreateStringField(
4 I* p! ~1 @5 b& I" X9 |" v" I" ^4 \                   ?name 'Layer
7 _4 b( W) B7 P" ]" w0 ?* N                   ?prompt "Layer Name:"
                   ?value ""
0 ^% h  M0 P" ^% p* h/ T                   ?defValue ""
0 u& `/ w/ O% k& }+ [: c8 ~% z        )
/ D/ c9 m% K8 F! B( d  x
) Z: a9 r5 T2 G3 k        label = hiCreateLabel(
" N& H9 Q1 F8 ^0 Y                   ?name 'Text
                   ?labelText "  sizing via "
        )
. e1 L8 y/ N/ k, }( e- |8 ^1 e
        hiCreateForm(
9 K  c( Z' D/ |& r7 k    'name
. i3 k) i; V, o2 r+ b    "Modify Via/Cont"
  Z) ^6 ]* p' M" Y   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
; D9 o3 {$ N0 R9 v1 }& k* A, ?  _    list( Size LibName Layer label)
     ""
     ""
        )

, B& ?, Z+ w2 B! v$ e
0 [4 P4 M( Q4 k# X    hiDisplayForm( name )
! @) k) p5 `: x, t
5 g. j: v2 }% ^$ B0 T3 @- t5 t5 r ) ;prog
: v2 r" {+ E( y. s- T- H3 _
; ]+ ?, D$ o* t. f' K! T: ^  u)

6 Q  G( U, z8 l3 `; h  h
' h2 Y  h* t" F# zprocedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )
9 H8 d8 Z% ~' H0 l2 A
1 R2 c8 J; T& g6 t/ z3 D5 C8 T+ L     LibId = ddGetObj( LibName )
  \' F9 L- S5 k8 n/ w     Cells = LibId->cells
9 e7 {8 q0 f: u8 U: X: a; [
& W  I2 S) E( G% G% o7 p* K4 _     foreach( one Cells
9 @! X2 z3 V: u9 O2 P0 @/ x3 @  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes
% `6 s- m+ c2 X1 b  E1 W
   foreach( two Shapes
5 C$ k" k+ ~- g1 d+ H   caseq(  two->layerName

6 }! T  o/ n" }4 d* i      ( "Cont"

     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
& D$ J, S" H: w( }      
    ll_x = xCoord( ll ) - offset
- ]: G' C2 l; G8 e0 B  j: e   ll_y = yCoord( ll ) - offset
                  
     uu_x = xCoord( uu ) + offset
6 \% p' \$ L; z8 c    uu_y = yCoord( uu ) + offset
- Z% F! V; M2 \/ `6 h) L, G  k$ w  
9 ?( @: n9 W, v        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
. s. v8 h9 u, k$ ?8 C        dbDeleteObject( two )
' v) L- g, ?& H* s* y8 g: G                    
8 K9 H. T( ^8 B2 V1 C. _+ t4 \       printf("%s------> ok\n" one->name )

      ) ; end Layer

       ) ;case
; K3 R. D1 ?7 J% ~  k4 |5 r: J  x
3 }, E- |% P/ T. t9 t     ) ; foreach two
1 S3 [" g: }. \; w3 A
   dbSave( cvId )
   dbClose( cvId )
: g- U) a8 H7 K
3 V4 t/ Z/ @: F3 v' S    ) ; foreact one
9 W/ l8 A9 a+ g3 r* S, D5 Y
4 G5 J- _* k0 u$ _9 A3 E)
4 Q2 V/ U' W+ _: W+ T);proc