Join all lines in a drawing

[elaurier]

I'm working on converting drawings made with Autocad MEP to simple Autocad drawing. To do so, I make sections of the needed view, and explode them to a new Autocad drawing. The section tool is basicaly creating a huge number of line to render the 3D views in 2D. Don't know if that's really clear, but anyway.

I am trying to join all the colinear line created by the section view tool. I'm not to good with programming, but is there a way that I could all the joignable line easily?

The way I see it, I could create a LISP that selects every line one after another, and then on each of them individually, have the join command and select all the lines in the drawing applied that would work...might take a very long time though...

Any ideas?

[Opie]

If the lines overlap, the overkill Express Tool can combine them together. It might also work with the co-linear lines aligned end to end.

[elaurier]

That does not seem to work so well unfortunatly...

[Tom Beauford]

Try this:

 ;;; PLJOIN.LSP 2009+ Version
;;; Joins lines, arcs and polylines
;;; If only one object is selected it joins to all conected objects
;;; By Tom Beauford
;;; Macro   ^C^C^P(or C:pljoin (load "pljoin.lsp"));pljoin 
(defun c:pljoin (/ cmdecho peditaccept ss addss)
  (setq cmdecho (getvar "cmdecho")
        peditaccept (getvar "peditaccept")
  )
  (setvar "cmdecho" 0)
  (setvar "peditaccept" 1)
  (princ "\nSelect object to join: ")
  (setq ss (ssget '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE"))))
  (if (/= ss nil)
      (progn
 (if (= (sslength ss) 1)
          (progn
            (sssetfirst nil ss)
            (command "_.pedit" "_J" (ssget "X" '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE"))) "" "")
          )
          (command "_.pedit" "_M" ss "" "_J" "0.0" "")
 )
      )
  )
  (setvar "cmdecho" cmdecho)
  (setvar "peditaccept" peditaccept)
  (princ)
)
; Original Macro: ^C^C^P(ssget);pedit;m;p;;j;0.0;;

[ccowgill]

That does not seem to work so well unfortunatly...

overkill works much better if you run set peditaccept to 0 before your run it.

[Mike Y]

;;; "Join Plines and Lines." This short
;;; routine joins multiple polylines and lines together as one, provided
;;; that the end points are at the same X,Y,Z coordinates.

(defun C:PEE (/ SSET1)
(princ "\nSelect lines to be joined. ")
(if (setq SSET1 (ssget))
(if (or
(="POLYLINE" (cdr (assoc 0 (entget (ssname SSET1 0)))))
(="LWPOLYLINE" (cdr (assoc 0 (entget (ssname SSET1 0)))))
);;close or
(command "PEDIT" SSET1 "J" SSET1 "" "X")
(command "PEDIT" SSET1 "Y" "J" SSET1 "" "X");;inside if's else
);;close inside if
(princ "\nNothing selected. ")
);;close outside if
(princ)
) ;end PEE.lsp

[Mamma Jamma]

How about Pedit/Multiple/all/Join? What it can join together, it will. You can set the fuzz distance to whatever seems reasonable (or 0, of course).

[irneb]

I'd agree with Mamma Jamma and Opie.

If you want polylines, the PEdit's already got a feature for joining lines, arcs and other polylines together - including using a "fuzzy" distance (no need to have endpoints exactly on each other).

If you want lines overlapping & co-linear to become single lines the Express Tool's Delete Duplicates (or command OverKill) can do that - just set its fuzzy factor high enough if the lines aren't exactly on each other.

In both instances the PEditAccept has reference as CCowGill's stated, but it may cause OverKill to fail - if there's any polylines selected. For PEdit it removes some of the prompts.