[分享]给大家发个好软件，公司的. [复制链接]

给大家发个好软件，公司的.
可能是我没说明下。
主要是解决JUKI不能导出来元件ID。
用这玩意，结合贴装数据，
在站位表上做出元件ID位置的转换软件。



说明见13楼，谢谢，有什么不懂的，可以邮件我。

上料表，是将JUKI软件没有元件ID的问题可以解决掉的好软件。
公司的软件，搞来给大家。

下了的兄弟发下论坛啥.辛苦了俺.

谢谢了！支持和学习使用中

是好软件但使用方法不知道呀，LZ发一下使用说明吧

是了，还有点不明白！

原帖由5楼楼主 明志 于2008-10-27 14:16发表
是了，还有点不明白！

明志老大，好久没见你了哟，呵呵。
这个是很简单的东西。

示范：

站位与元件名称的：
F51   100NF/0603/J
元件名称与元件ID：
100NF/0603/J     R1
100NF/0603/J     R2
100NF/0603/J     R3
100NF/0603/J     R4
通过这个软件的结合出来是：
F51   100NF/0603/J   R1,R2,R3,R4
的形式，主要是有的工厂要求要把元件ID的位置表现在站位表上。
结合出来后的文件用EXC打开就可以了。
其他的站位表，按自己公司的排版来设计了。


在机器上或在HLC上把贴片位置和吸取位置，
做成我上面的格式。

呵呵 我编了几行代码大概可以实现将分散的PN和ID整理出来，大家可以试着使用优化一下啊 ：），至于结合站位，需要从吸取数据中提取...和PN link起来就可以...

源代码如下
××××××××××××××××××××××××××××××××××××××

Option Explicit


Public Sub Pick()
Dim r1, r2, r3 As Range
Dim i, j, k As Integer
Dim S As String
Dim C As Range
Set r2 = Range("E:E")
Worksheets(1).Activate
ActiveSheet.Range("E:F").ClearContents
Cells(1, 5).Value = "PN"
Cells(1, 6).Value = "ID"


i = 2 ' start from 2nd row
Dim NumRow As Integer
NumRow = Cells(2, 1).End(xlDown).Row
Set r1 = Range(Cells(2, 1), Cells(NumRow, 1))
 
  For Each C In r1    
    If r2.Find(C.Value, LookAt:=xlWhole) Is Nothing Then
        Cells(i, 5).Value = C.Value
        Cells(i, 6).Value = C.Offset(0, 1).Value
        i = i + 1
    Else
        Cells(r2.Find(C.Text, LookAt:=xlWhole).Row, 6).Value = Cells(r2.Find(C.Text, LookAt:=xlWhole).Row, 6).Value & "," & C.Offset(0, 1).Value
       
    End If
  Next C
End Sub

大哥，你好厉害哟，佩服！
能不能做得更好点。

我们公司培训技术员时都有讲到.很简单的东西,不过也支持一下

我们以前的工厂不要求做元件ID位置的。

原帖由10楼楼主 c13828850336 于2008-10-30 19:31发表
我们公司培训技术员时都有讲到.很简单的东西,不过也支持一下

  什么东东过时的东西

BOM文件的文件路径，格式如下：
J005    4100-CD0000-00
J019    4100-CD0000-00
J018    4100-CD0000-00
J017    4100-CD0000-00
J006    4100-CD0000-00
J004    4100-CD0000-00
J001    4100-CD0000-00
J009    4100-CD0000-00
J008    4100-CD0000-00
J007    4100-CD0000-00
J003    4100-CD0000-00
J002    4100-CD0000-00
J016    4100-CD0000-00
J013    4100-CD0000-00
J015    4100-CD0000-00
J012    4100-CD0000-00
J011    4100-CD0000-00
J014    4100-CD0000-00
J010    4100-CD0000-00
J020    4100-CD0000-00
R079    4100-CA2220-T0

根据实际情况：
我上面做的，料号是第2行，所以料号前面输入：2，
元件所在列是第1行，所以元件所在列前面输入：1。

STATION文件的文件路径,格式如下：
4100-CD0000-00    F-56
4100-CD0000-00    F-58
4100-CD0000-00    F-60
4100-CA2220-T0    F-62

根据我做的情况：
料号是第1行，所以料号前面输入：1。

这样，点击“转换”，保存导出的文件就可以了。

导出的文件:
导出的文件用EXCAL格式打开就可以了。
根据工厂里的站位表设计，把导出的文件整理一下就可以了。

附件是我做好的文件格式和导出的文件，及公司整理的站位表。

SMTHOME因你而精彩！