PADS logic脚本导出BOM Excel

最新推荐文章于 2025-05-21 13:32:23 发布

最爱镜子

最新推荐文章于 2025-05-21 13:32:23 发布

阅读量1.3w

点赞数 8

CC 4.0 BY-SA版权

分类专栏：工具使用文章标签：脚本 bom

本文链接：https://blog.youkuaiyun.com/lyp19910608/article/details/50898448

' PADS Logic BOM Output
' By lyp (337252561@qq.com)
Dim fn As String

Sub Main
    fn = ActiveDocument
    If fn = "" Then
        fn = "Untitled"
    End If

    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile For Output As #1
    item = 0
    StatusBarText = "Generating report..."
    Print #1, "ITEM";vbTab;"Part Type"; vbTab;"P/N_1"; vbTab;"Manufacturer_1_P/N"; vbTab;"Description"; vbTab;"Manufacturer_1"; vbTab; "Value"; vbTab; "QTY"; vbTab; "REF-DES"
    For Each pkg in ActiveDocument.PartTypes
        'Print #1, pkg.Name; vbTab; note
        qty = 0
        value = ""
        description = ""
        manufacturer = ""
        pn = ""
        manufacturerpn = ""
        symbol = ""
        item = item +