本人编写了个走线直角和小角度检查程序，供大家参考使用。

edadesign

本人编写了个走线直角和小角度检查程序，供大家参考使用。

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

jason_hsu

;#################################################
;## 1-SKILL CHECK Angle of Cline seg on the Cline#
;#################################################
axlCmdRegister( "csa" `csa)
(defun csa ()
    originalVisible=axlVisibleGet()
    designName = axlCurrentDesign()
    design_path = axlGetDrawingName()
    design_unit = car(axlDBGetDesignUnits())

    AllObject=list()
    drc = 0
    stop = nil
    logWindow = nil
    max_angle = 90.0

    axlSetFindFilter(?enabled '(noall CLINES) ?onButtons '(noall CLINES))
    mypopup = axlUIPopupDefine(nil  (list (list "Done" 'axlFinishEnterFun) (list "Cancel" 'axlCancelEnterFun)))
    axlUIPopupSet( mypopup)
    while(axlSelect(?prompt "Please select Cline...")
        AllObject = axlGetSelSet()
        axlClearSelSet()
        if(logWindow != nil then
            axlUIWClose(logWindow)
            if(isFile("Clineseg_angle.log") == t then deleteFile("Clineseg_angle.log"));end if
            logWindow = nil
        );end if
        drc = 0

        WriteOutFile = outfile("./Clineseg_angle.log" "w")
        fprintf(WriteOutFile, "Design name: %s\n", design_path)
        fprintf(WriteOutFile, "Angle Check: %f\n", max_angle)
        fprintf(WriteOutFile, "%s %s\n", "Check Date:", timeToString(fileTimeModified("Clineseg_angle.log")))
        fprintf(WriteOutFile, "%s\n", "------------------------------------------------")
        fprintf(WriteOutFile, "%-14s %-10s %s\n", "Layer", "Angle", "Locations")

        foreach(object AllObject
            Netname = object->net->name
            Layer = object->layer
            drcLayer = strcat("DRC ERROR CLASS/", cadr(parseString(Layer, "/")))
            Cline_Segments = object->segments
            while(length(Cline_Segments) > 1
                First_seg = car(Cline_Segments)
                Second_seg = nthelem(2,Cline_Segments)
                First_seg_width = First_seg->width
                Second_seg_width = Second_seg->width
                if(First_seg_width < Max_LW || Second_seg_width < Max_LW then
                    First_seg_length = axlDistance(car(First_seg->startEnd) lastelem(First_seg->startEnd))
                    Second_seg_length = axlDistance(car(Second_seg->startEnd) lastelem(Second_seg->startEnd))
                    Third_seg_length = axlDistance(car(First_seg->startEnd) lastelem(Second_seg->startEnd))

                    aa = First_seg_length*First_seg_length
                    bb = Second_seg_length*Second_seg_length
                    cc = Third_seg_length*Third_seg_length
                    ab2 = 2*First_seg_length*Second_seg_length
                    CosC = (aa + bb - cc)/ab2
                    AngleInDegree = axlRadToDeg(acos(CosC))
                    ;### CONG THUC TINH GOC _axlAngleBetweenLines(list(pt1, pt2), list(pt3, pt4))  =>CHUA TEST THU
                    if(AngleInDegree <= max_angle then
                        fprintf(WriteOutFile, "%-14s %-10.2f %L\n", Layer, AngleInDegree, car(Second_seg->startEnd))
                        actual_text = sprintf(actual_text "%.2f", AngleInDegree)
                        drc_text = sprintf(drc_text "No Permit Angle In Cline")
                        drc_maker = axlDBCreateExternalDRC(list(drc_text sprintf(nil "%.3f", max_angle)), car(Second_seg->startEnd), drcLayer , list(First_seg Second_seg) , nil , actual_text)
                        drc = drc + 1
                    ;else
                    ;   printf("%L\n", AngleInDegree)
                    );end if
                );end if seg_width
                Cline_Segments = cdr(Cline_Segments)
            );end while i> 1
        );end foreach clines AllObject
        ; Close the file and wrap up
        fprintf(WriteOutFile, "%s\n", "END OF FILE")

        close(WriteOutFile)
        printf("Process done!\n")
        axlVisibleSet(originalVisible)
        axlShell("redisplay")
        if(drc > 0 then
            logWindow = axlUIViewFileCreate("Clineseg_angle.log" "Angle report..." nil );t xoa file sau khi xem, nil khong xoa
        else
            printf("No Error Found!\n")
            if(isFile("Clineseg_angle.log")  then deleteFile("Clineseg_angle.log"))
        );end if
        printf("Please select Cline...\n")
    );end while
);end defun Clineseg_angle

85654202

yaoxiao0302 发表于 2016-12-8 10:08
补充一下啊，在allegro.ilinit 中写入load("angle.il") ,然后在打开allegro的时候报错如图，（本人使用的是 ...

我的问题跟你的一样，

Dianthus

学习学习                           

hoo

感谢分享！

l8877l

顶 谢谢分享

jiankangshiye

很好，谢谢！要是能加上使用说明就更好了！

zhoushoufeng

看看，尝试下

edadesign

先将文件解压到pcbenv中，再打开此目录下的allegro.ilinit文件，在里面写上load("angle.il")，保存退出就ok了。每次打开设计时，在命令窗口输入ang就可调用出程序窗口。

fruitpig345

顶 谢谢分享

passion_2009

学习下！！

XIDIAN

感谢

houjie0314

谢谢楼主分享 下载试试看

叫布什动我啊

谢谢楼主分享

jone_yl

学习下！！

zengda3

不错，顶起

f126054488

Hi 無法用於16.3版本執行...
能否請高手幫忙解決

kinglangji

谢谢分享,支持一下~