PADS生成bom脚本

qiangqaz

pads生成bom时，无法达到自己的预期，所以干脆自己写吧，但是，我不会

linxiwell

EDA_BOMHelper花式出BOM,总有满足你的。

qiangqaz

网上找了一个
5 ?$ B" ]  s* M* \Dim fn As String

Sub Main
    fn = ActiveDocument
    If fn = "" Then
8 ?( ^8 G2 v+ L8 ]! [+ Z        fn = "Untitled"
1 {" S- }2 r; E0 K    End If

    tempFile = DefaultFilePath & "\temp.txt"
2 _1 e, a$ l( J( w, U4 _5 Z    Open tempFile For Output As #1
    item = 0
) \" j( ^+ w2 \* }: U    StatusBarText = "Generating report..."
2 c7 [- U$ K9 z: h( y  j6 H. W    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"
3 J! y3 G7 m5 E; n$ t# o    For Each pkg in ActiveDocument.PartTypes
+ ?$ K' R6 g/ |& `        'Print #1, pkg.Name; vbTab; note
. A+ c% y! ^, L) }7 I$ n        qty = 0
        value = ""
' G5 ?% F3 c- @; L% K5 x+ _        description = ""
        manufacturer = ""
0 V3 {# Q* [5 h7 u/ L" [# H* ^/ N% r5 _3 Q        pn = ""
2 V$ c; C; D! d0 X# M0 q, [0 g        manufacturerpn = ""
        symbol = ""
        item = item + 1
' P5 l4 s! o! q        'Print #1, item; vbTab;
% x6 M% z4 X( W/ M- ^' Y- P        For Each part In pkg.Components
5 V3 |; _' Z8 Q1 B            value = AttrValue(part, "Value")
            description = AttrValue(part, "Description")
            manufacturer = AttrValue(part, "Manufacturer_1")
            pn = AttrValue(part, "P/N_1")
            value = AttrValue(part, "Value")   
/ Z4 n& Q/ E+ B+ }/ w' v            manufacturerpn = AttrValue(part, "Manufacturer_1_P/N")
( I" H( g* ]1 U+ {0 w4 a. n' J            sysid = AttrValue(part, "SYSID")
            qty = qty+1
            symbol = symbol + part.Name + ", "
        Next        
( y' b/ q; i" Q$ K/ W& H& s        symbol_len = Len(symbol)
        symbol = Mid(symbol,1, symbol_len - 2)
& J# F" @" `$ X/ ]; `        Print #1, item; vbTab; part.PartType ; vbTab; pn ; vbTab;manufacturerpn; vbTab;description; vbTab;manufacturer; vbTab;value; vbTab; qty; vbTab; symbol;
1 Z! m: {) {" n" b: f( V        Print #1
    Next pkg
0 Y' Y  D5 D' p. m: F5 W2 K    StatusBarText = ""
1 G. }0 _9 K( B, F5 w    Close #1
% P/ D' S8 D) t9 f+ z    ExportToExcel
End Sub

# u. D3 h; H* h! f( C# i+ S4 VSub ExportToExcel
$ y3 D0 w' P8 J: R) }0 M    FillClipboard
    Dim xl As Object
    On Error Resume Next
    Set xl =  GetObject(,"Excel.Application")
, q  \! l3 T9 q7 y    On Error GoTo ExcelError    ' Enable error trapping.
. j) N& Z' C; m" \; F: E    If xl Is Nothing Then
        Set xl =  CreateObject("Excel.Application")
    End If
    xl.Visible = True
4 Z" _7 C. r, ?" }+ ~! _$ b6 P) F    xl.Workbooks.Add
    xl.ActiveSheet.Paste
3 K: d4 s8 P8 ]    xl.Range("A1:I1").Font.Bold = True
# r$ E/ p- c4 {7 U    xl.Range("A1:I1").NumberFormat = "@"
    xl.Range("A1:I1").AutoFilter
5 [. B; Z) h: E- h5 q    xl.ActiveSheet.UsedRange.Columns.AutoFit
    'Output Report Header
    xl.Rows(1).Insert
    xl.Rows(1).Cells(1) = Space(1) & "Part Report "& " WWZL-BOM " & " on " & Now
# ?3 @6 k; r9 A2 _' X" ?/ [    xl.Rows(2).Insert
    xl.Rows(1).Font.bold = True
    'Output Design Totals
3 h% {/ y! C, n    lastRow = xl.ActiveSheet.UsedRange.Rows.Count + 1
9 c# p4 ?# `$ _0 W    xl.Rows(lastRow + 1).Font.bold = True
    xl.Rows(lastRow + 1).Cells(1) = Space(1) & "Design Part count: " & ActiveDocument.Components.Count
6 y/ X8 V$ U4 D$ C' T    xl.Range("A1").Select
3 |- P5 b$ ^$ W& P    On Error GoTo 0 ' Disable error trapping.
9 \% U1 \# c! H8 X0 r4 f- t: U    Exit Sub   
" W. b# p9 T/ `! `- \  w6 y9 j
" R2 P# C  r% ~0 \% tExcelError:
: }  ]7 \6 [& [6 f    MsgBox Err.Description, vbExclamation, "Error Running Excel"
8 M0 {3 ]. ^3 ~$ [5 o5 M4 P" D    On Error GoTo 0 ' Disable error trapping.   
, E0 F  D/ m0 }# {+ h+ b* z    Exit Sub
# e) X' D3 E5 Y7 n1 c6 {End Sub
3 _  b$ R2 x5 p/ c
Sub FillClipboard
    StatusBarText = "Export Data To Clipboard..."
    ' Load whole file to string variable   
) x1 I' E* I3 g. \7 `    tempFile = DefaultFilePath & "\temp.txt"
4 [# g, s, ^4 w% ?    Open tempFile  For Input As #1
6 ?0 b1 @" n+ O  K% f    L = LOF(1)
4 C0 F/ {- Y/ {/ ~  H    AllData$ = Input$(L,1)
/ a  v1 g7 e6 j. s9 _    Close #1
    'Copy whole data to clipboard
    Clipboard AllData$
* C. A; G+ l7 Q( @    Kill tempFile
    StatusBarText = ""
End Sub
Function AttrValue (comp As Object, atrName As String) As String
    If comp.Attributes(atrName) Is Nothing Then
6 v, I; T0 y& t' v. h        AttrValue = ""
  ^9 g# W& b" i+ ]+ N" d    Else
1 Y9 I6 I$ w! Y5 n0 I        AttrValue = comp.Attributes(atrName).Value
    End If
End Function

qiangqaz

一点点来吧，共勉

qiangqaz

        symbol_len = Len(symbol)
        symbol = Mid(symbol,1, symbol_len - 2)

这两句是个啥意思？

qiangqaz

! L) f* y2 z* K/ x' R+ r
5 G" I; Y5 ]- g难道是数组：---
  K* T0 o! u2 l: J. S  j多数情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标量变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。下例声明了一个包含 11 个元素的一维数组：

6 j; Y7 W4 I" `# \8 ZDim A(10)
虽然括号中显示的数字是 10，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。
3 G# s( T3 X6 T; l) V
在数组中使用索引为数组的每个元素赋值。从 0 到 10，将数据赋给数组的元素，如下所示：

A(0) = 256
A(1) = 324
7 X" p1 K7 u. e. G; r% o/ w" ]& e A(2) = 100
. . .
( H5 e. J  @' c- x A(10) = 55
与此类似，使用索引可以检索到所需的数组元素的数据。例如：

. . .
SomeVariable = A(8)  
4 e0 v- G3 T: W* V. i . . .
; K# b3 a& o' y* e8 t( F数组并不仅限于一维。数组的维数最大可以为 60（尽管大多数人不能理解超过 3 或 4 的维数）。声明多维数组时用逗号分隔括号中每个表示数组大小的数字。在下例中，MyTable 变量是一个有 6 行和 11 列的二维数组：

4 F/ |/ A$ N$ ~1 M( h' ?+ p Dim MyTable(5, 10)
在二维数组中，括号中第一个数字表示行的数目，第二个数字表示列的数目。
" p' _3 m; u# {8 k0 S$ I' j
5 N1 p8 N! F. d$ M9 z6 ^$ y

qiangqaz

加两行打印，看出来个啥
; b2 C- [+ N; ]
4 W- l% y' V1 u, R        Next        
        symbol_len = Len(symbol)
        Print #1,symbol_len;
        Print #1
        symbol = Mid(symbol,1, symbol_len - 2)
        Print #1, item; vbTab; part.PartType ; vbTab; pn ; vbTab;manufacturerpn; vbTab;description; vbTab;manufacturer; vbTab;value; vbTab; qty; vbTab; symbol;
        Print #1
    Next pkg

qiangqaz

出来个这玩意

qiangqaz

linxiwell 发表于 2018-6-27 11:59
EDA_BOMHelper花式出BOM,总有满足你的。

嗯，有空研究下
# ~: y3 u  s! W! e5 l- j( ?9 S4 l