21 lines
579 B
Common Lisp
21 lines
579 B
Common Lisp
;----------------------------------
|
|
; 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)
|
|
)
|