改变Line的层面Change Line Layer

vivienluo

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

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


加载方法：

1. load("change_line_layer.il" "www.allegro-skill.com")

复制代码

执行命令：

1. change_line_layer

复制代码

游客，如果您要查看本帖隐藏内容请回复

源码下载：

游客，如果您要查看本帖隐藏内容请回复

chuchiwolong

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_XY  myorient lineLayer nil)                       
                )
        )

chuchiwolong

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

冷青瓷

我碰到过Line换不过去的

cx032302

支持楼主~~~

lig132

这个不错 呵呵

warlock

这个好啊   下载收下了

rita188

不錯 好好用 棒棒~~~~

msiwang

这个好啊   下载試試

375259768

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

wolf343105

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

fchn313

下下来看看啊。