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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/*
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
5 I# P! T2 T% ~作者:Y.P.LIN
# m8 ^. r. Q8 y/ }File name : CUT.il
: [' w7 V  b/ r! {9 {* d& t9 `POP menu Write by nfmao
2 i7 p+ h: W* c7 l6 z$ G( YDate: 2007.12.11
( ?% ^+ x* J8 y/ R3 AVer : 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)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
! o  r# ]# D, Z! d///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
' o# T$ S0 }$ p: @, Y9 Bprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
6 X2 I7 C: `) Y: c" U/ ux1 = car(car(xyBox))
y1 = cadr(car(xyBox))
3 w4 {2 V. \9 ?x2 = car(cadr(xyBox))
- D5 m9 p  L' i4 y* \# I3 Y8 hy2 = cadr(cadr(xyBox))
$ I9 B. Z) Y) w' s1 X5 }! y& Kcut1=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)
& A1 X1 w; S, v7 p( Q8 n7 Rcut3=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)
" }! Q3 M3 x" m5 T)
- o. j+ H1 J$ W! f  k
* i# q* l* i. qprocedure(chop()
: M! ~. B% `% z# A2 }! n   selobj=geGetSelSet()                                ;取得選的物件
, A' I7 F' h' {, {. h. t3 _   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
; E" o7 R% H4 Z4 {% B# C   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
& q- w( u7 E& ]  @, ?5 n   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
+ ]" i" n0 j5 R. M* ~- j   leChopShape( shape cut2  t t)                       ;cut一邊
) i2 X% d6 p- k* e4 _0 a   leChopShape( shape cut3  t t)                       ;cut一邊
   leChopShape( shape cut4  t t)                       ;cut一邊
, O/ I7 T5 }1 n3 Z   println(x1);
   println(y1);
   println(x2);
   println(y2);
1 ^& W, c7 |8 u; H- p8 s. t   );foreach
)
' g# S) b) |5 Y0 F! }+ b;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6 B# w* Y1 H* i, H9 htrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
3 G% C3 G+ O1 l0 r/ i- C% j) T   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
; E+ v- o! S! l. g& }   )
1 q  z7 U7 }  k9 M8 jtrB_MenuItem = hiCreateMenuItem(                          ;menu項目2
! d8 A+ [- l0 [! L  C) ?9 J   ?name 'trB_MenuItem
- V1 g! p) \$ O5 T; t; e   ?itemText "Hello World"                                ;menu項目1標題
1 K: q1 o0 G2 ?6 R% g. f' w1 D   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
4 M8 ~. y+ i7 r6 m5 J   )


procedure(trSimpleMenu()                                ;產生meun表單的程序
# E1 a. P* H9 s, B8 dlet((simpleMenuID)                                     ;宣告區域(local)變數
3 _. y8 R& s6 F- {" Sword="Hello wodr!!"                                    ;字串變數
simpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
( X, a; T6 X* ]& p8 {0 P'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
" e4 ]% |: V" e! y  K)

1 d- m6 T0 z. j% BhiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
5 w* v, _' W6 d7 j4 ]);let
3 \- j% b# R" r% T# U& D+ g- G);proce
& T" ^1 R: {! S1 W

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

oiziyo

那麼勵害，
這可是高手啊，
/ e6 D+ t; T* ~$ A8 x這樣的東西可不是一般人可以做的到的
, b1 W) B* Z0 m2 f! U7 q; Q謝謝分享

afor

原來還可以這樣用啊.....
可惜都已經下線出去了,
謝謝大大分享實用的技巧

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