Get ExtLinePoints from Dimension

[Anonymous]

Hi I tried to get the ExtLinePoints from a Dimension with the following code but I coudn't find it. Any Idea how I can get it!

Dim objSelSet As AcadSelectionSet
Dim objDim As AcadDimension

Dim pnt As Variant

Set objSelSet = ThisDrawing.SelectionSets.Add("dime")
intType(0) = 0
varData(0) = "DIMENSION"
objSelSet.Select acSelectionSetAll, , , intType, varData
For Each objDim In objSelSet
pnt = objDim.TextPosition

Next

objSelSet.Delete

[adam.nagy]

Hi there,

You should check the exact type of the dimension you get back from the selection.

It could be e.g. AcadDimAligned, which does have ExtLine properties

I hope this helps.

Adam Nagy

Autodesk Developer Network