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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
9 }6 h( Z% \0 x% u1 G2 \/*
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
File name : CUT.il
9 L* }  @* U. j9 b& i( V, ], ZPOP menu Write by nfmao
Date: 2007.12.11
Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
/ G& C# M# a4 ^  r! g2 l8 `% u參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
# P. s8 N' v2 J     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
/ o8 [/ `- @, P4 R8 j9 g///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
9 [7 |' Y$ Y* m5 t8 };;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
9 V; M# {8 N) \# d/ g( G' R1 B% g; Py1 = cadr(car(xyBox))
* B! }* c$ t0 Q# ix2 = car(cadr(xyBox))
y2 = cadr(cadr(xyBox))
cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
6 c/ M+ [- K- @* j' @cut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
cut3=list((x1:y2) (x1+d:y2) (x1:y2-d) (x1:y2))                        ;cut lin3座標list(是一個封閉cycle)
3 m) j4 q% Z7 l. Y) xcut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
8 d1 ^( \; f% w' L' u/ O& Y)
, m5 }, K( h6 h: ]
3 V- V: W7 s& M! Mprocedure(chop()
9 L, i( C5 Q% j/ i1 C0 I   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
5 p2 t: q& H; Q: _, r   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
) ^: h; s5 r1 U& M2 h6 g   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
: m$ a" C- H4 B5 l* p5 N   leChopShape( shape cut2  t t)                       ;cut一邊
5 [9 z! n) P7 r. d4 t* T. a) `* ?7 c   leChopShape( shape cut3  t t)                       ;cut一邊
. L5 }9 A7 j$ v9 W   leChopShape( shape cut4  t t)                       ;cut一邊
   println(x1);
   println(y1);
3 I5 U2 r. e& Q   println(x2);
   println(y2);
! m8 a; k5 W" ^0 w2 b; z# b   );foreach
9 x# ?6 u. d) u)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  O( P' ?/ ]4 I; h1 ttrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
) `* h: I. R+ `6 q+ L   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
8 u6 a% x* C) n8 Y( [trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
   ?itemText "Hello World"                                ;menu項目1標題
   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
' g! b* f: \+ F  Q  A

procedure(trSimpleMenu()                                ;產生meun表單的程序
0 p. F' J: p/ R5 S5 K, o, vlet((simpleMenuID)                                     ;宣告區域(local)變數
word="Hello wodr!!"                                    ;字串變數
& g8 V- h5 J* w' G& {simpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
  O5 `1 V7 x& v)

. b! k! E2 X  IhiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
);let
% g- l# J: @! {, C1 a& i);proce
* a" h# K+ q1 ^4 i# J' C- ^

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

oiziyo

那麼勵害，
  W2 j& O* S" ~7 G; s這可是高手啊，
) x5 E2 M- K) Z3 t1 T! K這樣的東西可不是一般人可以做的到的
謝謝分享

afor

原來還可以這樣用啊.....
( S0 k' E% V: K! g" q1 ~/ Q可惜都已經下線出去了,
; J: G) L6 k% o1 \4 Y謝謝大大分享實用的技巧

jling

正在找这个skill，网上这个资料好少啊，谢谢分享！

ryan1

好像不錯喔.來試試看囉.謝謝您的方享...............

sterling

  謝謝啦謝謝啦 謝謝啦謝謝啦

loongsky

cadence有自带的切角工具嘛

a2763338

非常感謝  這部分目前需要做測試

pjh02032121

好不好用，我来试一试，多谢楼主。

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

ic5141  EDIT > Other > modify corner ，不會就按Help 看一下就會設定了。

hunky

太神啦，谢谢分享啊啊啊啊
1 A+ L0 B$ p) ^