topic Re: Input on mouse instead coordinates in Inventor Programming Forum

Input on mouse instead coordinates

GSK2019 — Tue, 09 Aug 2022 14:23:28 GMT

Hello,

Is there is a code that you have a can use, so you can click where something has to be, instead of using coordinates? (something like revision table/Parts list etc).

Re: Input on mouse instead coordinates

A.Acheson — Tue, 09 Aug 2022 14:45:23 GMT

It could be done but would be a more complex process and perhaps unecessary for the user. Is the table not against a border of some kind? You can detect the borders of a sheet, work out the table size if the placement point isnt against a border then then just move the table against the border. Here is a post with a postion sub routine.

Re: Input on mouse instead coordinates

GSK2019 — Tue, 09 Aug 2022 17:09:59 GMT

Well that is maybe even better, is it hard to put in a corner every time automatically?

F.e.:

A0_landscape top right

A1_Portrait top right?

Re: Input on mouse instead coordinates

A.Acheson — Wed, 10 Aug 2022 13:12:41 GMT

If you look for the position sub routine in the precious link you will see border.RangeBox.MaxPoint.X which is the right hand side border and Y the top right hand corner.

For the partslist all you need is this point. If you place it in a sub like the rev table you can call it when you change orientation.

oTablePt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Border.RangeBox.MaxPoint.X, oSheet.TitleBlock.RangeBox.MaxPoint.Y)

This sub is set up for the rev table on right hand bottom corner.

Private Sub	Positiontable( oTablePt As Point2d,oSheet As Sheet)

Dim oRevTableItem As RevisionTable
oRevTableItem = oSheet.RevisionTables.Item(1) 

Dim oWidthRevTable As Double
oWidthRevTable = oRevTableItem.RangeBox.MaxPoint.X - oRevTableItem.RangeBox.MinPoint.X

Dim oHeightRevTable As Double
oHeightRevTable = oRevTableItem.RangeBox.MaxPoint.Y - oRevTableItem.RangeBox.MinPoint.Y

oTablePt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Border.RangeBox.MaxPoint.X - oWidthRevTable, oSheet.TitleBlock.RangeBox.MaxPoint.Y + oHeightRevTable)

oRevTableItem.Position = oTablePt
End Sub

Re: Input on mouse instead coordinates

GSK2019 — Wed, 10 Aug 2022 09:24:04 GMT

Thank you!