PADS生成bom脚本

qiangqaz

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

qiangqaz

网上找了一个
Dim fn As String
# ]; C3 h; h8 o
Sub Main
    fn = ActiveDocument
2 X. z& H! K6 S    If fn = "" Then
! X, O5 b* Q3 @( g+ f9 R        fn = "Untitled"
# R1 ]  b  S7 C+ O; `# n    End If

    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile For Output As #1
  ^6 O; Q# d/ n    item = 0
    StatusBarText = "Generating report..."
/ f1 W1 x* d" s( y/ Q& z' 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"
    For Each pkg in ActiveDocument.PartTypes
        'Print #1, pkg.Name; vbTab; note
        qty = 0
        value = ""
        description = ""
% @4 P7 y+ A+ G" C2 E; z, C8 w        manufacturer = ""
        pn = ""
        manufacturerpn = ""
3 N) L9 a& O1 v! @4 ^        symbol = ""
! y0 C) @0 e* s: r1 D        item = item + 1
: U/ ?% N: o# H; G- _: e        'Print #1, item; vbTab;
        For Each part In pkg.Components
8 y, p% a  Q& t$ Z) v- h, X0 L            value = AttrValue(part, "Value")
            description = AttrValue(part, "Description")
5 V7 m! E2 m# W  `            manufacturer = AttrValue(part, "Manufacturer_1")
' l$ c. y2 I$ [9 L: {            pn = AttrValue(part, "P/N_1")
            value = AttrValue(part, "Value")   
            manufacturerpn = AttrValue(part, "Manufacturer_1_P/N")
            sysid = AttrValue(part, "SYSID")
' a+ f5 x9 Q/ ~+ p! G+ R! \$ j            qty = qty+1
& q6 g8 ~9 S( e# R3 G/ S) X            symbol = symbol + part.Name + ", "
2 A) o3 `9 o( u" U! A8 X) B        Next        
; y5 u- I6 F$ ]1 B* \3 i( {        symbol_len = Len(symbol)
8 C# E6 Q) b  ]) f        symbol = Mid(symbol,1, symbol_len - 2)
) p# m; Q6 V/ `( s        Print #1, item; vbTab; part.PartType ; vbTab; pn ; vbTab;manufacturerpn; vbTab;description; vbTab;manufacturer; vbTab;value; vbTab; qty; vbTab; symbol;
        Print #1
    Next pkg
6 u2 {& q" r3 n4 V$ @( G$ l    StatusBarText = ""
    Close #1
( Y3 P- L4 r' r3 s) J  R0 O    ExportToExcel
9 l7 _0 d& a0 D. EEnd Sub

Sub ExportToExcel
6 U0 Y7 n. c9 j) C5 L    FillClipboard
    Dim xl As Object
    On Error Resume Next
    Set xl =  GetObject(,"Excel.Application")
    On Error GoTo ExcelError    ' Enable error trapping.
    If xl Is Nothing Then
        Set xl =  CreateObject("Excel.Application")
" K5 T, v! ^' V) t    End If
    xl.Visible = True
# J6 J* [+ s% L3 g9 m    xl.Workbooks.Add
% T& S6 ~$ J* Z" W" a7 ^9 O    xl.ActiveSheet.Paste
    xl.Range("A1:I1").Font.Bold = True
    xl.Range("A1:I1").NumberFormat = "@"
    xl.Range("A1:I1").AutoFilter
2 U, l7 z1 G% x/ L0 \2 ^$ t5 o    xl.ActiveSheet.UsedRange.Columns.AutoFit
    'Output Report Header
0 K- W5 I) v0 [6 h# Y7 ?    xl.Rows(1).Insert
/ n) m; F) k4 o, P. ~% T    xl.Rows(1).Cells(1) = Space(1) & "Part Report "& " WWZL-BOM " & " on " & Now
    xl.Rows(2).Insert
    xl.Rows(1).Font.bold = True
    'Output Design Totals
    lastRow = xl.ActiveSheet.UsedRange.Rows.Count + 1
    xl.Rows(lastRow + 1).Font.bold = True
