Please let me know what is the problem here. I have done almost the same as what Jon Summers suggested.
Sub myDumVertices() Dim theListOfElements As ElementEnumerator Dim theElement As ShapeElement Dim myVertexList() As Point3d Dim myScanCriteria As…