vivienluo 发表于 2014-3-23 16:18:37

改变Line的层面Change Line Layer

不知各位否知道，不同的class之间的东西是不能互相change的。比如PACKAGE GEOMETRY不能通过change命令将其中的内容change到BOARD GEOMETRY。每次change的时候会提示错误E- Line must stay on its current class.

该SKILL可在所有的class之间互相change。
预览：


加载方法：load("change_line_layer.il" "www.allegro-skill.com")执行命令：change_line_layer**** Hidden Message *****

源码下载：
**** Hidden Message *****

chuchiwolong 发表于 2014-11-17 10:28:40

vivienluo 发表于 2014-10-21 23:33
可以贴出来。。。

        case(lineDbid->objType
                ("path"
                        ; println("path")
                        ;endPoint = cadr(nthelem(lineDbid->nSegs lineDbid->segments)->startEnd)
                        ;startPoint = car(car(lineDbid->segments)->startEnd)
                        linePath = axlPathStart(list(car(car(lineDbid->segments)->startEnd)))
                        foreach(temp lineDbid->segments
                                case(temp->objType
                                        ("line"
                                                axlPathLine(linePath temp->width cadr(temp->startEnd))
                                                )
                                        ("arc"
                                                axlPathArcCenter(linePath temp->width cadr(temp->startEnd) temp->isClockwise temp->xy)
                                                )
                                        (t
                                                printf("Path Type is Unknown!\n")
                                                )
                                );end case                       
                        )
                        axlDBCreatePath(linePath lineLayer 'line)
                )
                ("text"
                        ; println("text")
                        Ori_XY=lineDbid->xy
                        Ori_textBlock=lineDbid->textBlock
                        Ori_rotation=lineDbid->rotation
                        Ori_isMirrored=lineDbid->isMirrored
                        Ori_justify=lineDbid->justify
                       
                        myorient = make_axlTextOrientation(?textBlock Ori_textBlock, ?rotation Ori_rotation, ?mirrored Ori_isMirrored, ?justify Ori_justify)
                       
                        newText= axlDBCreateText(lineDbid->text Ori_XYmyorient lineLayer nil)                       
                )
        )

chuchiwolong 发表于 2014-10-21 20:39:31

我把楼主的改了下，可以更改line和text了。公司不让上传附件，我可以直接把源码贴出来不？

冷青瓷 发表于 2014-3-23 17:43:33

我碰到过Line换不过去的

cx032302 发表于 2014-3-24 10:55:44

支持楼主~~~

lig132 发表于 2014-3-24 14:00:47

这个不错 呵呵

warlock 发表于 2014-3-24 20:18:28

这个好啊   下载收下了

rita188 发表于 2014-3-25 11:00:23

不錯 好好用 棒棒~~~~

msiwang 发表于 2014-3-25 16:30:51

这个好啊   下载試試

375259768 发表于 2014-3-25 17:47:00

感谢分享，谢谢楼主，下下来看看

wolf343105 发表于 2014-3-27 08:50:37

谢谢,支持楼主,辛苦了.

fchn313 发表于 2014-3-27 10:06:22

下下来看看啊。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 改变Line的层面Change Line Layer