SE 19, VB 6, GetDimensions does not work

 

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