topic Re: [VBA] Change position of existing Sketch Symbol and Parts List in Inventor Programming Forum

[VBA] Change position of existing Sketch Symbol and Parts List

amarcoc — Thu, 02 Jul 2020 08:04:59 GMT

Hi.

How can I change position of existing Sketch Symbol and Parts List?

I created a macro to easely change Sheet Size, but I need to re-position Sketch Symbols and Parts List, but I couldn't do it.

Sketch Symbol Names are: "Tol Geral" and "Comentarios automaticos"

Thanks in advance!

Re: [VBA] Change position of existing Sketch Symbol and Parts List

marcin_otręba — Thu, 02 Jul 2020 08:26:24 GMT

sketched symbol:

oSketchedSymbol = odraw.ActiveSheet.SketchedSymbols.Item(1) oSketchedSymbol.Position = g_inventorApplication.TransientGeometry.CreatePoint2d(1, 1)

partlist:

Set opartslist = osheet.PartsLists(1) opartslist.Position = g_inventorApplication.TransientGeometry.CreatePoint2d(1, 1)

Re: [VBA] Change position of existing Sketch Symbol and Parts List

amarcoc — Thu, 02 Jul 2020 08:53:39 GMT

Thanks!

I did try, but couldnt make it work. Is that for VBA?

Please check attached errors.

Re: [VBA] Change position of existing Sketch Symbol and Parts List

marcin_otręba — Thu, 02 Jul 2020 09:00:11 GMT

For vba you must use set :

set oSketchedSymbol = odraw.ActiveSheet.SketchedSymbols.Item(1) oSketchedSymbol.Position = g_inventorApplication.TransientGeometry.CreatePoint2d(1, 1)

you didint set osheet:

Dim osheet As Sheet Set osheet = Thisapplication.activedocument.ActiveSheet Set opartslist = osheet.PartsLists(1) opartslist.Position = g_inventorApplication.TransientGeometry.CreatePoint2d(1, 1)

Re: [VBA] Change position of existing Sketch Symbol and Parts List

amarcoc — Thu, 02 Jul 2020 09:36:27 GMT

I still cant make it work 😞

Here is the error

Re: [VBA] Change position of existing Sketch Symbol and Parts List

marcin_otręba — Thu, 02 Jul 2020 09:38:39 GMT

change g_inventorapplication to thisapplication.

Re: [VBA] Change position of existing Sketch Symbol and Parts List

amarcoc — Thu, 02 Jul 2020 11:10:59 GMT

Thanks! That was it.

How can I know Part List height?

Re: [VBA] Change position of existing Sketch Symbol and Parts List

marcin_otręba — Thu, 02 Jul 2020 11:31:33 GMT

Dim oprtl As PartsList
Set oprtl = Thisapplication.activedocument.ActiveSheet.PartsLists.item(1)
Dim height, width As Decimal
Set  width = (oprtl.RangeBox.MaxPoint.X - oprtl.RangeBox.MinPoint.X)*10
Set height=(oprtl.RangeBox.MaxPoint.Y - oprtl.RangeBox.MinPoint.Y)*10

Sorry it was logic. i corrected it.

Re: [VBA] Change position of existing Sketch Symbol and Parts List

amarcoc — Thu, 02 Jul 2020 13:36:59 GMT

Thanks. It worked.

Last question:

How can I check Model Documentype (running same VBA macro from a drawing?). I want partlist code to run only if model is an assembly.

Thanks!!!

Re: [VBA] Change position of existing Sketch Symbol and Parts List

marcin_otręba — Thu, 02 Jul 2020 15:28:34 GMT

odraw.ReferencedDocuments.Item(1).documenttype