Wie beschrifte ich in AutoCAD automatisch jeden Kreis mit seinem Durchmesser?

Was cadssistant tut

1. Wählt die Kreise auf dem Layer aus und liest ihre Mittelpunkte und Radien.
2. Erzeugt pro Kreis ein TEXT-Element, alle in einem Schritt: Ø plus den Durchmesser mit einer Nachkommastelle, neben dem Kreis (das Beispiel unten setzt ihn knapp außerhalb des rechten Rands), Höhe 2.5, wenn Sie keine Zahl nennen.
3. Antwortet mit der Anzahl sowie Höhe und Layer, die es verwendet hat. „Mach stattdessen Bemaßungen daraus“ tauscht die Texte gegen DIMDIAMETER-Bemaßungen, ein Befehl je Kreis.

Dieselbe Aufgabe in AutoLISP

(progn
  (setq ss (ssget "_X" '((0 . "CIRCLE") (8 . "HOLES"))) i 0 n 0)
  (if ss
    (repeat (sslength ss)
      (setq ed (entget (ssname ss i)) i (1+ i)
            c (cdr (assoc 10 ed)) r (cdr (assoc 40 ed)))
      (entmake (list '(0 . "TEXT")
                     (cons 10 (polar c 0.0 (* 1.2 r)))
                     (cons 40 2.5)
                     (cons 1 (strcat "%%c" (rtos (* 2 r) 2 1)))))
      (setq n (1+ n))))
  n)

Texthöhe 2.5, platziert bei 1,2 × Radius rechts von jedem Mittelpunkt. %%c ist das Durchmesserzeichen in TEXT.

Gut zu wissen

• %%c wird in TEXT als Ø dargestellt; MTEXT verwendet stattdessen \U+2205. cadssistant nimmt das Zeichen, das zum erzeugten Element passt.
• Ein Versatz von 1,2 × Radius landet in einem engen Muster mitten in den Nachbarn. Sagen Sie „mit Führungslinien“, dann setzt es jede Beschriftung mit einem MLEADER frei von den Bohrungen.

Mehr aus „Zeichnen und anordnen“

• Wie fülle ich eine geschlossene Form in AutoCAD mit einem Raster aus Kreisen?
• Wie ordne ich ein ausgewähltes Objekt in AutoCAD als Raster an, indem ich einfach sage, was ich will?
• Wie schraffiere ich eine ausgewählte Fläche in AutoCAD mit einem Muster per Satz?
• Wie zeichne ich Bohrungen auf einem Lochkreis (Teilkreis) in AutoCAD?