求vivienluo版主的几个SKILL源码
本帖最后由 這侽孓譙悴丶 于 2014-8-16 22:45 编辑改变Line的层面Change Line Layer的SKILL源码
查找无PLACE_BOUND的器件的SKILL源码，这个购买了版主的那个源码后发现也是加密的···去了20SKILL币啊····{:soso_e113:}
查找铜皮空洞的SKILL源码
自动创建板边Anit Etch的SKILL源码
查找无位号器件并自动添加位号的SKILL源码
如果出售也行{:soso_e113:}，谢了···
另外想知道怎么才能做出产生的报表中的坐标可以点击直接放大并跳转到对象上，例如，版主的那个查找无PLACE_BOUND的器件的SKILL产生的报表中的坐标是灰色的，不能直接点击后跳转到对象上去。如下图的产生的报表：
在allegro中打开的报表文件可以直接点击坐标跳转的。 vivienluo 发表于 2014-8-17 15:01
在allegro中打开的报表文件可以直接点击坐标跳转的。
版主，求那几个SKILL的源码···恩，我在Allegro中弹出来的报表点击不了坐标的，坐标都是灰色的，不是蓝色的。 有哪位有源码的麽或者类似功能的也可以，求分享个，谢谢！ 這侽孓譙悴丶 发表于 2014-8-18 20:29
有哪位有源码的麽或者类似功能的也可以，求分享个，谢谢！
;下面的代碼供你參考看看,是不是這樣的功能
axlCmdRegister("vcr" 'fnViewComponentsReport)
procedure(fnViewComponentsReport()
let(()
lComponents = axlDBGetDesign()->components
tReportFile = axlTempFile()
pWrite = outfile(tReportFile "w")
fprintf(pWrite "Board File: %s\n" axlGetDrawingName())
fprintf(pWrite "Date : %s\n\n" getCurrentTime())
when(lComponents
xIndex = 1
fprintf(pWrite "%-6s %-15s %-20s\n" "NO." "REFDES" "LOCATION")
fprintf(pWrite "========================================================================\n")
foreach(dOne lComponents ;dOne = nth(0 lComponents)
fprintf(pWrite "%-6d %-15s %-20s\n" xIndex dOne->name sprintf(nil "%L" dOne->symbol->xy))
xIndex++
)
)
close(pWrite)
when(isFile(tReportFile)
axlUIViewFileCreate(tReportFile "The components report" t list(75 25))
)
)
) 感谢楼主的热心回复。谢谢！楼主有这几个功能的skill源码麽，能否发一份给我，真心需要，或帮写一份… 源码已发送。。。。。 vivienluo 发表于 2014-9-13 07:42
源码已发送。。。。。
太感谢版主了，那个查找无位号器件并自动添加位号的SKILL可以也给我发一份么，你发的压缩包里面没有这个。:) XYX365 发表于 2014-8-19 08:17
太感谢了，要的就是这个效果，谢谢谢谢谢谢谢谢谢谢。。。。:handshake 太感谢了，谢谢分享
页:
[1]