topic Re: Send Components part list To another program with SQL Crystal Database in Inventor Programming Forum

Send Components part list To another program with SQL Crystal Database

Anonymous — Wed, 21 Mar 2012 11:02:37 GMT

Can someone tell me an code to make in VBA editor, that read my part list (code, quantity and designition), and appears like this:

Example: Part list contains 5 codes.

Read active idw.
Read code nº1 (msg with code+quantity+designition)
Read code nº2 (msg with code+quantity+designition)
Read code nº3 (msg with code+quantity+designition)
Read code nº4 (msg with code+quantity+designition)
Read code nº5 (msg with code+quantity+designition)

msg ("Finish")

Re: Send Components part list To another program with SQL Crystal Database

Anonymous — Wed, 21 Mar 2012 14:58:14 GMT

Help?
Its just MsgBox... dont need to connect to SQL database yet... I just want to know how I find each part of the list, 1 by 1... and in each one, appears an message saying the quantity, item number, designation or/and code .

Please, help 😞

Re: Send Components part list To another program with SQL Crystal Database

Mike.Wohletz — Thu, 22 Mar 2012 01:48:29 GMT

This method shows going through each row and getting the column with the heading caption. It is only going to work with the first parts list on the active sheet.

     Dim oDrawDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
        Dim oSheet As Sheet = oDrawDoc.ActiveSheet
        Dim oPartsList As PartsList = oSheet.PartsLists.Item(1)
        For Each oRow As PartsListRow In oPartsList.PartsListRows
            Dim RowArray(oPartsList.PartsListColumns.Count - 1) As String
            For I As Integer = 1 To oPartsList.PartsListColumns.Count
                RowArray(I - 1) = oPartsList.PartsListColumns.Item(I).Title & vbTab & oRow.Item(I).Value
            Next
            MsgBox(String.Join(vbLf, RowArray))

        Next

Re: Send Components part list To another program with SQL Crystal Database

Anonymous — Thu, 22 Mar 2012 20:51:58 GMT

not working in inventor 2012... -.-"

Re: Send Components part list To another program with SQL Crystal Database

Mike.Wohletz — Thu, 22 Mar 2012 21:05:53 GMT

It works fine in Inv 2012, how are you trying to use it? What programming environment are you working in?

Re: Send Components part list To another program with SQL Crystal Database

Anonymous — Thu, 22 Mar 2012 21:50:34 GMT

Like this... works! in my default.ivb file!

Thanks anyway 😉 I will try to connect now to SQL Crystal database 😉

[ NOTE: PORTUGAL WINS! ]

Sub Part_List()
Dim i As Integer
i = 1

MsgBox ("Iniciar Teste")

        Dim idwDoc As Inventor.DrawingDocument
        Set idwDoc = ThisApplication.ActiveDocument

        Dim oSheet As Sheet
        Set oSheet = idwDoc.ActiveSheet

        Dim oPartsList As PartsList
        Set oPartsList = oSheet.PartsLists.Item(1)

        For Each oRow In oPartsList.PartsListRows

            For i = 1 To oPartsList.PartsListColumns.Count
                MsgBox (oPartsList.PartsListColumns.Item(i).Title & vbTab & oRow.Item(i).Value)
            Next

            MsgBox ("Terminou")

Next oRow

End Sub

Re: Send Components part list To another program with SQL Crystal Database

Anonymous — Thu, 13 Dec 2012 09:47:36 GMT

Dear,

Can help me, how to filtering a part list use view by assembly drawing, with VBA editor or iLOGic code.

there is no class system for filter in partlist class.

im use autodesk inventor 2010, and get install use ilogic add-ons 2010

i want to get automation system for my inventor design.

Thx.

Ihsan Surahman,

Re: Send Components part list To another program with SQL Crystal Database

Curtis_W — Fri, 04 Jan 2013 18:47:37 GMT

Hi d_great_ice,

See this link:

http://forums.autodesk.com/t5/Autodesk-Inventor/filtering-partlist-use-filter-View/m-p/3746331#M457739

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com