Hey.
Please help me, how can I put the text under the arrow?
(defun c:text_! ()
(while
(setq p1 (getpoint (strcat "\nFirst point ->>")))
(setq p2 (getpoint p1 (strcat "\nSecond point ->>")))
(setq *ht* 0.5
di (/ (* *ht* 0.45) 0.5)
nm (trans '(0. 0. 1.) 1 0 t)
)
(setq a (angle p1 p2))
(entmake
(list
'(0 . "TEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
'(10 0. 0. 0.)
(cons 40 *ht*)
(cons 7 (getvar 'textstyle))
(cons 8 "Some layer")
(cons 62 1)
(cons 1 "Some string")
(cons 50
(if (minusp (cos a))
(+ pi a)
a
)
)
'(72 . 1)
(cons 11 (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) p1 p2))
'(73 . 1)
)
) ; end of entmake
(entmake
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 3)
'(70 . 0)
(cons 8 "Some layer")
(cons 10 (trans p2 1 nm))
'(40 . 0.0)
(cons 41 (/ di 2.0))
(cons 62 21)
(cons 10 (trans (polar p2 (angle p2 p1) di) 1 nm))
(cons 10 (trans p1 1 nm))
(cons 210 nm)
)
) ; end of entmake
)
(princ)
)