BricsCAD: Text entlang eines Kreisbogens anordnen (Software)

Martin Vogel , Dortmund / Bochum, Thu, 09.04.2015, 21:40 (vor 3467 Tagen)

Ganz tief unten in meinem Archiv habe ich ein uraltes Lisp-Programm gefunden, um „runden Text“ mit AutoCAD oder BricsCAD zu schreiben. Viel Spaß damit!

ZIP-Archiv_27E9IVVC1.zip

; Copyright (c) 1988, 2015 by Martin Vogel
; Eine Textzeile wird entlang eines
; Kreisbogens dargestellt.
 
(defun C:RUND (/ s sl m r sw ew bw x th)
      (setvar "CMDECHO" 0)
      (setq sl (strlen (setq s (getstring "\nText: " t))))
      (setq th (getreal "\nTexthoehe: "))
      (setq m (getpoint "\nMittelpunkt: "));
      (setq r (getdist m "\nRadius des Inkreises: "))
      (setq sw (getangle m "\nStartwinkel: "))
      (setq ew (getangle m "\nEndwinkel: "))
      ; Winkel pro Buchstabe
      (setq bw (/ (- ew sw) (1- sl)))
      ; Index des aktuellen Buchstabens
      (setq x 1)
      ; Wenn Endwinkel kleiner Startwinkel: 
      ; Text wird im Gegenuhrzeigersinn geschrieben,
      ; dazu Radius um Texthöhe vergrößern.
      (if (< ew sw) (setq kw 90)
                    (progn (setq kw 270) (setq r (+ r th))))
      (setq sw (- sw bw))
      ; Schleife über alle Buchstaben
      (while (<= x sl)
        ; BricsCAD
        (Command "TEXT" "MP"
        ; AutoCAD
        ; (Command "TEXT" "Z"
                 (polar m (setq sw (+ sw bw)) r)
                 th
                 (- (/ (* 180 sw) PI) kw)
                 (substr s x 1))
        (setq x (1+ x)))
)

--
Dipl.-Ing. Martin Vogel
Leiter des Bauforums

Bücher:
CAD mit BricsCAD
Bauinformatik mit Python