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

motofatfat

如題:內文如下
7 w6 u8 P$ d6 U9 G) r5 Eprocedure( Main_Modify_Fun( )
  prog( ( SizeField LIbField LayerField FormId )
  M  ]  Y7 M/ M7 n' l- _7 C) C: M
6 a6 C" Y& q2 |        Size = hiCreateFloatField(
% X- Y" ]4 K% z# L- X( A2 L5 _2 L* r      ?name 'Size
  L# [9 S' ?* t6 D$ R! i2 f% k, n+ i      ?prompt "Size Offset(+/-):"
! P7 ~- X& v0 ]4 f      ?value 0.1
/ N4 A8 c( v/ `) ?8 n       ?defValue 0.1
        )

        LibName = hiCreateStringField(
) q$ w! D1 b( l; I$ u9 |- X     ?name 'LibName
     ?prompt "Library Name:"
* ~0 C7 B9 i0 w: d. W     ?value ""
3 @: W" _- }+ \( V     ?defValue ""
        )
; B/ b, b' l. T- ?
        Layer = hiCreateStringField(
                   ?name 'Layer
                   ?prompt "Layer Name:"
                   ?value ""
  A( f5 |& K6 l  k* q8 C! K                   ?defValue ""
        )

6 i, \, m7 Y! r0 Q        label = hiCreateLabel(
$ s' I8 @0 f8 L! r1 s# f3 b( P                   ?name 'Text
                   ?labelText "  sizing via "
        )
" Y+ F8 J* r! M
        hiCreateForm(
; o& |& a5 U' z, o; t    'name
) q7 \9 B$ U) O& I; i4 t% c    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
    list( Size LibName Layer label)
     ""
# z6 h( x/ C5 w9 b7 p6 s. F2 z1 c     ""
: r2 |5 B8 J. _: _) Q# V2 j        )
% E0 ]. M9 p  n
# R- [/ `- u( ^) Y! n
" |6 v3 u5 T( P0 N, i% s    hiDisplayForm( name )

) ;prog

7 P6 Q  z: @+ @) b; T0 G% N)


procedure(Modify_Fun(offset LibName Layer )
. K" m4 W- w* ?8 l, _! ]3 K prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
) o  Q8 c, O& x5 `, Y/ N         ll uu )

- Z1 Z! O9 d0 J" X" B3 E' K- u, N     LibId = ddGetObj( LibName )
     Cells = LibId->cells
3 p! k( U/ _* N" o. a: b( q
3 T* }8 r: W7 ^3 A7 D     foreach( one Cells
5 }1 v0 E; `0 {* _+ ?  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
2 O1 s6 q! S) `, X5 X& h     Shapes = cvId->shapes

   foreach( two Shapes
1 }& \* q( q- {! E% |   caseq(  two->layerName
: ?- Y# r. f9 i* d0 C; a7 j( X0 ]6 ?
      ( "Cont"

. M" [: B% a% H     ll=lowerLeft( two->bBox )
   uu=upperRight( two->bBox )
4 O  Y7 k6 ?  Q+ F      
    ll_x = xCoord( ll ) - offset
+ `: Z% d9 {. k  U0 U   ll_y = yCoord( ll ) - offset
( L9 k5 a- _  k                  
; V: Q; u( V- k8 B4 A1 B     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
7 X" m+ H+ r2 b# i! a  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
. R3 W  H" ]. f& `+ V6 u        dbDeleteObject( two )
' ]2 P0 `& T+ D3 O- z9 [# x* j0 b                    
, `9 i  g% K* q5 N! F0 a% t       printf("%s------> ok\n" one->name )

( [9 O8 f" Z( c5 C7 o3 p      ) ; end Layer
& I% z% X: l) O
2 b6 B3 H! Y; W       ) ;case
8 s( _( w2 K% t7 u4 {, f  }/ a
     ) ; foreach two

   dbSave( cvId )
   dbClose( cvId )

    ) ; foreact one
; x6 ?" z$ L' u( q( S9 t
$ F4 I+ g  Z  `8 g* }0 ?) z  n) R)
9 T; p3 Q: C* H4 t" [);proc