| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Effiziente Reinraumlösungen effizienter entwickeln - Ortner Reinraumtechnik GmbH, ein Anwenderbericht
|
Autor
|
Thema: Schließen von Kreisbögen (1894 / mal gelesen)
|
Harry Konstruktion Mitglied
Beiträge: 8 Registriert: 21.09.2005 Aurocad 2017 Fusion 2013 Windows 7
|
erstellt am: 29. Jul. 2016 10:20 <-- editieren / zitieren --> Unities abgeben:
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 29. Jul. 2016 10:26 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
Hy neuzeichnen ... ein schließen gibt es in der Form nicht, du könntest Start und Endwinkel ändern 1 und 0 aber es bleibt ein Bogen ;-)
cu cw PS LISP könnte helfen ------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht [Diese Nachricht wurde von cadwomen am 29. Jul. 2016 editiert.] 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: 29. Jul. 2016 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
|
Kuschelfee Mitglied Bauzeichnerin
Beiträge: 221 Registriert: 07.05.2007 Windows 10 Pro AutoCAD 2024.1 Soficad 2024-1 Advance Steel 2023.1.1
|
erstellt am: 29. Jul. 2016 10:36 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
Das ist so nicht ganz richtig! Seit AutoCAD 2016 gibt es den Verbinden Befehl. Hiermit lässt sich auch ein Bogen wieder in ein Kreis umwandeln. Befehl: VERBINDEN Quellobjekt auswählen: [Bogen anwählen] Zu verbindende Objekte wählen: [Return] Bogen auswählen zum Verbinden mit Quelle oder [Schließen]: S [Schließen wählen] Bogen wird in Kreis umgewandelt. Edit: Hab gerade gesehen den Befehl gibt es in dieser Form schon mindestens seit 2009.
[Diese Nachricht wurde von Kuschelfee am 29. Jul. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Harry Konstruktion Mitglied
Beiträge: 8 Registriert: 21.09.2005 Aurocad 2017 Fusion 2013 Windows 7
|
erstellt am: 29. Jul. 2016 10:51 <-- editieren / zitieren --> Unities abgeben:
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 29. Jul. 2016 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
at Kuschelfee wer kommt den auf sowas danke und U´s sind unterwegs at Harry ... wenn es mehr und öfters ist diese Lisp evtl ;***************************************************************************** ; ATC.LSP V1.0 ; by Zoltan Toth ; ZOTO Technologies, ; 23 Greenhills Dve, ; Melton 3337. ; E-MAIL: zoltan.toth@ains.net.au ; WWW: http://www.ains.net.au/zoto/ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; This program takes any number of arcs and converts them into circles. ; Each circle is a new object with all the properties of the arc it ; replaces. Non-arc objects are ignored. ; ;***************************************************************************** (defun C:ATC (/ CTR2 CTR3 D2 SS2 OBN2 OBD2 OBD3) (setq CTR2 0) ;initialize CTR2 for object counter (prompt "\nSelect arcs to convert to circles: ") (setq SS2 (ssget '((0 . "ARC")))) ;create selection set with arcs only (repeat (sslength SS2) ;repeat for each object (setq OBN2 (ssname SS2 CTR2)) ;get object name (setq OBD2 (entget OBN2)) ;get object data lists ;substitute CIRCLE in assoc. 0 (setq OBD2 (subst (cons 0 "CIRCLE")(assoc 0 OBD2) OBD2)) (setq CTR3 (1- (length OBD2))) ;set CTR3 to 1 less than size of OBD2 (repeat (length OBD2) ;repeat for each list in OBD2 (setq D2 (nth CTR3 OBD2)) ;set D2 to an association list from the arc ;;;; ;if association list is neither a start or end angle, ;copy the association list to OBD3 (if (and (/= 50 (car D2))(/= 51 (car D2))) ;check for assoc. 50 & 51 (setq OBD3 (cons D2 OBD3)) ;copy assoc. list to OBD3 ) (setq CTR3 (1- CTR3)) ;decrement counter CTR3 ) ;end of second (repeat) (entdel OBN2) ;delete arc (entmake OBD3) ;make circle (setq OBD3 nil) ;set OBD3 to (nil) (setq CTR2 (1+ CTR2)) ;increment object counter ) ;end of first (repeat) (princ) ;exit quietly )
cu cw
------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht [Diese Nachricht wurde von cadwomen am 29. Jul. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 29. Jul. 2016 11:17 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
|
Kuschelfee Mitglied Bauzeichnerin
Beiträge: 221 Registriert: 07.05.2007 Windows 10 Pro AutoCAD 2024.1 Soficad 2024-1 Advance Steel 2023.1.1
|
erstellt am: 29. Jul. 2016 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
@cadwomen Tja wenn man es genau nimmt steht dies in der AutoCAD Hilfe sogar drin. Verbinden (Befehl) ... Bogen Nur Bogen können... Die Option Schließen konvertiert den Quellbogen in einen Kreis. Wurde aber mal auf dem Blog von CAD Becker erwähnt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 29. Jul. 2016 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Konstruktion
Zitat: Original erstellt von Kuschelfee: @cadwomen Tja wenn man es genau nimmt steht dies in der AutoCAD Hilfe sogar drin. [/i] Wurde aber mal auf dem Blog von CAD Becker erwähnt.
ehrlich das ging dann "Jahrzehnte" an mir vorbei ;-) und seid diese damische Hilfe online ist find ich immer seltener was ...... nwe cw ------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |