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

12345

最近才剛在看SKILL,cadence的pdf檔寫的好爛,一個leChopShape試好久才試出來,這是我最近寫的,還有註解
/ p- ?! _, V  D" D/*
2 Y7 a( F, u& |6 X! ?//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  R2 J% a) [% W% b7 x# }0 G作者:Y.P.LIN
File name : CUT.il
POP menu Write by nfmao
; K6 V9 |& j9 Q5 MDate: 2007.12.11
Ver : 0.01
用法:在icfb,load本sKILL(例如 load "CUT.il" ),再開一個layout,選取rectangle(可複選),按滑鼠中鍵(會跳初選單),再選chop
參考:雷奧星空論壇(http://www.armbell.com/forum/viewforum.php?f=13&mforum=iclayout)
# {9 Y2 H( x5 a- t; a: x) u4 t/ D     :中国集成电路教育网(http://www.icedu.net/Article/shuzi/houduan/Index.html)
     :cadence手冊(安裝目錄下/doc/sk開頭目錄)
- B% ^# ?' p8 l: v+ \注:本SKILL還在開發中,目前只能切RECTANGLE的4個角
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
3 Y( m1 `$ P: V4 f& p4 i+ v" k" C) H*/
8 w3 U, q' a4 d  g! I  |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;cut矩型的4個角;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 @  u3 |, U7 Z+ [9 w( _procedure(getXY(xyBox)                                ;取得四邊行CUT點座標的程序
d=0.5                                                 ;切的距離(自己設)
, l/ b0 S, K3 c! A: ]x1 = car(car(xyBox))
: m: {) a' y. X+ Ly1 = cadr(car(xyBox))
x2 = car(cadr(xyBox))
& m* |( ?  t% L  h3 O7 q' @5 Py2 = cadr(cadr(xyBox))
2 M* J; Q& e  z0 b. _cut1=list((x1:y1) (x1+d:y1) (x1:y1+d) (x1:y1))                        ;cut lin1座標list(是一個封閉cycle)
7 K$ D) F% v8 A3 T0 _+ n+ U3 w" `cut2=list((x2:y1) (x2-d:y1) (x2:y1+d) (x2:y1))                        ;cut lin2座標list(是一個封閉cycle)
# P8 |( C! _( P' Acut3=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)
)
& [5 ~  ?0 }/ l9 [
0 n+ Q9 F5 N2 h+ W0 y! }procedure(chop()
( F) z+ o; O& R0 }0 k0 b; j   selobj=geGetSelSet()                                ;取得選的物件
   foreach(shape selobj                                ;把每一個物件逐一丟到shape變數
   ;leChopShape( selobj list(0:0 100:100 ) nil nil 10 )
   selobjbox=shape~>bBox                               ;取得物件的BOX(指方形座標2點->list)
" F& m. O1 p/ x   getXY(selobjbox);                                   ;呼叫getXY程序,且給一個參數selobjx
   leChopShape( shape cut1  t t)                       ;cut一邊,第一個t只是一個封閉cycle,第2個t指移除(remove)
' E; K0 t# B2 g   leChopShape( shape cut2  t t)                       ;cut一邊
9 F( h: o  W: }/ V( s% _   leChopShape( shape cut3  t t)                       ;cut一邊
& y  ]7 Z2 N9 r6 a   leChopShape( shape cut4  t t)                       ;cut一邊
1 V5 z0 y" L& p   println(x1);
   println(y1);
   println(x2);
   println(y2);
/ b7 z) \% z' ^" X2 @0 F   );foreach
)
* Z" p# L- n/ d;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;表單;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; m1 w0 f: v* f% M* etrA_MenuItem = hiCreateMenuItem(                          ;menu項目1
' m0 I# o4 \. s0 J; \. z   ?name 'trA_MenuItem
3 U" Q  S" H$ m$ `% C   ?itemText "chop"                                       ;menu項目2標題
4 r2 ~2 p1 z% x$ @. N   ?callback "chop()" ;;; prints B in the CIW             ;選項後的動作(呼叫chop()程序)
( E* O% p+ ]( \5 z- |0 M& x   )
trB_MenuItem = hiCreateMenuItem(                          ;menu項目2
1 J4 _$ |- Z9 K; r& S5 }8 v: L. D( @   ?name 'trB_MenuItem
$ |$ P/ Y2 t$ l   ?itemText "Hello World"                                ;menu項目1標題
   ?callback  "println(word)"                     ;選項後的動作(在CIW視窗印出Hello World!!)
   )
! M4 ~8 M. M1 c% R
& R, r1 |* ^2 _" h: @1 o
procedure(trSimpleMenu()                                ;產生meun表單的程序
let((simpleMenuID)                                     ;宣告區域(local)變數
word="Hello wodr!!"                                    ;字串變數
" s' [$ G, n( d7 W/ j* [+ n& gsimpleMenuID=hiCreateMenu(                              ;產生一個menu
'simpleMenu                                            ;GLOBAL(ID)
"Simple Menu"                                          ;標題
6 d8 R, @# e/ a& K'(trA_MenuItem trB_MenuItem)                           ;LIST(表單的項目)
)

hiDisplayMenu(simpleMenuID)                             ;根據menuID在螢幕顯示
);let
);proce

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

oiziyo

那麼勵害，
1 M  e5 v9 {) v8 N/ X這可是高手啊，
這樣的東西可不是一般人可以做的到的
1 B' a7 [/ C3 @, l謝謝分享

afor

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

jling

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

ryan1

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

sterling

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

loongsky

cadence有自带的切角工具嘛

a2763338

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

pjh02032121

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

blackcorrupt

謝謝分享囉, 來實驗看看

sheilamenuett

正好很需要，謝謝分享~

janus7799

正好很需要，超級感謝！

skeepy

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

hunky

太神啦，谢谢分享啊啊啊啊
9 E0 u. m/ ^7 W, U; D: r) J) k+ O% B