---

Kreiseschliesen.dwg

Wie kann ich vorhandene 3/4 Kreise schließen bzw. in Vollkreise umwandeln?
Siehe Datei anbei. 

Danke für eine Hilfe.

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

---

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

---

Tool-Lösung geht fast immer  ... ist halt eine Frage der Aufwand-Nutzen-Analyse

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

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

---

Danke für den Tipp mit dem Befehl "Verbinden". Hat gut funktioniert. 

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

---

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

---

Ein kleines Makro macht das Handling komfortabler:
^C^Cverbinden;\s;

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

@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

---

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