Juan Villarreal brings us a nice routine that will help AutoCAD users working in the civil/survey fields. Juan sometimes deals with contour maps where the contours are polylines at elevation zero. He wrote this routine to elevate the polylines based on the associated elevation text label. The routine searches for elevation labels (they can be text or mtext objects) and as each one is encountered, a selection is attempted using a starting distance/radius, increment, and max distance/radius. If the initial selection attempt fails, the distance/radius is increased and the selection is reattempted until either a polyline is selected or the maximum distance/radius is reached. Once the associated polyline is found, its elevation is made to match the found elevation label. Start by loading the LISP file, then run the command AEV. The routine operates on all text and mtext objects in the drawing, so you will probably want your drawing to only include polylines and elevation labels. |