Kreis in Linien umwandeln/aufteilen (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	Autodesk Inventor: Rohre und Leitungen, ein Seminar am 03.04.2025 Events abonnieren
Autor	Thema: Kreis in Linien umwandeln/aufteilen (481 mal gelesen)
dabie Mitglied Beiträge: 19 Registriert: 26.05.2004 AutoCad 2012	erstellt am: 17. Jun. 2004 12:44 <-- editieren / zitieren --> Unities abgeben: Hallo Zusammen! hat einer von euch ein Tool oder Trick, wie ein Kreis in Linie aufgeteilt werden kann, wobei die Linie so lang bleibt wie der Umfang des Kreises. Danke für eure Hilfe! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd P Ehrenmitglied V.I.P. h.c. cook-general Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365	erstellt am: 17. Jun. 2004 13:02 <-- editieren / zitieren --> Unities abgeben: Nur für dabie bei die Linie so lang bleibt wie der Umfang des Kreises. Dann würdes du aber nur einen langen "Strich" bekommen Kenn sowas ähnliches http://ww3.cad.de/foren/ubb/Forum54/HTML/001671.shtml kuckst du hier ------------------ Same shit, different DAU. DAU Jones schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADwiesel Moderator CAD4FM UG Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich	erstellt am: 17. Jun. 2004 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für dabie (defun c:kr2l ( / k elem) (prompt "\nKreis wählen: ") (if (setq k(ssget "_:S" '((0 . "CIRCLE")))) (progn (setq elem(entget (ssname k 0))) (entmake (LIST '(0 . "LINE") (assoc 8 elem) (assoc 10 elem) (cons 11 (polar (cdr(assoc 10 elem))0 (* Pi (* 2(cdr(assoc 40 elem)))))) ) ;_ ende von LIST ) ) ) ) ------------------ Gruß CADwiesel Besucht uns im CHAT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
dabie Mitglied Beiträge: 19 Registriert: 26.05.2004 AutoCad 2012	erstellt am: 17. Jun. 2004 14:06 <-- editieren / zitieren --> Unities abgeben: Super!!! Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools	erstellt am: 19. Jun. 2004 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für dabie Hallo Dabie, vielleicht sind auch die 2 Routinen von meiner Seite für diech interessant. Zu finden unter Hilfe->Download->Prog [11] und Prog[33]. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann* man's hat!* Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
mapcar Mitglied CADmin Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)	erstellt am: 20. Jun. 2004 14:14 <-- editieren / zitieren --> Unities abgeben: Nur für dabie Du möchtest einen Kreis abwickeln? Das geht auch ohne Lisp - also mit Acad-Bordmitteln: Code: Befehl: kreis Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente Radius)]: 0,0 Radius für Kreis angeben oder [Durchmesser] <25.0000>: 1 Befehl: linie Ersten Punkt angeben: _qua von ;;; QUA einschalten und Südpol wählen Nächsten Punkt angeben oder [Zurück]: 'cal Startet...>> Ausdruck: *@+[rad2pi,,]* >> Kreis, Bogen oder Polyliniensegment für die Funktion RAD auswählen: ;;; Kreis irgendwo anklicken (6.28319 -1.0 0.0) Nächsten Punkt angeben oder [Zurück]: Das Ganze kann man sich schön als Makro ablegen. Gruß, Axel ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze Meine Überzeugung... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Grebe Mitglied Beiträge: 536 Registriert: 16.12.2002 LT-2021, Civil3D-2021, BricsCAD V18 HP-DesignJet T1200	erstellt am: 21. Jun. 2004 10:32 <-- editieren / zitieren --> Unities abgeben: Nur für dabie Wenn ich das richtig sehe, scheint es den cal-Befehl in LT nicht zu geben - oder weiss einer was anderes ? Mathias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)