Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  linien verschmelzen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  linien verschmelzen (386 mal gelesen)
charly9
Mitglied



Sehen Sie sich das Profil von charly9 an!   Senden Sie eine Private Message an charly9  Schreiben Sie einen Gästebucheintrag für charly9

Beiträge: 135
Registriert: 06.02.2004

erstellt am: 03. Jun. 2004 09:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 03. Jun. 2004 09:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für charly9 10 Unities + Antwort hilfreich

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

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

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 03. Jun. 2004 09:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für charly9 10 Unities + Antwort hilfreich

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

Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer


Sehen Sie sich das Profil von Proxy an!   Senden Sie eine Private Message an Proxy  Schreiben Sie einen Gästebucheintrag für Proxy

Beiträge: 1629
Registriert: 13.11.2003

Tastaturen, Mäuse,
Pladden, Monitore, ...

erstellt am: 03. Jun. 2004 09:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für charly9 10 Unities + Antwort hilfreich

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

charly9
Mitglied



Sehen Sie sich das Profil von charly9 an!   Senden Sie eine Private Message an charly9  Schreiben Sie einen Gästebucheintrag für charly9

Beiträge: 135
Registriert: 06.02.2004

erstellt am: 03. Jun. 2004 10:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 03. Jun. 2004 10:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für charly9 10 Unities + Antwort hilfreich

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

Bernhard GSD
Mitglied



Sehen Sie sich das Profil von Bernhard GSD an!   Senden Sie eine Private Message an Bernhard GSD  Schreiben Sie einen Gästebucheintrag für Bernhard GSD

Beiträge: 482
Registriert: 29.08.2002

AutoCAD 2020(Deu); Windows 10 PRO x64(Deu)

erstellt am: 03. Jun. 2004 10:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für charly9 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz