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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
7 ]) z2 T3 @9 _4 V/ i/*
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
& O2 T9 i1 q+ c/ HFile name : CUT.il
* E( d% F5 n3 M5 k2 t* OPOP menu Write by nfmao
; ~" L5 @5 Q6 S9 C' x! iDate: 2007.12.11
% t8 z$ Y' [# o8 l+ R) t0 FVer : 0.01
, o) r5 `, V; n, ]  p, s用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
* q+ c* M9 p  m) b# |     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
( T/ z0 q6 P  k- G7 Z' H注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- W# s7 n  \, d4 g/ N*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 x* P2 M3 E! T3 J& mprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
1 r. U$ |- b) e/ z4 G4 X$ R% }d=0.5                                                 ;切的距離(自己設)
* l# N9 o# S/ d+ f$ W1 }6 zx1 = car(car(xyBox))
y1 = cadr(car(xyBox))
x2 = car(cadr(xyBox))
0 {  x! p: u0 P( I$ xy2 = cadr(cadr(xyBox))
' a% Q9 ]* t' l) c6 F9 Q4 Wcut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
" X) j, e* t1 I& I8 c- Qcut2=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)
/ K1 v% V3 g7 d* I4 mcut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
)

  k0 z9 w1 R' L8 oprocedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
! A! j* ]& l1 e1 k# h2 Z   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
0 |) P) W+ q/ r+ B   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);
/ R( I0 O& s) U9 P  [% ?   println(y1);
$ M( u" G9 K" s0 ], U+ c& w   println(x2);
   println(y2);
   );foreach
' h- a2 p/ I7 |* F)
4 s, H+ b0 M8 c* u( t;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
trA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
5 C# [9 b: j9 Y  ~: J, k   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
: D* e6 m( r3 y: m" C6 ~7 [   )
trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
, A0 d4 u7 j, M; H! e' |0 u   ?name 'trB_MenuItem
   ?itemText "Hello World"                                ;menu項目1標題
" h6 n+ Y: \% x" L* j5 `   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
7 Y, J3 D: F; F5 A5 a8 B

procedure(trSimpleMenu()                                ;產生meun表單的程序
8 c0 q  B  w4 S! Clet((simpleMenuID)                                     ;宣告區域(local)變數
7 j* U4 a1 ^9 g: Uword="Hello wodr!!"                                    ;字串變數
1 h: P( h  a+ k. NsimpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
8 T; l) U8 n+ `  Y# E( K, ]"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)
- G9 s6 v! \( z+ J4 |  z2 f2 u5 L. ^
hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
);let
+ A6 p, O7 v0 l$ v);proce
4 C4 Z. Z2 l2 {3 H6 c. {

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

oiziyo

那麼勵害，
( ~3 |0 F2 o. T: H$ r. ?* C+ m& J! `* a這可是高手啊，
+ r9 p3 Y) d  p5 c這樣的東西可不是一般人可以做的到的
謝謝分享

afor

原來還可以這樣用啊.....
) h7 F0 u9 _' m3 Q可惜都已經下線出去了,
謝謝大大分享實用的技巧

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊
7 S" k7 y; J1 [, S# u5 ^( S