close

fCreateAntiLine.il 此skill只能在Allegro V16.3 版本以上執行,

 
原因為使用函數axlDB2Path(o_dbid), 此函數為V16.3以上才有.
 
如果要在V16.3版本以下執行此skill的話,就必須自行建立一個類似axlDB2Path(o_dbid)函數
;加入下面代碼,就可以在V16.3版本以下執行
when(axlVersion('version) < 16.3
    procedure(axlDB2Path(dObject)
        let((lDynPaths rPath)
            when(dObject && !stringp(dObject) && symbolp('dObject)
                case(dObject->objType
                    ("shape" || "polygon" || "path"
                        foreach(dSeg dObject->segments
                            ;參考函數 axlMakeDynamicsPath
                            ;l_startPoint, l_endPoint, f_width, l_center, f_radius, g_clockwise
                            lDynPaths = cons(list(car(dSeg->startEnd) cadr(dSeg->startEnd) dSeg->width dSeg->xy dSeg->radius dSeg->isClockwise) lDynPaths)
                        )
                    )
                )
                when(lDynPaths
                    lDynPaths = reverse(lDynPaths)
                    rPath = axlMakeDynamicsPath(lDynPaths)
                )
            )
            rPath
        )
    )
)
arrow
arrow
    文章標籤
    Allegro Skill
    全站熱搜

    熊熊 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