|
发表于 2013-7-9 11:34:48
|
显示全部楼层
获得routekeepin的面积。- axlCmdRegister("test",'test)
- defun( test ()
- prog((lVia)
- axlClearSelSet()
- Shapes_dbid = car(axlDBGetShapes("ROUTE KEEPIN/ALL"))
- polyList = axlPolyFromDB(Shapes_dbid,?layer "ETCH/TOP" ?padType 'REGULAR)
- tDBUnits = car(axlDBGetDesignUnits())
- when(tDBUnits == "mils"
- area = car(polyList)->area/1000000*6.45163
- )
- when(tDBUnits == "millimeters"
- area = car(polyList)->area/100
- )
- str = sprintf(nil "%.2f" area)
- axlUIConfirm(strcat("The board area : " str " cm2"))
- ))
复制代码 |
|