将铜皮边框变为line源码分享

vivienluo

1. /****************************************************************/
   
2. /*                 Command: ch_shape_to_line                    */
   
3. /*                  Author: VivienLuo                           */
   
4. /*                   Email: admin@allegro-skill.com             */
   
5. /*           Creation Date: 2013-02-21                          */
   
6. /*             Description: This Skill Function used to change  */
   
7. /*                          the shape to line.                  */
   
8. /****************************************************************/
   
9. 
   
10. axlCmdRegister("ch_shape_to_line" 'ch_shape_to_line ?cmdType "interactive"
    
11.                                  ?doneCmd 'shape2linedone ?cancelCmd 'shape2linecancel) ;registe command
    
12. 
    
13. procedure(ch_shape_to_line()
    
14. prog((selShape linePath lineLayer temp notdone )
    
15.         shape2linepopup = axlUIPopupDefine(nil (list
    
16.                                                 (list "Done" 'shape2linedone )
    
17.                                                 (list "Cancel" 'shape2linecancel ))
    
18.                                                 )
    
19.         axlUIPopupSet(shape2linepopup)
    
20.         notdone = t
    
21.         axlUIWPrint(nil "------ Change Shape to Line V1.0 ---- Written By VivienLuo  ------")
    
22.         axlUIWPrint(nil "------ E-mail : admin@allegro-skill.com ------ February 21, 2013 ------")
    
23.         axlSetFindFilter(?enabled list("noall" "shapes") ?onButtons list("noall" "shapes"))
    
24.         shape2lineMark = axlDBTransactionStart()
    
25. 
    
26.         while(notdone
    
27.                 axlClearSelSet()
    
28.                 selShape = nil
    
29.                 axlSingleSelectPoint()
    
30.                 when(axlGetSelSet() != nil
    
31.                 selShape = car(axlGetSelSet())
    
32.                 linePath = axlPathStart(list(car(car(selShape->segments)->startEnd)))
    
33.                 lineLayer = selShape->layer ;Gets Shape's Layer
    
34.                 foreach(temp selShape->segments
    
35.                                 case(temp->objType
    
36.                                         ("line"
    
37.                                                 axlPathLine(linePath nil cadr(temp->startEnd))
    
38.                                                 )
    
39.                                         ("arc"
    
40.                                                 axlPathArcCenter(linePath nil cadr(temp->startEnd) temp->isClockwise temp->xy)
    
41.                                                 )
    
42.                                         (t
    
43.                                                 printf("Path Type is Unknown!\n")
    
44.                                                 )
    
45.                                 );end case                        
    
46.                 )        
    
47.                 axlHighlightObject(car(axlDBCreatePath(linePath lineLayer 'line)))
    
48.                 axlDeleteObject(selShape)
    
49.                 axlUIWPrint(nil "- Change Shape To Line Success! -")
    
50.                 );end when
    
51.         );end while
    
52. )
    
53. );end procedure
    
54. 
    
55. procedure(shape2linedone()
    
56.                 notdone = nil
    
57.                 axlDBTransactionCommit(shape2lineMark)
    
58.                 axlFinishEnterFun()
    
59.                 axlUIWPrint(nil "- Done -")
    
60. )
    
61. procedure(shape2linecancel()
    
62.                 notdone = nil
    
63.                 axlDBTransactionRollback(shape2lineMark)
    
64.                 axlCancelEnterFun()
    
65.                 axlUIWPrint(nil "- Cancel -")
    
66. )

复制代码

chuankay

我认为铜皮边框可以用z-copy的方式将其生成outline的边框，然后删除铜皮，最后打散outline到需要的line层，也可达到效果。

vivienluo

chuankay 发表于 2013-5-15 23:28
我认为铜皮边框可以用z-copy的方式将其生成outline的边框，然后删除铜皮，最后打散outline到需要的line层， ...

呵呵，这样只是寻求一个快捷方式。

chuankay

代码收藏了  谢谢

vivienluo

chuankay 发表于 2013-5-15 23:37
代码收藏了  谢谢

这个还有更简便的方式。可使用axlPolyFromDB函数直接获取shape边框。。。

chuankay

vivienluo 发表于 2013-5-15 23:40
这个还有更简便的方式。可使用axlPolyFromDB函数直接获取shape边框。。。

看来您对database cteate那一篇很熟悉，我也要补习了

xieh_17

将铜皮变为line的功能，请问有哪些应用场景？outline一般都由结构给出的外形线来的，与铜皮有关系吗？

junshi1000

不知楼主有没有可以让铜皮与线之间互相转换的SKILL供大家学习，谢谢

chuchiwolong

Shape菜单里的Decompose Shape命令就可以实现这个功能啊

vivienluo

chuchiwolong 发表于 2014-7-31 15:08
Shape菜单里的Decompose Shape命令就可以实现这个功能啊

Decompose Shape边的line在另外一层，二且是有一小段组成的。操作不方便。