| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Multilinie in Polylinie verwandeln (921 mal gelesen)
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 09:36 <-- editieren / zitieren --> Unities abgeben:
Hallo, eine kurze Frage hätte ich mal, gibt es eigentlich in AutoCad die Möglichkeit aus einer Multilinie (Wand) eine Polylinie zumachen, ich probiere mich gerade mal ein bischen mit dem 3D zeichnen auseinander zu setzen. Wollte nämlich Extrusion an Multilinie durchführen, geht leider nicht. Viele Grüße IBS BOH
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADdog Ehrenmitglied V.I.P. h.c.
Beiträge: 2280 Registriert: 30.04.2004 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 26. Okt. 2004 09:43 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
Hallo, Suchfunktion? sprengen und einzelne Linien mit pedit/mpedit in PL umwandeln? ------------------ gruß CADdog, the dog formerly known as TR AutoCAD spricht mit einem, aber viele hören nicht zu. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 26. Okt. 2004 09:43 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
sollte per Prog gehen ( ist aber Aufwand ). probiers doch erstmal mit _explode und mpedit ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 09:46 <-- editieren / zitieren --> Unities abgeben:
Ja, diese Möglichkeit kannte ich, gibt es nicht einen Befehl der dieses direkt macht, ohne Ursprung vorher? Oder wie zeichnet ihr am schnellsten Wände um diese in 3D dann zu erstellen, Polylinie dauert halt länger vom Zeichnen her wie das Zeichnen einer Multlinie. Trotzdem Dank im Voraus, IBS BOH Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADdog Ehrenmitglied V.I.P. h.c.
Beiträge: 2280 Registriert: 30.04.2004 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 26. Okt. 2004 09:59 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
naja, 3D-Architektur mit purem ACAD ... Letztendlich könntest du deine Wände sogar mit _box zeichnen, da ersparst du dir sogar noch extrudieren und hast gleich ordentliche Volumenkörper. ------------------ gruß CADdog, the dog formerly known as TR AutoCAD spricht mit einem, aber viele hören nicht zu. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Okt. 2004 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
Hallo, probier doch mal folgendes LISP aus: Es werden nur die Stützpunkte (code 11) ausgelesen und damit wiederum eine Polylinie erstellt. Ist wieder nur auf die Schnelle => ERgebnisse prüfen (defun c:ml-pl ( / aws koord) (setq aws (entsel "\nBitte Multilinie auswählen:")) (if aws (if (=(cdr(assoc 0(entget(car aws))))"MLINE") (progn (mapcar '(lambda (A) (if (=(car A)11)(setq koord(append koord (list (cdr A))))) )(entget (car aws))) (entmake (list(cons 0 "POLYLINE") (cons 8 (getvar "CLAYER")) (cons 66 1) )) (mapcar '(lambda (A) (entmake (list (cons 0 "VERTEX") (cons 10 A))) ) koord) (entmake '((0 . "SEQEND")))) (alert "Das war keine Multilinie")) (alert "Es wurde nichts ausgewählt")) (princ))
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 10:20 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank Jörn, aber das Lisp funktioniert leider nicht richtig, an der Polylinie fehlt eine Seite (Multilinie war geschlossen) und es ist wirklich nur die Linie mit den Stützpunkten in eine Polylinie verwandelt worden (Kopiert worden) Trotzdem Danke. IBS BOH Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Okt. 2004 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 10:34 <-- editieren / zitieren --> Unities abgeben:
|
CADdog Ehrenmitglied V.I.P. h.c.
Beiträge: 2280 Registriert: 30.04.2004 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 26. Okt. 2004 10:44 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
Hallo, nun lass mich mal zusammenfasssen: 1. du zeichnest eine Multilinie 2. du wandelst diese mit diesem tool in eine Polylinie um 3. du schließt die Polylinie 3. du schaust nach, wie deine Multilinie definiert war und versetzt die erhaltene Polylinie entsprechend und das ist eine gute Idee? ------------------ gruß CADdog, the dog formerly known as TR AutoCAD spricht mit einem, aber viele hören nicht zu. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 26. Okt. 2004 10:55 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
@Caddog .. find ich auch seltsam ... ansonsten .. die Schritte des 1.Postings mal zusammengefasst: (defun c:ml2pl( / AUSWAHL OBJEKT OBJDATA OLDCMD LASTOBJ) (if(and(or(setq AUSWAHL (ssget "I" '((0 . "MLINE")))) (setq AUSWAHL (ssget '((0 . "MLINE")))) ) (setq OBJEKT(ssname AUSWAHL 0)) ) (progn (setq OLDCMD(getvar"cmdecho")) (setq LASTOBJ (entlast)) (command "_explode" OBJEKT) (setq AUSWAHL(ssadd)) (setq OBJEKT (entnext LASTOBJ)) (setq FIRST OBJEKT) (while OBJEKT (setq AUSWAHL (ssadd OBJEKT AUSWAHL)) (setq OBJEKT (entnext OBJEKT)) ) (command "_pedit" "_m" AUSWAHL "" "_y" "_j" 0 "_c" "") (setvar"cmdecho" OLDCMD) ) ) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003
|
erstellt am: 26. Okt. 2004 11:18 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
Zitat: Original erstellt von IBS BOH: ... Oder wie zeichnet ihr am schnellsten Wände um diese in 3D dann zu erstellen, Polylinie dauert halt länger vom Zeichnen her wie das Zeichnen einer Multlinie. ...IBS BOH
Hallo, wie wäre es mit dem Makro DLINE.LSP. Damit kann man Doppellinien und Doppelbögen wie in den LT-Versionen zeichnen. Der Dialog ist dem Befehl PLINIE nachempfunden. Habe die Datei als DLINE.txt angehängt (also in DLINE.LSP umbenennen).
------------------ Gruß Peter (HERDT-Verlag) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 12:00 <-- editieren / zitieren --> Unities abgeben:
@CADdog Dieser weg mag umständlicher sein wie z.b. _box, jedoch hab ich leider noch nicht genug Übung in 3D (blutiger Anfänger), um diese Quader so zuverbinden, daß sie an den Ecken einen rechten Winkel ergeben. @Cadmium Ich muß gestehen, dein Tool ist eindeutig besser, nur wird jede einzelne Polylinie geschlossen, dann muß ich diese vorher öffnen und neu verbinden. @Peter Ich werde es mal ausprobieren. Danke schon mal für eure Geduld, sorry, aber jeder hat ja bekanntlich mal klein angefangen. lg Kerstin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 26. Okt. 2004 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
dann ersetze diese Zeile : (command "_pedit" "_m" AUSWAHL "" "_y" "_j" 0 "_c" "") durch diese : (command "_pedit" "_m" AUSWAHL "" "_y" "_j" 0 "") ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 12:58 <-- editieren / zitieren --> Unities abgeben:
@Cadmium Vielen Dank, das funktioniert besser. So langsam kommt auch die Übung mit 3D. @Peter Sorry, da ich mich nicht so sehr mit Lisp auskenne,(weiß nur wie man diese Lädt und einfügt) welchen Teil muß ich denn von deiner Datei einfügen? Etwa alles? Das erscheint mir so lang. lg Kerstin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003
|
erstellt am: 26. Okt. 2004 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 13:39 <-- editieren / zitieren --> Unities abgeben:
@Peter Habs gerade ausprobiert, vielen Dank für das Tool, funktioniert auch sehr gut, muß nur nachher noch die Linien über pverbind verbinden. @all So, dann werd ich mal weiter rumprobieren mit 3D, Danke für die Vielen Tipps! :-) lg Kerstin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003
|
erstellt am: 26. Okt. 2004 13:51 <-- editieren / zitieren --> Unities abgeben: Nur für IBS BOH
Hallo Kerstin, noch ein Tipp: Du kannst mit dem Befehl UMGRENZUNG /_BOUNDARY (Alias UM) automatisch Polylinien oder Regionen erzeugen lassen (beides lässt sich extrudieren). Funktioniert wie das Schraffieren mit GSCHRAFF /_BHATCH. Vorher einen anderen Layer aktuell setzen. DELOBJ steuert dabei, ob die Ausgangsobjekte gelöscht werden.
------------------ Gruß Peter (HERDT-Verlag) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 26. Okt. 2004 14:15 <-- editieren / zitieren --> Unities abgeben:
|