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:
'Symetri iLogic
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”)
oSketch.Edit
oSketch.sketchblocks.item(1).delete
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
oSketch.SketchBlocks.AddByDefinition(oSketchBlockDef, oPosition)
oSketch.exitedit
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! ;)
iLogic is part of Autodesk Inventor and Inventor Professional.
Oscar kom till Symetri genom en praktiktjänst, men det dröjde inte länge innan han fick chansen att ta klivet ut i riktiga kunduppdrag. I dag jobbar han som konsult på heltid – ett exempel på hur en traineetjänst kan öppna dörrar för studenter som vill testa sina kunskaper i riktiga projekt och utvecklas vidare hos oss.
Joel Aspegren, Sales Manager för Bluebeam på Symetri, har mer än två decennier i försäljningsvärlden bakom sig. En stor del av den tiden har han tillbringat i hjärtat av den nordiska bygg-och projektbransche
Ett av de smartaste sätten att ligga steget före är att utbilda sig i Autodesk Civil 3D i kombination med Naviate – två kraftfulla verktyg som tillsammans kan revolutionera ditt sätt att arbeta med projektering.