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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/*
( s) k, N( W& c( X; ]6 T. `) E//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
& ]  _7 P3 Z$ x1 m2 d' I( RFile name : CUT.il
POP menu Write by nfmao
/ q/ h) Y' l% q1 q: u; SDate: 2007.12.11
Ver : 0.01
1 e  G4 M( m* A/ Z" w0 o' s用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
8 k, p4 M9 v0 s4 g) k7 W5 }  u2 p  D參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
2 m& ^- D' k  e; o/ ]     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
' H0 l$ ]+ S$ u8 e+ N  _1 Wprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
y1 = 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)
cut3=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)
0 G' U) K1 _. N- t( l& p)
; z/ i8 _  R! C# e& m
procedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
1 |8 o( a; V! I5 \; l* M   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
4 T; b( U' b5 @8 r1 _  ^   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
8 [) w! }+ ~2 K3 X  o# [4 B   leChopShape( shape cut2  t t)                       ;cut一邊
$ R0 ]! N6 [3 ^   leChopShape( shape cut3  t t)                       ;cut一邊
$ ?4 t  a) B. M8 j1 b( Y# s: A   leChopShape( shape cut4  t t)                       ;cut一邊
7 u( H# V8 W, D8 \2 A; f" M: ?- F% X   println(x1);
* l! i! J4 T6 h% G   println(y1);
' Z# A) B( R" d- p7 e   println(x2);
) e9 M( t! z3 S- K) w. h  t5 s   println(y2);
   );foreach
2 O4 y" w; r9 R) \)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( s( \# J( T' F9 HtrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
# n6 K+ X& }6 J   ?itemText "chop"                                       ;menu項目2標題
+ x+ a' c, B8 n' W) U7 F9 R, L- E   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
5 k% p  w* B. U! E% F1 {   )
trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
' f: h. T# H9 _6 S1 l! Z4 i   ?itemText "Hello World"                                ;menu項目1標題
, U7 s; P& z. j* e8 M   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
$ i. B4 S/ \9 g( G$ _" {   )
6 b' Y! k" H- ~
' v" s) E' [2 R( O0 I
procedure(trSimpleMenu()                                ;產生meun表單的程序
1 |2 J' p' ?/ E8 |( i0 z$ o; alet((simpleMenuID)                                     ;宣告區域(local)變數
8 H# ?6 V$ D% D7 l0 Cword="Hello wodr!!"                                    ;字串變數
; E0 c1 z8 u5 u( ?$ }# S7 M$ |simpleMenuID=hiCreateMenu(                              ;產生一個menu
& e( M, j0 j. s* g" A' z& N'simpleMenu                                            ;GLOBAL(ID)
7 u: q( h$ K* P- r& J% W+ I- r$ Z"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)
$ f. W: N4 l& D
8 C, s& q& T0 }- Q, @4 hhiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
+ X; Q. _! `3 e$ Q);let
0 O+ b6 k3 G' s# c);proce
/ P3 [: L7 @# b) _/ r0 x1 \2 K

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

hunky

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

skeepy

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

janus7799

正好很需要，超級感謝！

sheilamenuett

正好很需要，謝謝分享~

blackcorrupt

謝謝分享囉, 來實驗看看

pjh02032121

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

a2763338

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

loongsky

cadence有自带的切角工具嘛

sterling

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

ryan1

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

jling

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

afor

原來還可以這樣用啊.....
可惜都已經下線出去了,
( |* _* m/ l3 d謝謝大大分享實用的技巧

oiziyo

那麼勵害，
( O% J8 P' @; R% A- G) y- m9 u0 v9 i這可是高手啊，
' ?. e/ H9 `6 |, d3 _1 L: s- ?  T這樣的東西可不是一般人可以做的到的
謝謝分享