Points
You didn't include something showing how you want things to be after "thinning out." I hope you don't want to Move the Text objects [not Points], since they represent information about a specific location [which I assume is the Text's insertion point], and it can't be good to put them at different locations -- if you do, what is their purpose? Are you looking for something like a Line or Leader from the true location to a re-positioned Text object about that location?
If I understand you well, you would like to retain all point objects in a drawing, and separate overlapping elevation text in a layer that can be hidden if needed. Although I don't like sharing my work on this forum because at more then often some else collects all the fame (i.e likes and final solution). Haven't been posting posting on this forum almost a year.
This lisp works only with text objects that have defined text style and assumes that all text objext are in layer 0.
a) Put all text in a layer 0. After you envoke "overlap" function for a first time it seeks for layers "to_hold" and "to_hide". If they dont exist in a drawing, it creates them.
b) By repetitive calls to command "overlap" (just keep enter key pressed) it looks for overlapping text and separates them in those to layers. You will see how text object change its color to red and green.
If you want to retain you layer structure in separate file perform the action for each layer and rename resulting layers respectively. Copy all text object from that layer in a new empty drawing and perform action for each layer.
If original layers name is i.e drainage you may rename resulting layers to drainage_hold and drainage_hide or what ever you like.
I have written this tool in a hury many years ago, never had a time to polish it to perfection. It is not perfect but it served me well in many occasions. I am posting a lisp file and your file with separated overlaping text. If after first sesion you find overlaping text, transfer all text in layer "to_hold" to layer 0 and repeat the action, or do it by hand.
(defun new_layer (name color) ;
(if (= (tblsearch "layer" name) nil)
(command "._layer" "_n" name "_c" color name "")
(command "._layer" "_t" name "_on" name "_c" color name ""))
)
(defun c:overlap ( / );*error* ss len del tlist tb ang p1 en en_len en_pts _l j k m clip_ss cen
(defun *error* () (princ))
(setvar "cmdecho" 0)
(new_layer "to_hold" 3)
(new_layer "to_hide" 1)
(setq ss (ssget "X" '((0 . "text") (8 . "0")))
del 1.0 _del (* -1.0 del) i 0)
(repeat (sslength ss)
(setq e (ssname ss i)
en (entget e)
tb (textbox en)
ang_rad (cdr(assoc 50 en))
p1 (cdr(assoc 10 en ))
dx (car p1) dy (cadr p1)
x_list (list _del (+ (caadr tb) del) (+ (caadr tb) del) _del _del)
y_list (list _del _del (+ (cadadr tb) del) (+ (cadadr tb) del) _del)
_cos (cos ang_rad)
_sin (sin ang_rad)
cos_list (list _cos _cos _cos _cos _cos)
sin_list (list _sin _sin _sin _sin _sin)
-cos_list (mapcar '* (list -1 -1 -1 -1 -1) (list _cos _cos _cos _cos _cos))
-sin_list (mapcar '* (list -1 -1 -1 -1 -1) (list _sin _sin _sin _sin _sin))
dx_list (list dx dx dx dx dx)
dy_list (list dy dy dy dy dy)
x_cos (mapcar '* x_list cos_list)
y_cos (mapcar '* y_list cos_list)
-x_cos (mapcar '* x_list -cos_list)
-y_cos (mapcar '* y_list -cos_list)
x_sin (mapcar '* x_list sin_list)
y_sin (mapcar '* y_list sin_list)
-x_sin (mapcar '* x_list -sin_list)
-y_sin (mapcar '* y_list -sin_list)
_x (mapcar '+ x_cos -y_sin)
_y (mapcar '+ y_cos x_sin)
_x (mapcar '+ _x dx_list)
_y (mapcar '+ _y dy_list)
en_pts (mapcar 'list _x _y)
j 0
clip_ss (ssget "_CP" en_pts '((0 . "TEXT")))
k (sslength clip_ss)
m 1
zad (entget (ssname clip_ss 0))
zad (subst (cons 8 "to_hold") (assoc 8 zad) zad)
zad (entmod zad)
)
(repeat k
(setq cen (entget (ssname clip_ss m))
cen (subst (cons 8 "to_hide") (assoc 8 cen) cen)
cen (entmod cen)
m(+ m 1)
)
)
(setq i (+ i 1))
)
(setvar "cmdecho" 1)
)In attachment is your file after cleanup.
I hope ithis works for you. If it works you should proclame it "final solution".
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
And here is my solution written in a more readable way
(defun new_layer (name color)
(if (= (tblsearch "layer" name) nil)
(command "._layer" "_n" name "_c" color name "")
(command "._layer" "_t" name "_on" name "_c" color name "")))
(defun keyValue (key el)(cdr (assoc key el)))
(defun tbox (e / ent rb elst p rot width textheight a b c d )
(setq ent (entget e))
(setq tb (textbox ent)
elst (list
(cons "p1" (keyValue 10 ent))
(cons "textheight" (keyValue 40 ent))
(cons "rot" (keyValue 50 ent))
(cons "width" (caadr tb))
)
)
(setq p (keyValue "p1" elst) p2 (keyValue "p2" elst)
rot (keyValue "rot" elst)
width (keyValue "width" elst)
textheight (keyValue "textheight" elst)
a p b (polar p rot width) c (polar b (+ rot (* pi 0.5)) textheight) d (polar c (+ rot pi) width))
(list a b c d a)
)
(defun c:overlap ( / *error* i ss en_pts clip_ss k m zad cen);
(defun *error* () (princ))
(setvar "cmdecho" 0)
(new_layer "to_hold" 3)
(new_layer "to_hide" 1)
(setq i 0)
(repeat (sslength (setq ss (ssget "X" '((0 . "text") (8 . "0")))) )
(setq en_pts (tbox (ssname ss i))
clip_ss (ssget "_CP" en_pts '((0 . "TEXT")))
k (sslength clip_ss)
m 1
zad (entget (ssname clip_ss 0))
zad (subst (cons 8 "to_hold") (assoc 8 zad) zad)
zad (entmod zad)
)
(repeat k
(setq cen (entget (ssname clip_ss m))
cen (subst (cons 8 "to_hide") (assoc 8 cen) cen)
cen (entmod cen)
m(+ m 1)
)
)
(setq i (+ i 1))
)
(setvar "cmdecho" 1)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@john.uhden wrote:Are your points actually insertions of a "POINT" block with attributes for elevation and maybe even # and description?....................
@Oliver_C3D has posted his sample file, so open it to get a clearer picture about what he asks for help.
In his sample he doesn't use blocks with attributes but separate point and text (simplest but best option if you ask me). Obviously he needs to clean up his drawing for printing, but also to simplify his work. All those points and text are useful mainly just to recreate contours.
Rescaling text or block with attributes is not an feasible option in case of printing.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Many times I had to repair drawings because surveyor didn't prepare drawing in 3D, what should be a norm. It is good when at least you have elevation text near a line or a point. When you don't have it, it is all left to your pure imagination.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
I highly respect your opinions as a user who has given enormous contribution to this community. Through the practice we all acquire our experiences, some good, some not so good.
Regarding this topic, the best approach (if using newer version of ACAD) would be to use annotative scale, at least they say so. (https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2019/ENU/AutoC...). This option is sometimes not applicable, i.e. your client or someone in a design process uses older software that doesn't provide this function.
Through my almost 20 years working on project documentation (mining geotechnics, geology, quarrying and surface exploitation of aggregates....) I have used approach shown above, leave points and hide overlapping text and it worked well.
In one of your latest post you told that you use Acad 2004, At work I use ACAD based product (version 2007) that supports autolisp, but doesn't have visual lisp incorporated. In my work I would definitively need some functionality of Civil 3D, but even such limited software has enabled me to create (with autolisp and eventually C) many functions that it offers (terrain sections, contouring, modeling, various drafting automation....).
Combination of ACAD and autolisp ( or some other programming extension) is sometime more than sufficient to tackle complex problems. Does he really need Civil 3D, maybe yes, maybe not.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
