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

motofatfat

如題:內文如下
" ~* C! I) M& @# E! Sprocedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )
5 ~, F  Y# v/ W) d& K' W
" j+ }9 ^7 ?" f" g& ~: _: t        Size = hiCreateFloatField(
      ?name 'Size
4 T. P* t7 A  m! G  r      ?prompt "Size Offset(+/-):"
) ^6 y' w& U1 `" Y" B      ?value 0.1
       ?defValue 0.1
        )
2 ?. o* f$ L; m
2 ~/ z3 j) h4 |: I        LibName = hiCreateStringField(
3 h3 t* Q" J1 \( Q/ j     ?name 'LibName
0 ?" o1 h1 l+ Q9 B; e$ \     ?prompt "Library Name:"
     ?value ""
     ?defValue ""
        )

# @- o2 z7 u$ x6 C3 {        Layer = hiCreateStringField(
                   ?name 'Layer
5 L2 v9 y' ~& `$ G                   ?prompt "Layer Name:"
                   ?value ""
) I/ N% f0 b! i1 o1 S                   ?defValue ""
        )
" ~0 E- L! h# `- T4 B& M2 x
! K  b6 ~9 Y$ w! x8 s        label = hiCreateLabel(
                   ?name 'Text
9 ?0 u2 \: C, @5 }. t8 d( T                   ?labelText "  sizing via "
8 C5 {6 w6 j# F" k( y2 J9 ^        )
5 N7 ~1 x( l; o, x0 C9 F
        hiCreateForm(
    'name
    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
1 O+ R9 U& o0 Z! E0 Q    list( Size LibName Layer label)
     ""
     ""
, {7 S% y: j6 n& B3 Z0 ]) q# ~        )
" a+ T8 h) w# m3 q/ f: L
. z: Q5 I8 m8 }2 p/ r$ q
1 O6 I5 U* w" {* \# K    hiDisplayForm( name )

) ;prog

. |/ `' f0 Y4 R. `)
* U3 B1 E4 G& Z0 B) J
# A6 T8 h6 Y5 }% b2 N
procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
  J* k( M* I; m/ T  V5 [/ J         ll uu )

4 x$ v$ F. X0 D) R9 K) C     LibId = ddGetObj( LibName )
7 ^1 i2 l: `2 {     Cells = LibId->cells

$ N: P+ G  _8 }0 A     foreach( one Cells
& G2 K0 o% F/ I3 V& L  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
# {: ?3 K8 J) F$ m+ A     Shapes = cvId->shapes

4 @4 I" m8 J/ e   foreach( two Shapes
( g9 D, q3 O+ r$ H# K5 g: m, L   caseq(  two->layerName
# Z+ Q2 V' A- f9 A6 i0 C
8 q( Y6 V+ R" a2 p' c) N  o- c      ( "Cont"
' L) v: v, f$ O6 X1 {% I
6 o( S+ j7 M2 h     ll=lowerLeft( two->bBox )
* K) h: D  x1 A- O+ H4 {5 S+ S   uu=upperRight( two->bBox )
      
! M( H3 H. D) o3 H3 s- _4 ~' n    ll_x = xCoord( ll ) - offset
; L0 L; N; @8 t: y   ll_y = yCoord( ll ) - offset
                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
: ]" d2 l, G: B( t  
; H! O8 u$ S5 ~& e, _8 m; d: E        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
        dbDeleteObject( two )
" \# j, \3 s  g& x5 `- T  H                    
6 ^; e! A" Z  V  I' l! e  |3 Z" _       printf("%s------> ok\n" one->name )

      ) ; end Layer

3 l% c' ^0 P/ G: y( w( G       ) ;case

     ) ; foreach two
. z* m; {( u' ^9 W0 u
   dbSave( cvId )
   dbClose( cvId )
0 ^, p& z' ]# W8 s' R- `
" ~* \. o* P# O: U    ) ; foreact one
; C; j0 {! F7 |# Y5 ]) ?
)
);proc