[API应用程序]：一个小程序，特殊用途。

eachy

2. [FONT=courier new]
   
3. ;; 文字与曲线拾取点切线方向对齐程序
   
4. ;;需要工具箱 Bata 0.13，拷贝到Lisp目录下加载
   
5. ($xdrx_load "xdlsp.lsp")
   
6. (defun c:txt_alobj (/ e1 e2 $angle)
   
7.   (xdrx_begin)
   
8.   (while (setq e2 (xdrx_entsel "\n选择对齐的基准曲线[Line,Arc,Circle,Ellipse,Spline,*Polyline]: "
   
9.                                '((0 . "*line,arc,circle,ellipse"))
   
10.                   )
    
11.          )
    
12.     (progn
    
13.       (redraw (car e2) 3)
    
14.       (setq $angle (car (xdrx_getperpline (car e2) (last e2))))
    
15.       (while (setq e1 (xdrx_entsel "\n选择要改变的文字<退出>: " '(
    
16.                                     (0 . "text")
    
17.                                    )
    
18.                       )
    
19.              )
    
20.         (xdrx_setenttodb (car e1))
    
21.         (xdrx_modent 50 ($xdlsp_angle_format $angle))
    
22.       )
    
23.       (redraw (car e2) 4)
    
24.     )
    
25.   )
    
26.   (xdrx_end)
    
27.   (princ)
    
28. )[/FONT]

[FONT=courier new]<br /> ;; 文字与曲线拾取点切线方向对齐程序<br /> ;;需要工具箱 Bata 0.13，拷贝到Lisp目录下加载<br /> ($xdrx_load "xdlsp.lsp")<br /> (defun c:txt_alobj (/ e1 e2 $angle)<br />   (xdrx_begin)<br />   (while (setq e2 (xdrx_entsel "\n选择对齐的基准曲线[Line,Arc,Circle,Ellipse,Spline,*Polyline]: "<br />                                '((0 . "*line,arc,circle,ellipse"))<br />                   )<br />          )<br />     (progn<br />       (redraw (car e2) 3)<br />       (setq $angle (car (xdrx_getperpline (car e2) (last e2))))<br />       (while (setq e1 (xdrx_entsel "\n选择要改变的文字<退出>: " '(<br />                                     (0 . "text")<br />                                    )<br />                       )<br />              )<br />         (xdrx_setenttodb (car e1))<br />         (xdrx_modent 50 ($xdlsp_angle_format $angle))<br />       )<br />       (redraw (car e2) 4)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )[/FONT]

xzg_hello

不错，确实用得到