| |
| 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
Beiträge: 135 Registriert: 06.02.2004
|
erstellt am: 03. Jun. 2004 09:40 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 03. Jun. 2004 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für charly9
|
CADmium Moderator Maschinenbaukonstrukteur
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 / zitieren --> Unities abgeben: Nur für charly9
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
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 03. Jun. 2004 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für charly9
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
Beiträge: 135 Registriert: 06.02.2004
|
erstellt am: 03. Jun. 2004 10:18 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 03. Jun. 2004 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für charly9
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
Beiträge: 482 Registriert: 29.08.2002 AutoCAD 2020(Deu); Windows 10 PRO x64(Deu)
|
erstellt am: 03. Jun. 2004 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für charly9
|