|
EDA365欢迎您!
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 skill_rc 于 2016-3-25 13:51 编辑 $ }; P; H# d/ p: x8 q, v
/ C- v, L8 r6 Q7 ]; b% T) _1 Z- Sprocedure(convert_cline_shape()
# ]" }( l/ q# _* p2 T$ p let((cline_ids net layer polydbid)1 W! i8 B# m/ s S
axlClearSelSet(); T$ e% P9 B5 Y# ^# G
axlSetFindFilter(?enabled list("noall" "clines") ?onButtons list("noall" "clines")). t9 w# [3 g- K% r9 t
axlSelect(?prompt "Select Clines to convert to a shape.")) ] q6 _8 V/ s" M+ u
cline_ids= axlGetSelSet()# S/ ?: f \# A* X7 M. x
if(cline_ids then' N) L6 R! `6 w( |( ?6 @# g9 K8 O7 d
foreach(bid cline_ids( p" O9 C4 [! P) J: z
net = bid->net->name: f9 \, p8 a( ]2 f/ n( V6 k
layer = bid->layer) X4 j, }/ G% n% p1 W
polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)
# @. }/ p0 m. N' q8 K: _ axlUIWPrint(nil "### polydbid is %L" polydbid)
e n$ j6 O( L- K if(polydbid then # }' x4 F" [( P& R0 Z& G( a
axlDBCreateShape(car(polydbid) t layer net)% J0 c& \* h. Y; f; i
axlDeleteObject(bid)* ^, L7 Q' H1 j
); S3 v* s; k- C, s0 r
): ]" v) _! ] K$ M& E; ^
)2 [- w# _ S; G/ W& o* U7 y+ B) V& D0 y
axlClearSelSet()
0 T( L- K* }: j0 z7 C0 t: o axlFinishEnterFun()
( [& f2 ?+ o( A1 h )2 c9 z/ u# B, r4 E6 {2 d) }+ l
)8 \* [9 d5 X4 }# E
8 m" p& F4 X) v7 O" E8 ~
! S' Z9 q+ p; S. k补充内容 (2016-7-4 16:19):! k, ^' v. d8 ^ w$ i. W* ?
出现转换完后多边形线头的问题,只需要修改如下一行代码即可。' \$ T7 I+ O$ |! Z
polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)----〉(修改为下面一行)
* v' r+ b9 L# I7 Y0 i% \5 vpolydbid = axlPolyFromDB(bid ?endCapType 'ROUND) |
评分
-
查看全部评分
|