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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
2 o% @0 g+ N. w4 R5 S! M' ^/*
* \+ ?# `) M0 W* x7 _//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
, I6 v" |1 |  e5 ?/ f/ u* |2 ?0 UFile name : CUT.il
POP menu Write by nfmao
- z  P9 n$ U, a# J* s9 {, xDate: 2007.12.11
: V) ?( |) h/ v8 o/ Q6 G- N1 ]Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
3 u- F. x- u7 A     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
/ {6 z2 [8 a# _1 q1 M$ a4 G4 W///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
3 p! E5 C9 i. N8 G;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# o7 U- S) ~  C2 M1 ~procedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
: R& Z5 V7 ]0 F% Sx1 = car(car(xyBox))
y1 = cadr(car(xyBox))
x2 = car(cadr(xyBox))
y2 = cadr(cadr(xyBox))
2 m* q) ?( e5 J9 k" _9 e; ^! e5 {5 R! scut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
! S; C& d+ s* u2 k7 m2 C! tcut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
# J  }& S& ~, F$ n  V% ecut3=list((x1:y2) (x1+d:y2) (x1:y2-d) (x1:y2))                        ;cut lin3座標list(是一個封閉cycle)
. T3 T0 k0 j8 `% U- I' k" n! fcut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
8 y0 C7 c$ M; F* s1 y& |- m)

procedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
8 R* w1 }  ^4 ^3 Z/ r4 Y+ y; g   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
: r8 j1 s* k9 o; a- f   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
5 _' s1 J/ \' W8 {0 b$ \4 _   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一邊
   println(x1);
   println(y1);
   println(x2);
4 {0 A9 H* |) Y0 D$ u) D+ O   println(y2);
   );foreach
4 [2 H- _+ {$ J- ^& e! l# I* k)
; {0 L3 i& \+ U) `0 p* k;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
/ M1 N) _! X/ b. K* htrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
+ J  F/ u7 c$ N; y7 B2 X) B   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
* S, e- A( n" e/ ]& ?trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
  a& c8 D$ _( l   ?name 'trB_MenuItem
2 f# y: V0 A& d   ?itemText "Hello World"                                ;menu項目1標題
   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
9 F6 a2 O! f# Q* r+ a
. I; p2 P# G% `1 o
& r. w5 ?1 Z7 Aprocedure(trSimpleMenu()                                ;產生meun表單的程序
; y7 o  l. C, n$ W0 Glet((simpleMenuID)                                     ;宣告區域(local)變數
: }% K1 I3 i# G5 c' X9 x: nword="Hello wodr!!"                                    ;字串變數
+ T3 F) Y  S( g9 K/ t2 LsimpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
5 [$ P) }% a& A8 d. L"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
  B% b6 M9 l4 k* A6 k$ ^9 T; A);let
);proce

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

oiziyo

那麼勵害，
7 |9 J. c: T1 d# ~. y這可是高手啊，
這樣的東西可不是一般人可以做的到的
謝謝分享

afor

原來還可以這樣用啊.....
可惜都已經下線出去了,
& G9 i+ J4 u5 s3 U謝謝大大分享實用的技巧

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊
: q9 P5 `% m7 f* G$ |% j8 C& b