cline 转 shape 源码呈上 看者有份 [只为三级]

skill_rc

procedure(convert_cline_shape()
    let((cline_ids net layer polydbid)
        axlClearSelSet()
9 l0 j. Z, K' D        axlSetFindFilter(?enabled list("noall" "clines") ?onButtons list("noall" "clines"))
        axlSelect(?prompt "Select Clines to convert to a shape.")
% b7 P! z6 Q7 |9 i        cline_ids= axlGetSelSet()
5 z, [% _2 S. E        if(cline_ids then
            foreach(bid  cline_ids
% N- O% v- \( G3 ^: Q                net = bid->net->name
                layer = bid->layer
9 [, m' Q: Q/ B: ]$ }8 G                polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)
# d1 n# s0 ?' G% K3 }0 P                axlUIWPrint(nil "### polydbid is %L" polydbid)
$ h9 @; K) s' a                if(polydbid then
. T' u' X( e& a- A* g, l* h8 y                    axlDBCreateShape(car(polydbid) t layer net)
                    axlDeleteObject(bid)
                )
            )
: W1 ^2 B: n7 P! S- J        )
$ D. z1 Y, x5 R3 `    axlClearSelSet()
    axlFinishEnterFun()
/ p5 P& }8 T. E( D3 S    )
3 J: v8 P+ H  w* \* j5 I) T- @1 `6 C)
# e8 J+ @+ {# C5 b
( f3 U, K+ u5 G7 D. {
) t! F1 Z2 s9 C补充内容 (2016-7-4 16:19):
' x/ i5 S/ G% t: Q4 S2 ~出现转换完后多边形线头的问题，只需要修改如下一行代码即可。
5 Q9 e5 W" d0 s0 rpolydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)----〉（修改为下面一行）
polydbid = axlPolyFromDB(bid ?endCapType 'ROUND)

skill_rc

别人回复不会增加我的积分么？ 哭晕在厕所。。。。。。。

Nicole

skill_rc 发表于 2016-3-28 08:52
' d' @/ W4 Y+ i( [( a' g$ u7 i需要进入skill模式，进入方法：输入skill 即可

. h% K; b5 Q" N3 m; O$ H! \: g$ ~% Z5 _我也是用不了， 我用的命令是：  skill load（“convert_cline_shape.il")  
                    出现  T
; g: x6 _0 o% A8 p1 [/ G                            command>   再输入：convert_cline_shape()
0 n1 U- v0 S2 m% y0 c                    出现  E-Command not found: convert_cline_shape()
  m+ T5 ?. B8 A, |3 g8 c9 |& L

: |' Y1 G7 Z  s- L. d& u! w- Z% s求解！！
' Q3 }% A6 V0 }6 P$ _

skill_rc

Nicole 发表于 2016-3-31 18:18
/ r) l; U8 y4 s' g* @7 N: C我也是用不了， 我用的命令是：  skill load（“convert_cline_shape.il")  
                    出现  ...

1，输入skill 显示skill〉
, v, h# f* R& r; x/ x# g2，load("convert_cline_shape.il")
3,convert_cline_shape
4,over

1 l- ?4 _0 q! ?3 Y5 Q9 K

不要命的荨麻草

这个怎么用呢？

skill_rc

不要命的荨麻草 发表于 2016-3-25 11:45
这个怎么用呢？

- w& L! E6 U6 @- a3 ]1 J1，新建一个il文件
2，把这个代码放到这个文件中，保存。
1 Y( m. b1 r& }+ m0 m7 p5 C7 s8 O3，通过allegro的命令行部分，输入skill+回车进入skill模式。显示为：skill〉
3，使用load 命令把这个新建的il文件加载进来
4，命令行中输入convert_cline_shape() 敲回车 ，会提示你选择一个cline，你鼠标点击后，点击的cline就变成shape了。
5，over。
; f6 c7 h* S1 y% z& M- E* [! ]2 \
0 b& Q! y2 [/ q" R) _1 f1 H

mintjelly_abc

同学，你还不如自己把文件做好，别人下载的时候你还可以赚点积分威望什么的

mintjelly_abc

试了下，蛮好用的，谢谢楼主

skill_rc

mintjelly_abc 发表于 2016-3-25 13:46
试了下，蛮好用的，谢谢楼主

' L3 G" C. |4 ^; I3 Y% h% o还以为别人回复能积分。。。。。。

mintjelly_abc

skill_rc 发表于 2016-3-25 13:52
还以为别人回复能积分。。。。。。

太天真了，我支持下你啊

mintjelly_abc

怎么不在文件里面加个快捷命令行啊？太敷衍了

skill_rc

mintjelly_abc 发表于 2016-3-25 13:58
3 l- ?8 i* q6 R2 N9 M# y太天真了，我支持下你啊

* O! n0 q! c4 [1 m5 S) H谢谢！谢谢！谢谢！ 重要的事情说三遍！

skill_rc

mintjelly_abc 发表于 2016-3-25 14:00
0 N" Y' d: a7 d0 |. i+ ~8 i怎么不在文件里面加个快捷命令行啊？太敷衍了

. ]  G: f1 u/ l额。。。。

skill_rc

给附件的函数添加快捷键：
axlCmdRegister("c2s" `convert_cline_shape)

流云逝水

哈哈！

skill_rc

自己下载还减掉威望值，这是一种什么样的酸爽体验。说好的三级呢。。。。

niliudehe

好几啦