BricsCAD: Text entlang eines Kreisbogens anordnen (Software)
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!
; 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