改变Line的层面Change Line Layer

华尔兹的春天

好东西  希望有用

.vEフ_oo_侽生、

ffggggggggggggggggggggg

sujuanyu888

下下来试试看看哦

使用了，挺好用

mistletoe

不错，  感谢 分享！

lxianghui

谢谢分享！

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)                       
                )
        )

墨客的秋天

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

江小鱼

学习学习，要是有源代码就好了

huangyao1220

功能不错！

siseob

感谢您分享的信息。