Originally Posted by
majou789377
Hi all and thanks for stopping by
I am looking for some help in writing a lisp to automate a daily task that takes a big time and effort.
as a daily practice, I receive a survey DWG file from the surveyor of an archaeology project, however, the survey drawing consists of separate points that have an ID, elevation, and coordinates text.
my work flow consists from the following:
1 first I turn off the coordinates layer because I do not need this info
2 I select all text elements in drawing and run Scaletext command and set the value to 0.004
3 I edit the "point" block by actually drawing the point and deleting the two perpendicular lines in the block
4 then I save the edits and select all the same block by running QS command, then I explode them.
5 later to that I go for one point, select the point ID text and copy it
6 then I go into QS, choose text, and put the parameter to wildcard match, input the copied point ID text into the field and add an "*" at the end
7 then I go into the drawing and select manually the point element and the elevation text related to the selection made in the previous step
8 by that I have selected all the points, point ID text, and elevation text which are all related to one feature\element surveyed.
9 now I make a new layer and name it with the text copied in step 5
10 and put all the selected elements in step 8 on that layer, I turn it off and lock it
11 then I repeat all the above steps for the remaining features\elements
now I have finished the "sorting" part.
then I turn on all layers and unlock them. then I go into each layer, isolate it, and connect the points by drawing a line between each two points
for this part I found online a LISP that automatically draw lines between points based on their name depending it have sequence (which it have)
is it possible to automate the whole work flow described above?? or is there any easier more time-saving method to deal with this??
thank you, and looking forward to hearing your thoughts