remove all lines inside multiple LINES

[ScoRm]

ok, the title is kinda stupid... but let me explain what i need

i have multiple DGW files containing boxes of 3dpolylines like this

those are individual boxes, and i need it to look like this...

what i do here is EXPLODE them so the 3dpoly becomes lines, and therefore easier to select and manually delete everything inside.

and after that i join them all so they will become a single polylines

thats pretty much it! but i have a consern...

 

what about the ones that meet on the center.

well i just move them before i join themall together like this

see? its a single polyline... and here is what my consern looks like up close..

as you can see i just move them so they dont touch each other...

 

is there a way or a lisp routine that could help me do this?

Edited January 22, 2020 by ScoRm

[rlx]

think you can do something with the boundary option from the hatch command or maybe even http://www.lee-mac.com/outlineobjects.html

 

Believe something has been asked before on this forum but you'll have to search for something like outline or boundary

[ronjonp]

You can also use the REGION then UNION command .. but Lee's outline code is easier :).

 

Edited January 22, 2020 by ronjonp

[rlx]

don't think i've ever used region / union but always good to know thanx for the tip ronjonp

[ronjonp]

3 minutes ago, rlx said:

don't think i've ever used region / union but always good to know thanx for the tip ronjonp

Glad to help! 

[BIGAL]

rlx that will fix the odd 1 left over problem as its corner will still be correct. As per image posted.

[ScoRm]

15 hours ago, rlx said:

think you can do something with the boundary option from the hatch command or maybe even http://www.lee-mac.com/outlineobjects.html

 

Believe something has been asked before on this forum but you'll have to search for something like outline or boundary

i did try leemac's, it does outline the outer lines, but it removes the elevation; it becomes elevation 0

but thanks for the tip. I will try to figure it out...

[rlx]

not sure if this will work but replace original c:outline with this one

(defun c:outline ( / *error* idx sel elev)(vl-load-com)
  (defun *error* ( msg ) (LM:endundo (LM:acdoc)) (if (not (wcmatch (strcase msg t)
     "*break,*cancel*,*exit*")) (princ (strcat "\nError: " msg)))(princ))
  (if (setq sel (ssget)) (progn (setq elev (vla-get-elevation (vlax-ename->vla-object (ssname sel 0))))
    (LM:startundo (LM:acdoc))(LM:outline sel)(initget "Yes No")
     (if (/= "No" (getkword "\nErase original objects? [Yes/No] <Yes>: "))(repeat
      (setq idx (sslength sel))(entdel (ssname sel (setq idx (1- idx))))))(LM:endundo (LM:acdoc)))
  )
  (vl-catch-all-apply 'vla-put-elevation (list (vlax-ename->vla-object (entlast)) elev))
)