PADS生成bom脚本

qiangqaz

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

linxiwell

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

qiangqaz

网上找了一个
Dim fn As String

5 \0 l! p" U+ X$ T6 mSub Main
' A7 I: D) o; {2 s  M# u. p    fn = ActiveDocument
    If fn = "" Then
8 u4 A$ V! o0 n& d        fn = "Untitled"
/ a7 N, I" E( e    End If
1 n$ Z3 Q% R# i) a
4 A1 ?, s3 v$ O- P  K& i    tempFile = DefaultFilePath & "\temp.txt"
2 a. H$ e# ~3 T, O" k    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
) w0 O- ]$ R4 \0 S2 t: A        qty = 0
        value = ""
. |9 f8 c" ?1 |/ \        description = ""
& \6 @  v; _& f' ]- T        manufacturer = ""
        pn = ""
/ t5 n/ `" k& l7 p3 N        manufacturerpn = ""
: ]* _0 p& }5 K# f7 F8 E* A        symbol = ""
        item = item + 1
        'Print #1, item; vbTab;
        For Each part In pkg.Components
" c: W6 M2 E: P8 I! a" z            value = AttrValue(part, "Value")
            description = AttrValue(part, "Description")
            manufacturer = AttrValue(part, "Manufacturer_1")
% n6 l3 W/ X4 k4 T+ R5 \( [" D# M            pn = AttrValue(part, "P/N_1")
# E  d+ @3 g6 X. z            value = AttrValue(part, "Value")   
2 Y( a7 I! l& l1 }" |            manufacturerpn = AttrValue(part, "Manufacturer_1_P/N")
4 X$ b0 r, A9 H0 X( H            sysid = AttrValue(part, "SYSID")
- d6 q; j4 m9 |            qty = qty+1
5 L- V, p0 z3 E8 A. f: [            symbol = symbol + part.Name + ", "
        Next        
, s: Y6 z5 t4 s) A3 @/ A& _2 j+ Y        symbol_len = Len(symbol)
6 Q0 X0 d% b2 U0 `9 }3 H        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
; G- m/ a5 M& t    StatusBarText = ""
, f# c* B, ]- x$ Z    Close #1
. X* o9 O3 R! B( c7 m2 \1 z0 Y! X    ExportToExcel
End Sub

Sub ExportToExcel
    FillClipboard
    Dim xl As Object
    On Error Resume Next
    Set xl =  GetObject(,"Excel.Application")
    On Error GoTo ExcelError    ' Enable error trapping.
# s- E5 D' y' G6 g    If xl Is Nothing Then
        Set xl =  CreateObject("Excel.Application")
" j6 |1 b! n* v7 y  w$ U1 C    End If
' E0 N& ^1 A+ h$ J) E    xl.Visible = True
    xl.Workbooks.Add
0 Q7 C) Z$ L8 Y/ t# z3 }2 \' r5 i    xl.ActiveSheet.Paste
    xl.Range("A1:I1").Font.Bold = True
    xl.Range("A1:I1").NumberFormat = "@"
    xl.Range("A1:I1").AutoFilter
    xl.ActiveSheet.UsedRange.Columns.AutoFit
( g1 e, R  @5 V5 q# q    'Output Report Header
7 C: Z# P# h* _! g4 v    xl.Rows(1).Insert
  r' V* o9 O5 A7 S' r: G    xl.Rows(1).Cells(1) = Space(1) & "Part Report "& " WWZL-BOM " & " on " & Now
    xl.Rows(2).Insert
' K4 c$ l& o3 Z    xl.Rows(1).Font.bold = True
- z+ L8 E0 [) |! n' K! D6 O5 s( L( k    'Output Design Totals
    lastRow = xl.ActiveSheet.UsedRange.Rows.Count + 1
    xl.Rows(lastRow + 1).Font.bold = True
' o1 v/ f/ H# k    xl.Rows(lastRow + 1).Cells(1) = Space(1) & "Design Part count: " & ActiveDocument.Components.Count
    xl.Range("A1").Select
    On Error GoTo 0 ' Disable error trapping.
    Exit Sub   

ExcelError:
8 p# S9 v, B! l# H: k. ?    MsgBox Err.Description, vbExclamation, "Error Running Excel"
    On Error GoTo 0 ' Disable error trapping.   
# X. C% ]7 A5 M' }4 J: m    Exit Sub
' \5 d3 }; s8 t5 q3 U' h  uEnd Sub

$ |9 Z$ }) x; l" D$ _Sub FillClipboard
0 ]7 a8 F# `% W1 R    StatusBarText = "Export Data To Clipboard..."
    ' Load whole file to string variable   
