|
EDA365欢迎您!
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 skill_rc 于 2016-3-25 13:51 编辑 # f \8 O8 _- P7 }
0 Q, Q3 w9 @6 K$ }8 s5 s7 Y7 v9 a( cprocedure(convert_cline_shape()
- d; M5 T* ]( N5 V. R let((cline_ids net layer polydbid)8 c6 g; s6 _& ]7 j& B" W
axlClearSelSet()7 A6 p6 _8 k: B1 T7 f
axlSetFindFilter(?enabled list("noall" "clines") ?onButtons list("noall" "clines"))/ w6 C. B$ W$ V. T9 {% V$ h- Y
axlSelect(?prompt "Select Clines to convert to a shape.")
1 c; Z4 I' O: e- |! M; N cline_ids= axlGetSelSet()* n8 L9 X- n0 B+ C3 ?1 J
if(cline_ids then; I5 h2 S+ q5 K& e' d- O
foreach(bid cline_ids1 J5 A c8 ~& X9 }
net = bid->net->name
7 T7 R! G7 O" S3 [ layer = bid->layer
6 v2 r' a( s: O( m- F0 J. J0 O polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)1 T/ F" M1 O, R2 S
axlUIWPrint(nil "### polydbid is %L" polydbid)' h4 }% D7 [4 `' k+ z
if(polydbid then
/ I& Q" R6 g) Y8 [3 Q/ o axlDBCreateShape(car(polydbid) t layer net)
" c7 Q7 y, p$ R. p3 o8 ^ axlDeleteObject(bid)( b6 X1 u( {$ y* E
)+ a4 k! i4 e- o6 E
)
+ b$ J: G' n" b8 ? )% ~9 j' ^! q- b& p+ {7 y
axlClearSelSet()
( ?5 Z& e8 ]6 r4 f2 b2 x axlFinishEnterFun()4 r; t# T8 b& P3 _! s# Y, @
)+ }( u8 D/ T- a5 q* P
)! q5 F- {) W$ j9 o* T
+ }4 R3 H' ^5 x* O [& v% }4 ^$ C. C$ f+ e# D& G
补充内容 (2016-7-4 16:19):
$ |# K: u, d" ^% p出现转换完后多边形线头的问题,只需要修改如下一行代码即可。8 W0 i8 g4 u, e* W6 b' R
polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)----〉(修改为下面一行)
7 {/ n2 A8 J3 V9 n1 E) H) R* Rpolydbid = axlPolyFromDB(bid ?endCapType 'ROUND) |
评分
-
查看全部评分
|