topic Re: vba help!! in Inventor Programming Forum

vba help!!

Anonymous — Wed, 14 Aug 2013 12:52:06 GMT

hi..

what is the code in selecting a sketch block from the browser in vba?

i only need to get the name of the block selected..

Re: vba help!!

Anonymous — Thu, 15 Aug 2013 02:54:15 GMT

Enjoy mate.. Here is the code...

Give Some Kudos and accept as Solution

Sub SketchSel()
Dim prtdoc As PartDocument
Set prtdoc = ThisApplication.ActiveDocument
Dim prtdef As PartComponentDefinition
Set prtdef = prtdoc.ComponentDefinition

Dim sk As PlanarSketches
Set sk = prtdef.Sketches
Dim osk As PlanarSketch
For i = 1 To prtdef.Sketches.count
   Set osk = prtdef.Sketches(i)
    For j = 1 To osk.SketchBlocks.count
        If InStr(osk.SketchBlocks(j).Name, "Steel") Then
            prtdoc.SelectSet.Select prtdoc.ComponentDefinition.Sketches(i).SketchBlocks(j)
        End If
    Next
Next
End Sub

Re: vba help!!

Anonymous — Thu, 15 Aug 2013 12:33:54 GMT

this is in red:

prtdoc.SelectSet.Select prtdoc.ComponentDefinition.Sketches(i).SketchBlocks(j)

am i correct to say that the code is predefining the blocks name as whatever (eg. steel)??

what i would like to do is select the block from the browser and not hardcode it .is it doable?

thanks..

Re: vba help!!

Anonymous — Thu, 15 Aug 2013 23:15:10 GMT

Check my answers in RED

prtdoc.SelectSet.Select prtdoc.ComponentDefinition.Sketches(i).SketchBlocks(j)

Make sure you got a part document as opend file in Inventor.

am i correct to say that the code is predefining the blocks name as whatever (eg. steel)??

Yes.. the code is looking for blocks with name(string) contains "Steel".

what i would like to do is select the block from the browser and not hardcode it .is it doable?

You need to have a find or search function where you can enter name of block to be selected and code will highlight that block