In this episode of the Smarter Building podcast, we caught up with Robert Kumapley, the Chief of Enterprise Asset Management (EAM) Program at The Port Authority of New York & New Jersey (PANYNJ), on the challenges and advantages of implementing an asset management strategy.
iLogic Block Swapping
As part of their iLogic design Automation, one of our clients asked for some code today to swap Autodesk Inventor sketch blocks within their part sketches as they pick different options within their dialog boxes.
I remembered I'd had the same request a few years ago and dregged up my old code and found a video of it ... Do you remember when Inventor looked like this?
I thought this code could still be of use to more than one of you and so here is the basic version of it:
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition
oCompDef = oPartDoc.ComponentDefinition
Dim oSketches As PlanarSketches
oSketches = ThisApplication.ActiveDocument.ComponentDefinition.Sketches
Dim oSketch As PlanarSketch
oSketch = oSketches.Item(“Profile”)
Dim oSketchBlockDef As SketchBlockDefinition
oSketchBlockDef = oCompDef.SketchBlockDefinitions.Item(TABLE_PROFILE)
Dim oPosition As Point2d
oPosition = ThisApplication.TransientGeometry.CreatePoint2d(0, 0)
’ Insert the sketch block definition
If its of interest and you want to push it further then please get in touch. I do love a good bit of Automation awesomeness! ;)