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

motofatfat

如題:內文如下
procedure( Main_Modify_Fun( )
  q6 M3 I# |# k) I- }- M  prog( ( SizeField LIbField LayerField FormId )
4 ~% y2 K2 J9 Q1 R  ?
% H; [  Y7 V3 ^0 b1 _2 h6 X        Size = hiCreateFloatField(
' L+ @  B8 e& F7 d4 b* Y      ?name 'Size
      ?prompt "Size Offset(+/-):"
, m5 u1 z! P$ D      ?value 0.1
" i& y. F. D6 W8 J9 \( Q       ?defValue 0.1
, I. f: K. d7 I. ^+ g- u' r        )
7 j2 ]& R$ E1 Y
1 G- y5 J3 p8 `7 }& ?/ W5 W6 G8 T        LibName = hiCreateStringField(
     ?name 'LibName
     ?prompt "Library Name:"
     ?value ""
  u' T3 \! ]" l& @. y4 C8 U     ?defValue ""
' U3 H0 m$ C  C: k: x: f        )
- c; q( V& ]- @" \
        Layer = hiCreateStringField(
                   ?name 'Layer
; t) o+ B; _  i0 K$ S5 V( S" v3 T( Z                   ?prompt "Layer Name:"
                   ?value ""
                   ?defValue ""
0 b+ p! }7 @- {        )

: w  I: v# k$ F7 X5 A        label = hiCreateLabel(
3 t1 o% Q) K) K" A# ^- L. c) }- ^                   ?name 'Text
                   ?labelText "  sizing via "
        )

0 i- B( J; |' _/ \0 ^, \        hiCreateForm(
* r$ n. t( x* K/ ], Z    'name
* g  v- V% R& r" v/ }2 t: X: D1 r    "Modify Via/Cont"
   "Modify_Fun( name->Size->value name->LibName->value name->Layer->value)"
+ Z3 Q# S5 i) g& s4 A5 q3 }    list( Size LibName Layer label)
     ""
     ""
        )


    hiDisplayForm( name )

) ;prog
! o* L9 i9 A* r) d( k% G
)
. K4 B. F1 Y8 n) O
& W1 ^* Q1 K! p' _1 B1 K$ r7 ?2 m
procedure(Modify_Fun(offset LibName Layer )
prog( ( cvId ObjList one two Cells LibId Shaps ll_x ll_y uu_x uu_y
         ll uu )

     LibId = ddGetObj( LibName )
     Cells = LibId->cells

     foreach( one Cells
  cvId  = dbOpenCellViewByType( LibId one->name "layout" "" "a" )
# R, w/ Z, S; J% H' z0 q2 A     Shapes = cvId->shapes

% o# i, w) [4 Z- n2 G2 U' S1 E9 {   foreach( two Shapes
- n, c1 f8 T) z3 ]' D+ s   caseq(  two->layerName

      ( "Cont"

     ll=lowerLeft( two->bBox )
4 l( L$ j& z: ]" [4 c2 h4 [" x   uu=upperRight( two->bBox )
6 r6 b( }* E7 s9 i9 m      
5 N2 w  K/ P4 p1 p. q! B$ M    ll_x = xCoord( ll ) - offset
7 L* t/ F& f" ]0 W( v; |5 t   ll_y = yCoord( ll ) - offset
, }0 H' a- Z9 C5 u; c! g                  
     uu_x = xCoord( uu ) + offset
    uu_y = yCoord( uu ) + offset
3 k8 v' s+ q( i# ?  
        dbCreateRect( cvId Layer list( ll_x:ll_y uu_x:uu_y ) )
6 ?( T- _5 o/ U4 `        dbDeleteObject( two )
                    
       printf("%s------> ok\n" one->name )
; P- A' P/ `$ r1 G' X
      ) ; end Layer
8 Z, {/ m1 U3 b
1 u" Q7 Y' |) @; x& W5 D       ) ;case
$ z+ W6 x* t: ~+ J* _$ _
     ) ; foreach two
( m' I! v1 Q2 k9 r! K0 u, [
4 n( H, N$ @9 a3 R  {   dbSave( cvId )
% @; }/ ], W# |  D( S! H   dbClose( cvId )
* w6 J( f# {" T1 i# ~6 V0 h
% G) D. X7 {& O0 E6 P" m  d+ {    ) ; foreact one

/ q8 o9 H! I$ K) s- H: K1 D0 y/ q)
);proc