API应用 巧用文字对齐方式

st788796

巧用 API 文字对齐方式设置可以省很多计算文字位置，下面演示了仅利用一个点就实现文字自动分出线上和线下

1. (defun c:tt (/ e p an len txt1 txt2)
   
2.   (setq        e   (car (entsel))
   
3.         p   (xdrx_curve_getpoint e) ;_获取起点、中点、终点
   
4.         p   (cadr p) ;_取出中点
   
5.         an  (angle '(0. 0.)
   
6.                    (xdrx_curve_getfirstderiv e p)
   
7.             ) ;_切线角度
   
8.         an  (XD::Geom:AngleFormat an)
   
9.         len (xdrx_curve_getdistatpoint e (xdrx_curve_getendpoint e)) ;_总长度
   
10.   ) ;_转 1 4 象限角度
    
11.   (setq        txt1 (xdrx_text_make
    
12.                p
    
13.                "Totle Length"
    
14.                (getvar "Textsize")
    
15.                an
    
16.              )
    
17.   )
    
18.   (setq txt2 (xdrx_text_make p (rtos len 2 2) (getvar "textsize") an))
    
19.   (xdrx_text_setvermode txt1 1) ;_先往上移动
    
20.   (xdrx_text_sethozmode txt1 1) ;_再水平移动
    
21.   (xdrx_text_setvermode txt2 3) ;_先往下移动
    
22.   (xdrx_text_sethozmode txt2 1) ;_再水平移动并向下移动
    
23.   (princ)
    
24. )

(defun c:tt (/ e p an len txt1 txt2)<br />   (setq        e   (car (entsel))<br />         p   (xdrx_curve_getpoint e) ;_获取起点、中点、终点<br />         p   (cadr p) ;_取出中点<br />         an  (angle '(0. 0.)<br />                    (xdrx_curve_getfirstderiv e p)<br />             ) ;_切线角度<br />         an  (XD::Geom:AngleFormat an)<br />         len (xdrx_curve_getdistatpoint e (xdrx_curve_getendpoint e)) ;_总长度<br />   ) ;_转 1 4 象限角度<br />   (setq        txt1 (xdrx_text_make<br />                p<br />                "Totle Length"<br />                (getvar "Textsize")<br />                an<br />              )<br />   )<br />   (setq txt2 (xdrx_text_make p (rtos len 2 2) (getvar "textsize") an))<br />   (xdrx_text_setvermode txt1 1) ;_先往上移动<br />   (xdrx_text_sethozmode txt1 1) ;_再水平移动<br />   (xdrx_text_setvermode txt2 3) ;_先往下移动<br />   (xdrx_text_sethozmode txt2 1) ;_再水平移动并向下移动<br />   (princ)<br /> )

说明：图片中的垂直向上、垂直向下 Copy 的时候忘了改动！

gzgbzh

这个好，正需要这个功能