VB.Net - How do I find 3d Linear Dimensions on a drawing

VB.Net - How do I find 3d Linear Dimensions on a drawing

Anonymous
Not applicable
912 Views
3 Replies
Message 1 of 4

VB.Net - How do I find 3d Linear Dimensions on a drawing

Anonymous
Not applicable

Hi,

 

I would like to know how I can find a dimension that's created with the command (with the internal command name) "Create3DLinearDimension".

This command is used to create a linear dimension on a view that has the default dimension type set to "True".

 

Thanks.

0 Likes
Accepted solutions (1)
913 Views
3 Replies
Replies (3)
Message 2 of 4

philippe.leefsma
Alumni
Alumni
Accepted solution

Hi,

 

Drawings are 2d and I do not see a command with internal name "Create3DLinearDimension" when iterating through the collection of all available commands, so I don't know which object you are talking about.

 

You can access a drawing existing dimensions from the "Sheet.DrawingDimensions.GeneralDimensions" property, then check the exact type of each dimension entity.

 

Regards,

Philippe.



Philippe Leefsma
Developer Technical Services
Autodesk Developer Network

0 Likes
Message 3 of 4

Anonymous
Not applicable

Well, as I said, I do get this name when creating a linear dimension on a view with the default dimension type set to "True" in stead of the general "Projected". This happens when a View is placed as "Isometric".

 

Thanks for the tip, i will try to loop trough the "Sheet.DrawingDimensions.GeneralDimensions" properties.

0 Likes
Message 4 of 4

Anonymous
Not applicable

Okey, I used the following code to list the dimensions that were created as "True".

 

            Dim sViews As String = ""
            Dim bFirst As Boolean = True
            For Each oSheet As Sheet In oDoc.Sheets

                If oSheet.DrawingDimensions.GeneralDimensions.Count < 1 Then Continue For

                bFirst = True
                For Each oDim As GeneralDimension In oSheet.DrawingDimensions.GeneralDimensions
                    If oDim.GeneralDimensionType = GeneralDimensionTypeEnum.kTrueGeneralDimension Then
                        If bFirst = True Then 'Add sheet name for first dim
                            sViews += vbCrLf & vbCrLf & "Sheet: " & oSheet.Name
                            bFirst = False
                        End If
                        sViews += vbCrLf & "Dimension: " & oDim.Text.Text
                    End If
                Next
            Next

This works as aspected.

I get a list with the dimensions I created as "True".

 

Thanks for the solution.

0 Likes