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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/*
4 q1 @* X* q# j* t8 j4 V' ~//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
File name : CUT.il
POP menu Write by nfmao
Date: 2007.12.11
  h" }& n# @7 ?( z8 ?  PVer : 0.01
3 D: @' d5 [4 H! ]( y用法:在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)
; f2 Z9 F6 g7 G& `7 m     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
! p( ~1 f/ r+ l: i7 q) A///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
# @4 m7 ^0 [# j& b* h*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; a* g6 Y) C+ {3 T; Iprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
, A% u, k# q) y0 I! r; R- k7 {- cd=0.5                                                 ;切的距離(自己設)
: B  b; a/ J5 f. g; J- Mx1 = car(car(xyBox))
y1 = cadr(car(xyBox))
" r  y& ~' C& i) lx2 = car(cadr(xyBox))
; N8 Y+ G1 S- D+ l, l$ a3 n1 qy2 = cadr(cadr(xyBox))
cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
cut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
2 ^; H6 k4 U/ ocut3=list((x1:y2) (x1+d:y2) (x1:y2-d) (x1:y2))                        ;cut lin3座標list(是一個封閉cycle)
cut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
$ v, B) s* U; R3 u. w: F$ p)

6 |1 E+ w! Q# F6 v" T* [procedure(chop()
' J% ]  H% ^% O% @) s1 m6 ^   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
   leChopShape( shape cut2  t t)                       ;cut一邊
   leChopShape( shape cut3  t t)                       ;cut一邊
   leChopShape( shape cut4  t t)                       ;cut一邊
; ?! n% D) p+ j   println(x1);
   println(y1);
) m8 g  j! I2 Q   println(x2);
9 j& g+ u7 m7 _$ G# o   println(y2);
   );foreach
6 _5 l* ?+ G* }% K9 R, D)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; L  a3 n8 `) KtrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
  R6 |: h8 s4 C# t* k   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
4 {) r  R: e. X8 z4 etrB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
  m) ~# V/ o, Z: J% k/ O   ?itemText "Hello World"                                ;menu項目1標題
   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
, c" ~# x* C1 V( Q
" Q" i1 d( C4 Y( v0 {8 g
6 |7 l  o% X3 N0 J; y( }/ xprocedure(trSimpleMenu()                                ;產生meun表單的程序
. d4 ~) Q* |6 y8 L4 m2 l1 Wlet((simpleMenuID)                                     ;宣告區域(local)變數
word="Hello wodr!!"                                    ;字串變數
simpleMenuID=hiCreateMenu(                              ;產生一個menu
* w' k" w) I3 x! O' u- w'simpleMenu                                            ;GLOBAL(ID)
" X( D' T+ B% i: {' h"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
/ a  {4 g4 P/ `4 h+ o9 Y)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
4 l: K/ |4 v6 ^0 P! F; [  W);let
4 @6 ]- \: c, Y) x0 w2 W) Q; j);proce
; W8 S# M, h+ {! c; `9 X- W/ R

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