How can I hold dimensions on a variable and use that??

[hoja]

HI, I'm trying to hold the value of any dimensions on model space and "add them together"...how could I do that?
This is the code that I have...but it's not doing anything but counting the objects on my screen and printing them on my text box. With this code I was trying to see if I could at least print out the number of dimensions that I have selected on the screen!But I can't get it. Thank you

Private Sub cmdSelect_Click()
'Dim DimHold As AcadDimension
Dim SqTotal
SqTotal = ThisDrawing.ModelSpace.Count
txtDimension.Text = SqTotal
End Sub

 

[CadDesigner]

I am missing a few lines in your code.

1) First make a selection set
2) Select your dimensions interactive (or all)
3) Filter out only the dimensions
4) Get of each dimension the value-parameter
5) Add the values together.

Have fun!
Paul