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

skill_rc

* o. X; y3 M5 \" p1 h, r6 ]3 E0 D0 gprocedure(convert_cline_shape()
    let((cline_ids net layer polydbid)
        axlClearSelSet()
        axlSetFindFilter(?enabled list("noall" "clines") ?onButtons list("noall" "clines"))
# e. _( t: W" N  I        axlSelect(?prompt "Select Clines to convert to a shape.")
. A$ y: r; E7 }, t& c! z, v8 ^, x        cline_ids= axlGetSelSet()
        if(cline_ids then
5 Z) Q6 A- i! Z9 u            foreach(bid  cline_ids
                net = bid->net->name
; ~5 V. }% _2 h1 F# L+ u                layer = bid->layer
                polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)
( V1 _" d. ~8 H" X0 l                axlUIWPrint(nil "### polydbid is %L" polydbid)
8 P" h3 f/ d7 r7 N; f2 s7 O& U; f) H                if(polydbid then
/ W* s( {' ^% s4 l! e3 \                    axlDBCreateShape(car(polydbid) t layer net)
                    axlDeleteObject(bid)
                )
            )
        )
6 ]( r, M% _9 ]. `9 n9 a# p8 f    axlClearSelSet()
2 _# M3 C5 x8 X4 {& N/ c0 w    axlFinishEnterFun()
9 v$ X2 y) m9 R$ d    )
)
3 t  ^/ L* A1 L- }  `

9 {" M: V( z. _0 s. Q1 E补充内容 (2016-7-4 16:19):
3 s: U6 y( @4 }出现转换完后多边形线头的问题，只需要修改如下一行代码即可。
polydbid = axlPolyFromDB(bid ?endCapType 'OCTAGON)----〉（修改为下面一行）
& B3 Y3 ~5 D+ F1 T* @9 p% Bpolydbid = axlPolyFromDB(bid ?endCapType 'ROUND)

skill_rc

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

Nicole

skill_rc 发表于 2016-3-28 08:52
需要进入skill模式，进入方法：输入skill 即可

3 c4 H; L. E4 Z9 F3 t我也是用不了， 我用的命令是：  skill load（“convert_cline_shape.il")  
                    出现  T
                            command>   再输入：convert_cline_shape()
0 d+ r$ Y2 t9 e% ?) I                    出现  E-Command not found: convert_cline_shape()

" k! X- [* h  E' ], t2 |- k  y0 A
求解！！
( r+ _+ Q; e$ U4 F" z( i

skill_rc

Nicole 发表于 2016-3-31 18:18
我也是用不了， 我用的命令是：  skill load（“convert_cline_shape.il")  
                    出现  ...

# N- T: \' Q0 l, M9 M9 d; Z0 o- e2 F1，输入skill 显示skill〉
/ e' N6 m: C! @4 N2 k7 E0 Y7 ]) X2，load("convert_cline_shape.il")
3,convert_cline_shape
& Q2 Y( k* e# D" x0 g% C3 ~4,over
4 |0 _# Z$ D  d

不要命的荨麻草

这个怎么用呢？

skill_rc

, u" q  B( |- @$ o$ E; C

不要命的荨麻草 发表于 2016-3-25 11:45
( w) d! Q6 f- @/ ?2 m7 b这个怎么用呢？

3 p% Z# [& Q" L0 V, ^, y, d5 F1，新建一个il文件
. {  g' O9 v& p" c+ \% e2，把这个代码放到这个文件中，保存。
3，通过allegro的命令行部分，输入skill+回车进入skill模式。显示为：skill〉
3，使用load 命令把这个新建的il文件加载进来
4，命令行中输入convert_cline_shape() 敲回车 ，会提示你选择一个cline，你鼠标点击后，点击的cline就变成shape了。
5，over。
& \7 h% Z  e: Q( C+ F1 Y! p
' y3 s: h/ ^, d6 h7 e: ~* d

mintjelly_abc

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

mintjelly_abc

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

skill_rc

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

还以为别人回复能积分。。。。。。
: X; O8 [! L' ]' Y7 s) M; B3 `

mintjelly_abc

skill_rc 发表于 2016-3-25 13:52
7 v6 B8 P5 T: ~) T" x* M还以为别人回复能积分。。。。。。

' L# D% c2 {* D: |+ T" c% \太天真了，我支持下你啊
3 t" f* W% x9 @0 t" {: p9 c/ \

mintjelly_abc

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

skill_rc

mintjelly_abc 发表于 2016-3-25 13:58
: V* `8 C6 B& F9 t! q) d; K4 i太天真了，我支持下你啊

谢谢！谢谢！谢谢！ 重要的事情说三遍！
/ i, Y, g3 J. x6 l, u

skill_rc

mintjelly_abc 发表于 2016-3-25 14:00
# ^; e- Z2 O  [/ M9 b; m$ j怎么不在文件里面加个快捷命令行啊？太敷衍了

6 z( z4 O/ o, V! s4 W8 Y; H额。。。。

skill_rc

给附件的函数添加快捷键：
3 A: {. E1 U! W) @( f  I+ X) Y7 |8 {: RaxlCmdRegister("c2s" `convert_cline_shape)

流云逝水

哈哈！

skill_rc

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

niliudehe

好几啦