topic Re: iLogic position of two or more part lists in Inventor Programming Forum

iLogic position of two or more part lists

Anonymous — Thu, 27 Aug 2020 05:27:27 GMT

Hello everyone,

Maybe who knows, it is possible to "glue" on curve two or more part list together with use iLogic?

I need to do this, because I have many times this situation when I have two or more part lists with different informations.

Thanks a lot for any help

Picture before:

Picture after:

Re: iLogic position of two or more part lists

R.Mabery — Thu, 27 Aug 2020 11:38:53 GMT

I don't believe there is a way to "attach" the two together with code but you could certainly determine the location of each and move the one you want with code.

But again, they wouldn't act as one if you manually selected them.

Re: iLogic position of two or more part lists

Anonymous — Thu, 27 Aug 2020 14:08:28 GMT

As stated previously it is currently not possible to "glue" two lists together, however if you want to automatically create a parts list I have attached code that I use to do so. It will need some editing in order to match the Column Numbers and Names, if you want multiple different parts lists you will need to filter (I filter by view representations) the lists. If you have different columns I would recommend copying the code and creating a second rule specifically for that parts list (this will also require editing the code and setting up a way to filter for the parts list).

If you have questions feel free to ask and I will try to answer as quickly as I can.

Note- The code reads from first level iProperties, as such if they are not filled in you will have mostly blank columns.

Re: iLogic position of two or more part lists

Anonymous — Thu, 27 Aug 2020 17:59:08 GMT

Thank you a lot for your reply and for information.

I also use so kind of filter and ther I don't have any problem about thet.

I just looking for some information how high the part list is and then the rule automatically placed next part list on the previous one. Or something in that way if it is possible?

Thank you a lot for your time and help.

All the best,

Jernej

Re: iLogic position of two or more part lists

Anonymous — Thu, 27 Aug 2020 18:04:06 GMT

Hello Randy Mabery,

Thank you a lot for your help and information.

I looking for something like you say. Looking for some information how high the part list is and then the rule automatically placed next part list on the previous one. Or something in that way if it is possible?

Thank you a lot for your time and help.

All the best,

Jernej

Re: iLogic position of two or more part lists

R.Mabery — Thu, 27 Aug 2020 18:25:37 GMT

Take a look at the following properties for the PartsList object:

Position: You can use to find the origin of the PartsList

RangeBox: You can the Max X & Y and Min X & Y and use to calculate the height and the width of the PartsList

Re: iLogic position of two or more part lists

WCrihfield — Thu, 27 Aug 2020 18:48:37 GMT

Try this:

The code is a bit long to show the work of how I'm moving it. But you could use this as a Sub routine.

Dim oDDoc As DrawingDocument = ThisDrawing.Document Dim oSheet As Sheet = oDDoc.ActiveSheet Dim oPList1 As PartsList = oSheet.PartsLists.Item(1) Dim oPList2 As PartsList = oSheet.PartsLists.Item(2) 'Assuming oPList1 is the first one and already in place 'and that oPList2 is the one you're wanting to move 'Also assumes you want the right sides of both to line up 'and that you want the top of the first and the bottomof the second to line up 'Get top right corner of oPList1 Dim oP1X As Double = oPList1.RangeBox.MaxPoint.X Dim oP1Y As Double = oPList1.RangeBox.MaxPoint.Y 'Get bottom right corner of oPList2 Dim oP2X As Double = oPList2.RangeBox.MaxPoint.X Dim oP2Y As Double = oPList2.RangeBox.MinPoint.Y 'Get differences between those two locations Dim oXDiff As Double = oP1X - oP2X Dim oYDiff As Double = oP1Y - oP2Y Dim oP2Pos As Point2d = oPList2.Position Dim oNewX As Double If oXDiff < 0 Then 'oPList2 needs to move to the left oNewX = oP2Pos.X - Abs(oXDiff) ElseIf oXDiff = 0 Then 'they are already aligned along the right side oNewX = oP2Pos.X ElseIf oXDiff > 0 Then 'oPList2 needs to move to the right oNewX = oP2Pos.X + Abs(oXDiff) End If Dim oNewY As Double If oYDiff < 0 Then 'oPList2 needs to move down oNewY = oP2Pos.Y - Abs(oYDiff) ElseIf oYDiff = 0 Then 'they are already aligned top to bottom oNewY = oP2Pos.Y ElseIf oYDiff > 0 Then 'oPList2 needs to move up oNewY = oP2Pos.Y + Abs(oYDiff) End If 'Since I don't know where on the parts lists your origin positions will be... Dim oNewPosition As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oNewX,oNewY) oPList2.Position = oNewPosition

