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

[amarcoc]

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!

[marcin_otręba]

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)

[amarcoc]

Thanks!

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

Please check attached errors.

[marcin_otręba · Accepted solution]

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)

[amarcoc]

I still cant make it work 😞

Here is the error

[marcin_otręba · Accepted solution]

change g_inventorapplication to thisapplication.

[amarcoc]

Thanks! That was it.

How can I know Part List height?

[marcin_otręba · Accepted solution]

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.

[amarcoc]

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!!!

[marcin_otręba]

odraw.ReferencedDocuments.Item(1).documenttype