Autodesk Inventor Customization

[#1]

Hi,

I want to retrieve dimensions in a drawing with ilogic. I found some code in de api help, but i can't figure out how to translate it into a ilogic code.

I always use assembly models in these drawing and all the parameters have unique names. So in my drawing i want to retrieve some specific dimensions in a view.

Can anyone point me in the right direction? maybe a small sample?

kind regards,

theo

[#2 · Accepted solution]

Hello Theo,

Here you have a little example how-to retrieve dimensions with a special parameter name in iLogic.

The workflow I use is:

1. Retrieve all dimensions.

2. Iterate through the dimensions.

3. Delete dimensions if not a special parameter.

The special parameter name has a prefix “RetD_” as model / userparameter.

 

Start code”

Dim oDrawDoc As DrawingDocument = ThisDoc.Document

Dim oSheet As Sheet = oDrawDoc.ActiveSheet

Dim oDrawView As DrawingView = oSheet.DrawingViews(1)

Dim oGeneralDimensionsEnum As GeneralDimensionsEnumerator

oGeneralDimensionsEnum = oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oDrawView)

Dim PrefixStr As String = "RetD_"

Dim oGeneralDimension As GeneralDimension

For Each oGeneralDimension In oGeneralDimensionsEnum

    Dim oParameter As Parameter

    oParameter = oGeneralDimension.RetrievedFrom.Parameter

    If oParameter.DrivenBy.count <> 0 Then

        Dim oDrivenByParameter As Parameter

        For Each oDrivenByParameter In oParameter.DrivenBy

            If InStr(oDrivenByParameter.Name, PrefixStr) = 0 Then

                oGeneralDimension.Delete

            End If

        Next

                Else

        If InStr(oParameter.Name, PrefixStr) = 0 Then

            oGeneralDimension.Delete

        End If

    End If

Next

“End Code

I hoop it was use full.

Best regards,

[#3]

Wow!!! That is the great code!!!!

Thank you so much!!!

[#4]

Marco,

Thanks, it works great!!

Houdoe,

gr Theo

[#5]

hi

will this rule delete dimensions by hole features?

it seems not going to work at that way.

thanks.

[#6]

I'd suggest you provide a dataset to recreate the problem you met with. This will help the peers here to diagnose.

[#7]

HI,

please check attachment. there will be an error when run ilogic rule.

the dimension by hole feature is not going to work.

it is 1/4--20 hole. the diameter of tap drill hole casues the error.

thanks a lot.

[#8]

Hi,

You were right the code stopped working because the Tapped Hole has no RetrievedFrom.Parameter.

Here you have the modified code.

Start code”

Dim oDrawDoc As DrawingDocument = ThisDoc.Document

Dim oSheet As Sheet = oDrawDoc.ActiveSheet

Dim oDrawView As DrawingView = oSheet.DrawingViews(1)

Dim oGeneralDimensionsEnum As GeneralDimensionsEnumerator
oGeneralDimensionsEnum = oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oDrawView)

Dim oGeneralDimension As GeneralDimension
For Each oGeneralDimension In oGeneralDimensionsEnum
	Dim oParameter As Parameter

	Try
		oParameter = oGeneralDimension.RetrievedFrom.Parameter
	Catch
		' Error to set oParameter.
		' Go further to delete the dimension.
	End Try

    If oParameter.DrivenBy.count <> 0 Then
        Dim oDrivenByParameter As Parameter
        For Each oDrivenByParameter In oParameter.DrivenBy
            If InStr(oDrivenByParameter.Name, "RetD_") = 0 Then
                oGeneralDimension.Delete
            End If
        Next
    Else
        oGeneralDimension.Delete
    End If
Next

“End Code

I didn’t test it with your Part because I have now only version 2011.

Best regards,

[#9]

hi,

at the near end of your code, you miss some parts. it should be like this,

If InStr(oParameter.Name, "test_") = 0 Then

oGeneralDimension.Delete
End If

otherwise, the code will delete all dimensions.

thanks for your information.

[#10]

Hi,

Something like this:

Dim oDrawDoc As DrawingDocument = ThisDoc.Document

Dim oSheet As Sheet = oDrawDoc.ActiveSheet

Dim oDrawView As DrawingView = oSheet.DrawingViews(1)

Dim oGeneralDimensionsEnum As GeneralDimensionsEnumerator
oGeneralDimensionsEnum = oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oDrawView)

Dim PrefixStr As String = "RetD_"

Dim oGeneralDimension As GeneralDimension
For Each oGeneralDimension In oGeneralDimensionsEnum
    Dim oParameter As Parameter
	Try
		oParameter = oGeneralDimension.RetrievedFrom.Parameter
	Catch
		' Error to set oParameter.
		' Go further to delete the dimension.
	End Try

    If oParameter.DrivenBy.count <> 0 Then
        Dim oDrivenByParameter As Parameter
        For Each oDrivenByParameter In oParameter.DrivenBy
            If InStr(oDrivenByParameter.Name, PrefixStr) = 0 Then
                oGeneralDimension.Delete
            End If
        Next
	Else
        If InStr(oParameter.Name, PrefixStr) = 0 Then
            oGeneralDimension.Delete
        End If
    End If
Next