- l7 `1 {3 P, y    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile  For Input As #1
$ m' q. o$ q9 v; }! Q$ ~6 Z    L = LOF(1)
    AllData$ = Input$(L,1)
% N7 a0 j& l: Y3 D% ?5 `    Close #1
  m1 O7 x9 Z! q2 a    'Copy whole data to clipboard
0 k/ w7 v. k6 r2 ]- B    Clipboard AllData$
    Kill tempFile
    StatusBarText = ""
End Sub
Function AttrValue (comp As Object, atrName As String) As String
    If comp.Attributes(atrName) Is Nothing Then
5 v2 m9 X0 I: X1 @/ n& e8 f0 {% `        AttrValue = ""
    Else
( u' _8 j3 y$ A2 c/ W        AttrValue = comp.Attributes(atrName).Value
    End If
, J$ n% W( y4 K& a' E8 H" ]& |2 ~6 h, DEnd Function

qiangqaz

一点点来吧，共勉

qiangqaz

        symbol_len = Len(symbol)
1 Z$ O7 \3 @# O/ \' j3 o3 e4 P        symbol = Mid(symbol,1, symbol_len - 2)
$ v- _. a  D8 F' t! j- n, q
这两句是个啥意思？

qiangqaz

7 _0 J1 C" r. |( o+ Z
难道是数组：---
' p) E* P: }; M3 o多数情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标量变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。下例声明了一个包含 11 个元素的一维数组：

Dim A(10)
虽然括号中显示的数字是 10，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。
8 \9 l$ g& v) U, Y
* B, z  m2 w7 b6 j! E, N5 F# h- z在数组中使用索引为数组的每个元素赋值。从 0 到 10，将数据赋给数组的元素，如下所示：
! E/ J3 B5 U7 Z8 a. n* o
A(0) = 256
. K( p; z5 @6 t! j6 G: ^ A(1) = 324
A(2) = 100
. . .
A(10) = 55
与此类似，使用索引可以检索到所需的数组元素的数据。例如：
' r) B% i. w' K
4 K( Q% ^( a/ m$ t . . .
. H' ~, A) Y: a9 p SomeVariable = A(8)  
. . .
, [7 R7 {# v( T) k数组并不仅限于一维。数组的维数最大可以为 60（尽管大多数人不能理解超过 3 或 4 的维数）。声明多维数组时用逗号分隔括号中每个表示数组大小的数字。在下例中，MyTable 变量是一个有 6 行和 11 列的二维数组：

* k& ?* K" G7 ?# m) X: V Dim MyTable(5, 10)
在二维数组中，括号中第一个数字表示行的数目，第二个数字表示列的数目。
2 ~  n1 Q  J/ p9 @# K

: f$ u/ G9 ?) }0 q; W# B" e7 Y

qiangqaz

加两行打印，看出来个啥
* C) a- b( a% {, O- ]# ^  Z
/ c2 [) @, f! B+ F0 M2 n        Next        
        symbol_len = Len(symbol)
7 `6 H1 M$ [1 [+ t' v) S        Print #1,symbol_len;
6 @+ h9 \. i! u/ f, K        Print #1
7 N( `. d! }+ z8 j' w# y        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
. l0 K* F4 E: N1 l6 v    Next pkg

qiangqaz

出来个这玩意

qiangqaz

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

嗯，有空研究下