ScoRm Posted January 22, 2020 Share Posted January 22, 2020 (edited) 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 Quote Link to comment Share on other sites More sharing options...
rlx Posted January 22, 2020 Share Posted January 22, 2020 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 Quote Link to comment Share on other sites More sharing options...
ronjonp Posted January 22, 2020 Share Posted January 22, 2020 (edited) You can also use the REGION then UNION command .. but Lee's outline code is easier :). Edited January 22, 2020 by ronjonp 1 Quote Link to comment Share on other sites More sharing options...
rlx Posted January 22, 2020 Share Posted January 22, 2020 don't think i've ever used region / union but always good to know thanx for the tip ronjonp Quote Link to comment Share on other sites More sharing options...
ronjonp Posted January 22, 2020 Share Posted January 22, 2020 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! Quote Link to comment Share on other sites More sharing options...
BIGAL Posted January 23, 2020 Share Posted January 23, 2020 rlx that will fix the odd 1 left over problem as its corner will still be correct. As per image posted. Quote Link to comment Share on other sites More sharing options...
ScoRm Posted January 23, 2020 Author Share Posted January 23, 2020 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... Quote Link to comment Share on other sites More sharing options...
rlx Posted January 23, 2020 Share Posted January 23, 2020 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)) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.