1 }: `. j: `* f  l    xl.Rows(lastRow + 1).Cells(1) = Space(1) & "Design Part count: " & ActiveDocument.Components.Count
$ a9 A4 w$ E& v1 u( S/ q    xl.Range("A1").Select
    On Error GoTo 0 ' Disable error trapping.
- i( t) z8 P, W. O) V    Exit Sub   

ExcelError:
    MsgBox Err.Description, vbExclamation, "Error Running Excel"
: B- f' E* \3 Q: P    On Error GoTo 0 ' Disable error trapping.   
    Exit Sub
End Sub
# E- X0 n" {* V3 Z
) }& ~, J5 ^( {% o0 p+ ]5 `Sub FillClipboard
& _* c# a, v' ^! x! G    StatusBarText = "Export Data To Clipboard..."
    ' Load whole file to string variable   
0 M. B9 a! D/ w6 C! \    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile  For Input As #1
$ {# t3 g( e7 n) k# |2 e    L = LOF(1)
1 S- W3 f- i- c% J' G3 S! X    AllData$ = Input$(L,1)
    Close #1
    'Copy whole data to clipboard
5 b8 q6 _! z6 I1 w# Q    Clipboard AllData$
7 V& t& O  y. x+ e( h    Kill tempFile
    StatusBarText = ""
End Sub
/ W, O7 h9 v3 m' D; W4 \Function AttrValue (comp As Object, atrName As String) As String
    If comp.Attributes(atrName) Is Nothing Then
        AttrValue = ""
1 j. f7 R% F& c+ ~+ \    Else
        AttrValue = comp.Attributes(atrName).Value
$ ?) {; @1 O$ ]1 F    End If
End Function

qiangqaz

一点点来吧，共勉

qiangqaz

        symbol_len = Len(symbol)
7 [7 L  a: B' t1 q9 x0 x        symbol = Mid(symbol,1, symbol_len - 2)
% u  O& ?& |, O- C
这两句是个啥意思？

qiangqaz

6 d# p6 w' @2 s$ Y% B8 E" z" G
8 A" Y% q- R% j' j  P# J难道是数组：---
8 G; o5 ?- \* I多数情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标量变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。下例声明了一个包含 11 个元素的一维数组：
# }! O- w2 n  h* O" W
Dim A(10)
4 K  r- L" ~3 A+ X虽然括号中显示的数字是 10，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。

在数组中使用索引为数组的每个元素赋值。从 0 到 10，将数据赋给数组的元素，如下所示：

8 P: ?$ D- J9 ^1 X2 g A(0) = 256
A(1) = 324
A(2) = 100
. . .
A(10) = 55
) V: r) j+ B. y" n# @4 S与此类似，使用索引可以检索到所需的数组元素的数据。例如：
; I( u+ t1 J0 N5 v1 R
, T1 F( T- O6 k . . .
SomeVariable = A(8)  
" E3 D9 F8 n* j2 [/ c8 E . . .
- f6 |+ X; u, ]; Q! R数组并不仅限于一维。数组的维数最大可以为 60（尽管大多数人不能理解超过 3 或 4 的维数）。声明多维数组时用逗号分隔括号中每个表示数组大小的数字。在下例中，MyTable 变量是一个有 6 行和 11 列的二维数组：

: j; R$ H) c$ C- t3 q# r  ^1 V Dim MyTable(5, 10)
/ X: ~5 z" b2 u1 D* D- b, H6 f在二维数组中，括号中第一个数字表示行的数目，第二个数字表示列的数目。

& L5 O2 g% M9 m

qiangqaz

加两行打印，看出来个啥
: l- D2 W& h5 `) n7 G
8 e8 a* i  q0 `$ T8 K7 J4 x        Next        
        symbol_len = Len(symbol)
7 b7 t0 g* k0 x5 J) [$ V        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
( u9 L7 D* i+ b    Next pkg

qiangqaz

出来个这玩意
5 ~: O$ j- B2 l( t/ G

linxiwell

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

qiangqaz

linxiwell 发表于 2018-6-27 11:59
% @7 N' s% t0 q5 k2 p: KEDA_BOMHelper花式出BOM,总有满足你的。

嗯，有空研究下
7 U9 v! b0 R+ x9 K. E) s

jackleipm

最近要搞这一块，先上来了解一下