Autodesk Inventor

[#1]

Dear Someone,

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 in API for filter in partlist class use views filter.

i 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,

[#2]

Dear Someone,

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 in API for filter in partlist class use views filter.

i 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,

[#3]

You may want to look into the blog article in the below link for sample ilogic codes,

http://forums.autodesk.com/t5/Autodesk-Inventor/iLogic-to-Sort-BOM-Renumber-and-sort-Parts-list/td-p...

Hope it helps.

[#4]

link does not exist.

Please help.

[#5]

The URL that he posted was cut off.  I think this might be where he was trying to get you.

Try this....

[#6]

Hi d_great_ice,

I'm not aware of a way to set the parts list filter programatically, but what I've done in the past is to set up a parts list style that has the filter pre-set in that style, and then change the parts list to use that specific style.

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

'assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
'Set a reference to the active sheet.
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
'set a reference to the first drawing view on the sheet. Assumes it's not a draft view.
Dim oDrawingView As DrawingView
oDrawingView = oSheet.DrawingViews(1)
'define the insert point
Dim oPlacementPoint As Point2d
oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d (27#, 20.625#)
'create the parts list
Dim oPartsList As PartsList     
oPartsList = oSheet.PartsLists.Add(oDrawingView, oPlacementPoint)
'set parts list to a specific layer
oPartsList.Layer = oDrawDoc.StylesManager.Layers.Item("Visible (ANSI)")
'set parts list to a specific style
oPartsList.Style = oDrawDoc.StylesManager.PartsListStyles.Item("Material List (ANSI) with Filter")