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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/*
' X! s  n* v& d( m0 \//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
File name : CUT.il
POP menu Write by nfmao
Date: 2007.12.11
Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
% f- U0 W( z/ u5 x5 L; F3 U, \參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
5 ?# y* o) v5 O+ M( L     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
# o, @" C: P! h注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
3 _" Z8 B2 C! |6 Nd=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
/ N1 W+ _6 A5 S; w8 X+ t  Z: iy1 = cadr(car(xyBox))
x2 = car(cadr(xyBox))
y2 = 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)
) l% {! C) _' _! Hcut3=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)
; O) b6 A  r4 U0 V# C)

6 }+ E' L' T* j. `procedure(chop()
5 V2 z$ T2 l6 j4 r. R, m! c9 z; T   selobj=geGetSelSet()                                ;取得選的物件
. N5 M1 C9 l! U) C   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
1 _- {( _  Y  v  @   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
$ Z, o' e, A, j7 u7 }; x' p   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
9 c' H, s$ ]9 d6 ^7 K$ I   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
   leChopShape( shape cut2  t t)                       ;cut一邊
' F, G! w; z5 l4 ]) @) z   leChopShape( shape cut3  t t)                       ;cut一邊
   leChopShape( shape cut4  t t)                       ;cut一邊
  ?! u+ \5 ?  K3 s8 i& g   println(x1);
+ D7 {8 s! b5 S1 K% m   println(y1);
# e! i' G$ {& i. g   println(x2);
   println(y2);
$ V7 f7 P5 m" R* S   );foreach
% y" n9 Q2 W  p/ Q4 C)
. s! v2 V2 v$ m9 T  x3 _, G" W* P;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
trA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
5 \0 S) L1 O4 P   ?itemText "chop"                                       ;menu項目2標題
  f7 B  p) I6 r# Q8 h  e. h   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
, T1 k6 ~5 m  \& l   )
& Z! S1 l; L* O. ^% X; L5 R' o) ktrB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
   ?itemText "Hello World"                                ;menu項目1標題
+ C% `" i/ X- i: f( \1 l! w% O   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )


# |. [' V8 s$ U' e/ h& _) {( Zprocedure(trSimpleMenu()                                ;產生meun表單的程序
  `: ^( x7 ~9 |let((simpleMenuID)                                     ;宣告區域(local)變數
word="Hello wodr!!"                                    ;字串變數
4 u' M; D2 A4 A* m1 C% ZsimpleMenuID=hiCreateMenu(                              ;產生一個menu
4 {% V: p* Y/ p" L" I: L1 N& a'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
. p8 Z& q. s$ j, g6 _% w/ y+ ?);let
; ^, f7 H3 ^, s! I5 F5 Z6 p) n. A# T9 a);proce
0 L, M( l# p; c! b

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

hunky

太神啦，谢谢分享啊啊啊啊
5 K9 g* B9 a5 f, f8 g. {3 p

skeepy

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

janus7799

正好很需要，超級感謝！

sheilamenuett

正好很需要，謝謝分享~

blackcorrupt

謝謝分享囉, 來實驗看看

pjh02032121

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

a2763338

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

loongsky

cadence有自带的切角工具嘛

sterling

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

ryan1

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

jling

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

afor

原來還可以這樣用啊.....
% e- I# u* h5 z6 C: i3 p可惜都已經下線出去了,
  ?0 e6 I5 w1 B謝謝大大分享實用的技巧

oiziyo

那麼勵害，
這可是高手啊，
1 Z/ g5 v, C" P8 V3 g這樣的東西可不是一般人可以做的到的
謝謝分享