I want to calculate total length (sum of all individual demission of lines) of lines present in current layer in AutoCAD using VBA.