Re: iLogic position of two or more part lists

Anonymous — Thu, 27 Aug 2020 19:14:28 GMT

Woow! Thank you very much for this code and very good solution for me.

This help me very well 🙂

All the best,

Jernej

Re: iLogic position of two or more part lists

Anonymous — Fri, 28 Aug 2020 05:13:59 GMT

Hello Randy Mabery,

Maybe do you know if it is also possible to get the right number of Part list with click on it.

In my case this number in square bracket.

oSheet.PartsLists.Item(?)

Is not every time that is the part list number 2 on 1.

Thank you a lot.

Best

Jernej

Re: iLogic position of two or more part lists

WCrihfield — Fri, 28 Aug 2020 10:41:02 GMT

First of all, I'm not Randy Maybery. 🤔

And yes, it is very easy to allow you to select the two parts lists, but I was thinking you wanted to avoid as much manual interaction as possible with this automation project.

Here is the updated code, that allows you to select them. It says right in the selection comments which is which.

Dim oDDoc As DrawingDocument = ThisDrawing.Document Dim oSheet As Sheet = oDDoc.ActiveSheet Dim oPList1 As PartsList = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingPartsListFilter, "Select the Parts List that will stay in place.") Dim oPList2 As PartsList = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingPartsListFilter, "Select the Parts List that you want to move.") 'Also assumes you want the right sides of both to line up 'and that you want the top of the first and the bottomof the second to line up 'Get top right corner of oPList1 Dim oP1X As Double = oPList1.RangeBox.MaxPoint.X Dim oP1Y As Double = oPList1.RangeBox.MaxPoint.Y 'Get bottom right corner of oPList2 Dim oP2X As Double = oPList2.RangeBox.MaxPoint.X Dim oP2Y As Double = oPList2.RangeBox.MinPoint.Y 'Get differences between those two locations Dim oXDiff As Double = oP1X - oP2X Dim oYDiff As Double = oP1Y - oP2Y Dim oP2Pos As Point2d = oPList2.Position Dim oNewX As Double If oXDiff < 0 Then 'oPList2 needs to move to the left oNewX = oP2Pos.X - Abs(oXDiff) ElseIf oXDiff = 0 Then 'they are already aligned along the right side oNewX = oP2Pos.X ElseIf oXDiff > 0 Then 'oPList2 needs to move to the right oNewX = oP2Pos.X + Abs(oXDiff) End If Dim oNewY As Double If oYDiff < 0 Then 'oPList2 needs to move down oNewY = oP2Pos.Y - Abs(oYDiff) ElseIf oYDiff = 0 Then 'they are already aligned top to bottom oNewY = oP2Pos.Y ElseIf oYDiff > 0 Then 'oPList2 needs to move up oNewY = oP2Pos.Y + Abs(oYDiff) End If 'Since I don't know where on the parts lists your origin positions will be... Dim oNewPosition As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oNewX,oNewY) oPList2.Position = oNewPosition

Re: iLogic position of two or more part lists

Anonymous — Fri, 28 Aug 2020 11:07:38 GMT

Wesley Crihfield I am so sorry for this my mistake... Really sorry...

And thank you a lot for this new freat version of iLogic. 🙂

All the best,

Jernej

Re: iLogic position of two or more part lists

chandra.shekar.g — Mon, 31 Aug 2020 07:27:01 GMT

@Anonymous,

Is problem resolved now?

Thanks and regards,

Re: iLogic position of two or more part lists

Anonymous — Mon, 31 Aug 2020 07:33:40 GMT

Dear CHANDRA SHEKAR,

Yes now is resolved.

Thank you very much.

Best regards,

Jernej