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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
" T5 Y8 A% S, J- `* X! r# }/*
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
作者:Y.P.LIN
$ L% i% Z8 k" S( @" f8 u9 J4 fFile name : CUT.il
POP menu Write by nfmao
; ]5 W2 S' H4 O3 D1 u' M' z! v- \! QDate: 2007.12.11
/ b/ D1 M8 `; u. M) V7 w, m# \Ver : 0.01
" h6 j! I" x. \# u& G2 Z% b. N, Q! V用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
' L  P* v& A: z$ R參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
7 _# l& c. ~5 I( W3 ]. ?$ {8 E     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
+ \8 w4 G. D, F, N///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0 o7 \7 o) d" H& F/ @) S*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 N5 Y; \. F" ?, P" `$ G9 x3 i9 iprocedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
: S& C2 {' o) g) a. \0 ]$ Sd=0.5                                                 ;切的距離(自己設)
x1 = car(car(xyBox))
y1 = cadr(car(xyBox))
* R( ]* d+ k- A! Gx2 = car(cadr(xyBox))
( ?2 b9 g5 f. |! T7 a/ U- n: e" Hy2 = cadr(cadr(xyBox))
cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
  M/ @6 B0 d6 G) @6 ?cut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
3 S4 t% e9 @6 Y, w- Dcut3=list((x1:y2) (x1+d:y2) (x1:y2-d) (x1:y2))                        ;cut lin3座標list(是一個封閉cycle)
1 n* P. {3 E0 v4 w8 o6 Ncut4=list((x2:y2) (x2-d:y2) (x2:y2-d) (x2:y2))                        ;cut lin4座標list(是一個封閉cycle)
)

9 g) N3 e2 |- }$ Lprocedure(chop()
   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
* }! `8 W1 z4 M  ]9 W0 g0 U; ?. w7 W   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
" u- B: f4 f) W" x. ~' m( V7 ]   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
   leChopShape( shape cut2  t t)                       ;cut一邊
5 [4 a$ Z( o  o   leChopShape( shape cut3  t t)                       ;cut一邊
$ Q4 F/ v$ \" n* O) x6 z   leChopShape( shape cut4  t t)                       ;cut一邊
   println(x1);
0 n- m" F1 Q2 {1 g7 v; A1 _7 f* j$ w   println(y1);
   println(x2);
   println(y2);
. b, H7 d3 G9 Z& w6 _" i, O   );foreach
2 G5 L0 l# B4 f$ a4 V)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
trA_MenuItem = hiCreateMenuItem(                          ;menu項目1
   ?name 'trA_MenuItem
   ?itemText "chop"                                       ;menu項目2標題
   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
   )
trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
2 q# C  _$ g; s& [$ Y; E; G   ?name 'trB_MenuItem
7 S& v* h. u- C& i/ c4 c   ?itemText "Hello World"                                ;menu項目1標題
* \  T+ |. G% y1 s   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
" \% y& S4 I: T2 q! h) Z

) e- u6 U% D  _) S  V0 j8 j( xprocedure(trSimpleMenu()                                ;產生meun表單的程序
let((simpleMenuID)                                     ;宣告區域(local)變數
9 r9 M7 F; g% A6 g. Qword="Hello wodr!!"                                    ;字串變數
simpleMenuID=hiCreateMenu(                              ;產生一個menu
7 c; P6 C4 W- {3 C7 O1 u" h. L  e'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)
' K& h. Y, O6 n* f% f
hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
" Z! n; ?8 G( ~. N1 ?. j);let
7 w: U: }% `' ?& w2 X9 U);proce
- X" c/ _5 Z7 S$ f; ^: X

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

oiziyo

那麼勵害，
這可是高手啊，
6 \, D2 v+ T. H# p5 n& E( z這樣的東西可不是一般人可以做的到的
" R/ E0 j2 ?9 |/ N' _謝謝分享

afor

原來還可以這樣用啊.....
可惜都已經下線出去了,
4 b: n- x8 B" L1 _+ a7 _謝謝大大分享實用的技巧

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊
% m$ p" \' h  ^; O& [! ?, x8 \