Showing results for 
Search instead for 
Did you mean: 

SE 19, VB 6, GetDimensions does not work

Valued Contributor
Valued Contributor


SE 19, VB 6

The following code returns run-time error -2147023113 (Method 'GetDimensions' of object 'ExtrudedProtrusion' failed).

I've tried everything, searched help but unable to find out the reason for error. Please help.

    Dim dims1() As Object ' Tried other names

    Dim noOfDims As Long ' tried Integer


    Dim feat As ExtrudedProtrusion


'    Set feat = partDoc.Models(1).Features(1)

    Set feat = partDoc.Models(1).ExtrudedProtrusions(1)


    MsgBox feat.Name


    '''' Works fine upto here


    feat.GetDimensions noOfDims, dims1() '' Error


- S S Kulkarni


Posted by: Sanjay Kulkarni
Post date: 1/6/2009 12:23:50 AM