---

Hi.
Kann man einfache Linien die zusammenhängen in eine Linie umwandeln, ohne sie in eine Polylinie zu wandeln?
Gruß
Charly

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

suche im Forum oder über google HEILEN ! (heilen.lsp = Lisptool)

------------------
- Sebastian -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1. Linien hängen nicht zusammen  - sie haben max. Endpunkte gemeinsam
2. wenn alle Linien auf einer Gerade liegen und sie die entsprechenden gemeinsamen Endpunkte habe, könnte man sie per Prog zu einer "verschmelzen"

.. in dem Bewußtsein, dir konkret nicht weitergeholfen zu haben

------------------
- Thomas -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmmm, vielleicht hilft dir dieses Lisp:

Code:

---

(defun c:POLYJOIN (/ en ed ln s1 s2)
  (terpri)
  (lisp_set)
  (setq undoit t)
  (princ "\nObjekte zum Verbinden auswählen: ")
  (setq s1 (ssget '((-4 . "<OR")
    (0 . "LINE")
    (0 . "LWPOLYLINE")
    (0 . "POLYLINE")
    (0 . "ARC")
    (-4 . "OR>")
  )
  )
  )
  (while s1
    (setq en (ssname s1 0)
  ed (entget en)
  ln (CDR (assoc 0 ed))
    ) ;end setq
    (if (or (= ln "POLYLINE") (= ln "LWPOLYLINE"))
      (command "._pedit" en "_join" s1 "" "x")
      (command "._pedit" en "_yes" "_join" s1 "" "x")
    )
    (setq s1 (ssget "_p"))
  ) ;end while
  (lisp_unset)
  (princ)
)

;******** Embedded Functions ********

; -- error handling --
(defun my_error (s)
  (if
    (not
      (member s
      '("Funktionsabbruch !")
      )
    )
    (princ (strcat "\nFunktionsfehler: " s))
  )
  (lisp_unset)
) ;end defun my_error

; -- begin clean --
(defun lisp_set ()
  (if (or (wcmatch (getvar "ACADVER") "13*")
  (wcmatch (getvar "ACADVER") "14*")
      )
    (command "_.undo" "_begin")
    (command "_.undo" "_group")
  ) ; end if
  (setq sysvars
(mapcar '(lambda (a b)
    (setq var (getvar a))
    (setvar a b)
    (list a var)
  )
'("cmdecho")
'(0)
)
  )
  (setq old_error *error*
*error* my_error
  )
) ;end defun lisp_set

; -- finish clean --
(defun lisp_unset ()
  (if sysvars
    (foreach var sysvars
      (apply 'setvar var)
    )
  )
  (if old_error
    (setq *error* old_error)
  )
  (if dcl_file
    (unload_dialog dcl_file)
  )
  (command "_.undo" "_end")
  (setq my_error nil
old_error nil
sysvars nil
  )
) ;end defun lisp_unset

---

einfach mehrere Linien markieren oder einzelne Linien hintereinander.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke euch.
Aber ich möchte keine Polylinien haben!
Es sollen einfache Linien bleiben!
Bei euren Vorschlägen wandeln sich meine Linien in Polylinien um.
Ansonsten klappt's.
Gruß
charly

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Charlie,

vielleicht hilft dir eine Gruppierung der Linien weiter? Sind einzelne Linien, die aber eben doch zusammenhängen?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In den Expresstools gibt es den Befehl OVERKILL.
Overkill heilt Linien und bereinigt Polylinien.

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP