;----------------------------------
; Paralell beschriften 30.6.91 AW
; eingebaut in e4f5
;---------------------------------
(Defun C:Tbpl ()
  (Setvar "Cmdecho" 0)
  (Initget 1)
  (setvar "osmode" 512)
  (Setvar "Lastpoint" (Setq P1 (Getpoint "\nErste Linie: ")))
  (Initget 1)
  (setvar "osmode" 128)
  (Setq P2 (Getpoint "\nZweite Linie: "))
  (initget 1)
  (setvar "osmode" 0)
  (Setq alpha (Getstring t "\nText: "))
  (Setq P3 
     (Polar P1 (Setq A (Angle P1 P2)) (Setq H (/ (Distance P1 P2) 2.0))))
  (Command "Text" "M" P3 H (- (/ (* A 180.0) Pi) 90) alpha)
  (Princ)
)
