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

motofatfat

如題:內文如下
; r* \/ W! U* M- fprocedure( Main_Modify_Fun( )
  H- ~$ z5 `3 R9 N% K6 s$ V  prog( ( SizeField LIbField LayerField FormId )

! L# i1 c4 U7 u, j# U' w        Size = hiCreateFloatField(
      ?name 'Size
2 s7 `; ]' |* B2 w: M; Z/ y      ?prompt "Size Offset(+/-):"
      ?value 0.1
9 C6 \* {) u4 J, m4 B       ?defValue 0.1
4 f* d! E$ _% N' I  d        )

* C& |2 F) M, i! [        LibName = hiCreateStringField(
$ i; \8 @5 B  d, j  v. a  U     ?name 'LibName
' T2 |0 s# S' z/ D2 O6 C! f* w( R     ?prompt "Library Name:"
1 z6 f! R: i; ~! O3 a# B     ?value ""
     ?defValue ""
        )
( W2 l. J. T+ D
        Layer = hiCreateStringField(
                   ?name 'Layer
                   ?prompt "Layer Name:"
$ O' n% p2 e8 [2 ~, L                   ?value ""
* g) w! i9 @& A+ p% ?) e                   ?defValue ""
1 v# V! e9 m2 n$ J        )

        label = hiCreateLabel(
                   ?name 'Text
                   ?labelText "  sizing via "
        )
; c% `; E, |) |# Y- m
  C' Q- y( i6 b5 e        hiCreateForm(
    'name
7 i8 V4 g! U9 ?    "Modify Via/Cont"
3 k. T( k  K/ s  L4 j+ u3 Y   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
, ]' E' j4 c- M/ T& |     ""
     ""
        )
. v5 s5 n6 o. ?7 T' t8 ~
  X; w# R5 E/ s& {) E; }, i
    hiDisplayForm( name )

) ;prog

)
8 l* B9 r) j* D3 l- T- k" N

6 r  X* }, ~. s0 @7 r! Jprocedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
* B  C! J5 \+ |6 b( \         ll uu )
( \; G$ C0 L  ^8 T
     LibId = ddGetObj( LibName )
4 h$ S7 Y4 S  Q" t     Cells = LibId->cells
, g) Z, \. u, o) d3 Q- W( ^
     foreach( one Cells
! l0 ~! G% G: Q; V0 U. B% J  ?  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
     Shapes = cvId->shapes

# Z- w3 `* A  E) I* ^$ [   foreach( two Shapes
5 A9 @2 A7 {' b$ _, V   caseq(  two->layerName
/ n; g3 l* Z  y# o
      ( "Cont"
' h# d3 M  U- {  T, ?7 b/ P
     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
6 P* M* Z0 {1 w* q% q+ l" R% Z% a      
    ll_x = xCoord( ll ) - offset
$ C9 N9 f/ M; I8 q* s/ h. ~; P1 {   ll_y = yCoord( ll ) - offset
! z9 ?8 z% M; M7 i                  
* P: L/ F* u5 O! ~4 w     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
# v$ a; Y: N0 ?6 E- N                    
! x6 Y$ y- s" z" F1 x) Z2 [( B       printf("%s------> ok\n" one->name )

7 W+ C' ~1 n. k, ?  X      ) ; end Layer

       ) ;case
; B8 h$ U: ^0 G
* ^0 @# G' X* X, e# }# C$ z% F     ) ; foreach two

! |1 N* u* m: U# t   dbSave( cvId )
   dbClose( cvId )

' s4 W5 o; S8 l5 S. Z7 z7 j    ) ; foreact one
: j7 X/ O2 P* W! M  L2 J
3 X9 G0 y9 f# |/ h3 D0 ^* Y)
);proc