Question

auto lisp中已知直线两点，如何画与直线平行的文字

Answer 1

(defun c:tes1 ( / &p1 &p2 &p3 @ang1 ent1 x)
 (if (null vlax-dump-object) (vl-load-com) )
 (if (setq ent1 (entsel "\n请选择直线"))
  (progn
   (setq ent1 (vlax-ename->vla-object (car ent1)))
   (setq &p1 (vlax-curve-getStartPoint ent1);取得曲线起点
         &p2 (vlax-curve-getEndPoint ent1);取得曲线端点
         &p3 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ &p1 &p2));取得两点中点
         @ang1 (angle &p1 &p2);计算弧角度
         @ang1 (atoi (angtos @ang1 0 0));转换为°
   )
   (while (> @ang1 135) (setq @ang1 (- @ang1 180)) );文字角度为了美观，角度不大于135°
   (setq @ang1 (/ (* @ang1 pi) 180));重新转换为弧角度
   (entmake (list '(0 . "TEXT") (cons 1 "100") (cons 10 &p3) (cons 40 5) (cons 50 @ang1)));绘制文字
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;代码1是文字内容;10插入点坐标;40文字高度;50文字角度;另外可以添加图层，字体宽度，颜色等要熟悉组码
  );progn
 )
 (princ)
)

写了一个程序，是关于弧角度与角度的转换，这样就可以确定文字的角度。参考一下。

追问

angle函数得到角度值能否直接用于设置 50文字角度，需不需要数值转换？

我写了一个测试程序，print出同角度的文字和直线的角度，发现文字的dxf群码为50的数值，和以直线的首尾两个坐标作为参数sngle后的角度差别很大

追答

1. 在组码里面，文字角度是【弧角度】。

2. 直线有起点，端点，它的角度可以是任何弧角度。也就是说，可以是π角度，也可以是3π。如果文字是这个角度，那么，文字就颠倒了。

3. 函数angtos可以把弧角度转换为360°以内的角度。如果文字角度是180°，这个文字就颠倒了。
   

Answer 2

在直线上写字