creating multiple layers for concentric circles or enclosed/nested polylines
That would not be difficult for any selection of Circles, sorting them by radius. And for other shapes such as closed Polylines, sorting by area. But should checking for "nestedness" or "concentricity" be part of the operation? Or would you control for that in selection?
Thank you for the replies. I've included a picture that is more realistic example of what would be encountered, with each number being the layer that I would like to assign each object to. As you can see, the area or size of each circle/polyline is not necessarily indicative of the layer that it will be assigned to.
1) the picture here shows the layers as different colors (DWG attached too) after converting all from same layer (e.g. layer 0)
2) the number of objects and degree of nesting in the drawing will be very large (e.g. 100-1000's objects, assume at least 5-10 layers), hence the need to do this is in an automated manner.
So that answers my question -- "nestedness" is critical. Things can't just be sorted by size/area/radius/etc., but it needs to be determined somehow which objects are inside which other objects, and when it's found that A is inside B, whether B is also inside something else [other than just the outermost perimeter object], and, if A is your green shape and B is your blue Circle, whether there might also be C [your red rectangle] in between, that A is inside but that is itself also inside B, and whether.... That looks like a really serious challenge, if it's even possible, but I wouldn't assume it can't be done [yet].
HI
its possible but long story ,
this is very raw idea , i need to see the real file and check all possibilities
if there is no intersection between the shapes , ( i hope)
see picture , the lisp starts here
1=> layer 0 --the object (white shape) which have all shapes inside (the white shape will be hide for next step)
2=> layer 1 --the object/s(blue shapes) which have, has, has not shape/s inside ( the blue shapes will be hide for next)
3=> layer 2 --the object/s (red shapes) which have, has, has not shape/s inside ( the red shapes will be hide for next)
4=> layer 3 --the object/s (green shapes) which have, has, has not shape/s inside ( the green shapes will be hide for next)
.
.
.
n=> layer n--the object/s which have, has, has not shape/s inside ( the object/s will be hide for next)
ends if no object remain
its like surface countering (topography in civil 3d ,for each elevation you can assign different color )
Maybe this, only plines at this stage. Needs more but a long way there. Only tested on a few plines up to x deep. Very rough sure can be done better.
(setq y 1 z 0)
(setq ss (ssget "x" (list (cons 0 "LWPOLYLINE")(cons 410 (getvar 'ctab) ))))
(princ (strcat "\nlen " (rtos (sslength ss) 2 0)))
(while (> (sslength ss) 0)
(setq lst2 '())
(repeat (setq x (sslength ss))
(setq ent (ssname ss (setq x (- x 1))))
(setq ename (cdr (assoc -1 (entget ent))))
(setq lst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))))
(setq lst (cons (last lst) lst))
(setq ss2 (ssget "WP" lst '((0 . "LWPOLYLINE"))))
(if (= ss2 nil)
(setq lst2 (cons (list ename 0) lst2))
(setq lst2 (cons (list ename (sslength ss2)) lst2))
)
)
(foreach val lst2
(if (= (nth 1 val) (- y 1))
(progn
(entmod (subst (cons 8 (rtos Y 2 0)) (assoc 8 (entget (nth 0 val))) (entget (nth 0 val))))
(entmod (subst (cons 62 (rtos Y 2 0)) (assoc 62 (entget (nth 0 val))) (entget (nth 0 val))))
(setq ss (ssdel (cdr (assoc -1 (entget (nth 0 val)))) ss))
(princ (strcat "\nlen " (rtos (sslength ss) 2 0)))
)
)
)
(setq y (1+ y))
)
Need real dwg.
