一個sKILL範列,切4邊行的角

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
6 N% X, ?0 J0 Q/*
" l  r% D4 [% J1 H2 |( W. v7 _. Q" O//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
! ?! y. C$ J, a& \0 _1 `; n* f$ t9 ^9 T0 EFile name : CUT.il
( @1 T7 K/ {3 w( ^: IPOP menu Write by nfmao
4 K& |5 x" M4 G: j2 J9 rDate: 2007.12.11
. N8 V* n. L( b5 h: k/ ]Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
5 h  g9 p, \" ]2 N: K. h3 _     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
# c" P# {9 T& J9 c: ]0 V注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
/ Z% A2 c6 p' {3 E. l# y: @0 ]///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- i9 C6 T$ c$ ^( d/ i7 @procedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
$ j7 v. {" e0 r1 }) W. T2 n3 S: {0 Q7 md=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
y1 = cadr(car(xyBox))
, @/ ^' _) S" I; U& B" O1 Px2 = car(cadr(xyBox))
y2 = cadr(cadr(xyBox))
0 Q' ~  D. I* C( n; G6 ^cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
& c! i  V' U' j# wcut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
) I( H) q6 s+ e# |cut3=list((x1:y2) (x1+d:y2) (x1:y2-d) (x1:y2))                        ;cut lin3座標list(是一個封閉cycle)
3 J9 f: G+ g5 I9 D0 k/ Scut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
* R6 `3 w/ w* N; B)

! C# p# n( t1 |- i8 m  xprocedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
! D  w4 s6 o8 t3 {0 C: R2 C   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
9 C% B* W" _  U" W% B   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
- O( p& e! U, F2 ^7 R   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
   leChopShape( shape cut2  t t)                       ;cut一邊
" [# g" a# S$ j! ^4 l6 t: {   leChopShape( shape cut3  t t)                       ;cut一邊
   leChopShape( shape cut4  t t)                       ;cut一邊
- n! @3 s7 k, W) \% _   println(x1);
   println(y1);
   println(x2);
   println(y2);
   );foreach
( N0 a& v* G! c6 M+ C- t" ~" R9 Z! Z)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- B. B4 z' Z5 e7 xtrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
2 X: b7 n  d* ^1 h; W* J# K   ?name 'trA_MenuItem
9 s* g2 f+ g7 ?, Y6 j   ?itemText "chop"                                       ;menu項目2標題
3 }, A/ G6 t5 n* H9 S   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
   ?itemText "Hello World"                                ;menu項目1標題
) G. o' C- B6 I& A' G   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )


procedure(trSimpleMenu()                                ;產生meun表單的程序
- j/ Y6 X8 Z/ v+ a$ B% |0 vlet((simpleMenuID)                                     ;宣告區域(local)變數
word="Hello wodr!!"                                    ;字串變數
simpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
$ K4 T$ p% t; T+ |$ m)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
6 i+ v: S5 m* n. P* q( H" ~. {);let
);proce

遊客，如果您要查看本帖隱藏內容請回復