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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/*
$ u6 q# X0 ~. g- `  t5 f( ~: n//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
, q7 K4 e4 P5 V9 iFile name : CUT.il
  A, {8 i: l: V* M- ]POP menu Write by nfmao
Date: 2007.12.11
Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
1 x; X: D$ D. t( ~6 ]5 c! Z- @6 T% C; z參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
, C- y7 ^5 @4 f/ J% _     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
6 a6 {6 ~3 B* ]5 Q5 n注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! c3 ]3 J! Q* M0 G7 T& v*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
* D% ?6 I5 |+ x7 B' Qprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
) f) \" ?# c$ D1 W- U, t. `! t! ~y1 = cadr(car(xyBox))
7 ?, e: Y* n/ G1 B# Z4 V1 Ex2 = car(cadr(xyBox))
y2 = cadr(cadr(xyBox))
cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
3 n2 @$ \/ O, w1 g4 C5 x( qcut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
# b7 R/ k3 R  x8 w/ q) {! H, Icut3=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)
$ W+ \6 Z- ]4 M- I3 u  a)
/ W, _- V3 a8 w& z9 B. y
procedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
' G& s" a( _( _$ R6 @! k1 w+ `, v   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
! U1 r( c4 F$ x5 Z5 w   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
9 C; Y/ \3 F: G4 W- V( \   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
- G+ B, e* f/ H   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
" \0 a* A2 o! ~5 q5 L$ D   leChopShape( shape cut2  t t)                       ;cut一邊
, d' |3 Z, Z: N   leChopShape( shape cut3  t t)                       ;cut一邊
   leChopShape( shape cut4  t t)                       ;cut一邊
, L) e. I& B6 D  g  g1 k: E   println(x1);
   println(y1);
   println(x2);
/ e8 p8 [' u1 O9 A+ I( `   println(y2);
   );foreach
. A! d/ B& O" z: f)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 c+ O/ H& M4 }- ttrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
  l2 Y4 I' W) N/ h8 t   ?itemText "chop"                                       ;menu項目2標題
( r5 q" }/ u; ?5 j   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
7 k9 i8 s' I+ _0 jtrB_MenuItem = hiCreateMenuItem(                          ;menu項目2
   ?name 'trB_MenuItem
   ?itemText "Hello World"                                ;menu項目1標題
   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
( ?/ q7 j/ K) F! k" {) n9 ~5 Z4 b   )

$ m( c% ~4 v  U9 b% V! q
procedure(trSimpleMenu()                                ;產生meun表單的程序
let((simpleMenuID)                                     ;宣告區域(local)變數
3 N/ g2 V9 E& ?: Z3 nword="Hello wodr!!"                                    ;字串變數
! H6 ]& B. u# r! x3 J, X9 CsimpleMenuID=hiCreateMenu(                              ;產生一個menu
. b2 R. t! B7 f) a/ ?: D1 f- O'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
9 A! D; d: u0 a'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
, q- @5 X1 X+ N# g/ F)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
);let
; N$ w1 K) D, [# k2 z);proce

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

oiziyo

那麼勵害，
) y- R, z9 _: ?' u, P0 ]  m0 G8 ^這可是高手啊，
這樣的東西可不是一般人可以做的到的
8 U0 _* f* M, Y6 a5 s& D謝謝分享

afor

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

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊
- n* H6 O- h  U  B+ {* e7 a