;;------------------------------------------------------------------
;; Tool für das Verbinden von Linien - Nutzung etc. - BEGINN
;;------------------------------------------------------------------

;;(ConnectLines2Pline "021_0241" 0.6)

(defun ConnectLines2Pline (;;Layer mit der zuverbinden ist
				  ConnectLines2Pline#Layer
				  ;;FuzzyFaktor für PEdit-Verbinden
				  ConnectLines2Pline#Fuzzy
				  /
				  aws#line
				  )

  ;;Layer für die Bearbeitung freigaben
  (EDBS_Layer4Work ConnectLines2Pline#Layer)

  (princ "\nLayer => ")
  (princ ConnectLines2Pline#Layer)

  (setq
    aws#line
     (ssget "X"
	    (list
	      (cons -4 "<and")
	      (cons 0 "LINE")
	      (cons 8 ConnectLines2Pline#Layer)
	      (cons -4 "AND>")
	      )
	    )				;end-ssget
    )					;end-setq

  (if aws#line
    (progn
      (princ "\nAnzahl Linien: ")
      (princ (sslength aws#line))
      (princ
	"\ndieser Vorgang kann bis zu einigen MINUTEN dauern !!!"
	)
      ;;Polylinien vorhanden
      (command "_.pedit"	"o"		 aws#line
	       ""		"_y"		 "_join"
	       "v"		"b"
	       ConnectLines2Pline#Fuzzy	 ""
	       )
      )					;end-progn
    (princ "\n=> keine Linien-Elemente gefunden !")
    )					;endif 

  )					;end-defun - ConnectBewErdwallPline_Do