（完成）[编程申请]：文字完美斜排...

XDSoft

完美斜排做好了，程序可以在两点范围内等距离排文字，文字角度可以不变或者随线，还可以选基准曲线做平齐方向，请试用...

                               
登录/注册后可看大图

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.   命令：txt_xp
   
6.   
   
7.   功能：把选取的文字依据给定的方向上，按照交互的两点距离为长度或者选取平齐的曲线为方向，等距离斜排（可横，竖）
   
8.   
   
9. |;
   
10. (defun c:txt_xp (/ e e1 pj yes pj2 ang txt cha dis ed ed1 oldtxt oldpj len
    
11.                    edl basept tf box box1
    
12.                 )
    
13.   (if (and
    
14.         (setq e (car (xdrx_entsel "\n请选取要斜排的文字<退出>:" '(
    
15.                                    (0 . "text")
    
16.                                   )
    
17.                      )
    
18.                 )
    
19.         )
    
20.         (progn
    
21.           (redraw e 3)
    
22.           t
    
23.         )
    
24.         (setq pj (xdrx_getentdxf 10))
    
25.         (setq yes (xdrx_yesorno "\n文字角度是否随线" 1))
    
26.         (progn
    
27.           (initget 128 "Align")
    
28.           (if (not (setq pj2 (getpoint pj "\n请指定斜排方向[Align-曲线平齐]<A>:")))
    
29.             (progn
    
30.               (if (and
    
31.                     (setq e1 (xdrx_entsel "\n请选取平齐的基准曲线<退出>:" '
    
32.                                           ((0 . "*line,arc,circle,ellipse"))
    
33.                              )
    
34.                     )
    
35.                     (progn
    
36.                       (setq oldos (getvar "osmode"))
    
37.                       (setvar "osmode" 512)
    
38.                       (setq pj2 (getpoint (last e1)
    
39.                                           "\n请点曲线另一点决定长度<退出>:"
    
40.                                 )
    
41.                       )
    
42.                       (setvar "osmode" oldos)
    
43.                       pj2
    
44.                     )
    
45.                   )
    
46.                 (progn
    
47.                   (setq ang ($xdlsp_angle_format (car
    
48.                                                       (xdrx_getperpline
    
49.                                                                         (car e1)
    
50.                                                                         (last e1)
    
51.                                                       )
    
52.                                                  )
    
53.                             )
    
54.                         dis (distance (last e1) pj2)
    
55.                   )
    
56.                 )
    
57.               )
    
58.               (and
    
59.                 e1
    
60.                 pj2
    
61.               )
    
62.             )
    
63.             (progn
    
64.               (setq ang ($xdlsp_angle_format (angle pj pj2))
    
65.                     dis (distance pj pj2)
    
66.               )
    
67.             )
    
68.           )
    
69.         )
    
70.       )
    
71.     (progn
    
72.       (xdrx_begin)
    
73.       (xdrx_setenttodb e)
    
74.       (setq txt (xdrx_getentdxf 1)
    
75.             len ($xdlsp_text_wordlen txt)
    
76.             ed (entget e)
    
77.             box ($xdlsp_textbox ed)
    
78. 
    
79.             oldtxt (cons 1 txt)
    
80.             oldpj (cons 10 pj)
    
81.       )
    
82.       ($xdlsp_text_todb txt)
    
83.       (setq dis1 0)
    
84.       (while (setq cha ($xdlsp_text_getword))
    
85.         (setq ed1 (subst
    
86.                     (cons 1 cha)
    
87.                     oldtxt
    
88.                     ed
    
89.                   )
    
90.               box1 ($xdlsp_textbox ed1)
    
91.               dis1 (+ dis1 (- (caadr box1) (caar box1)))
    
92.               edl (cons ed1 edl)
    
93.         )
    
94.       )
    
95.       (entdel e)
    
96.       (setq tf t)
    
97.       (setq dis (/ (- dis dis1) (1- len))
    
98.             basept pj
    
99.       )
    
100.       (foreach n (reverse edl)
     
101.         (if tf
     
102.           (progn
     
103.             (entmake n)
     
104.             (setq ed (entget (entlast))
     
105.                   tf nil
     
106.                   pj (cdr (assoc 10 n))
     
107.                   dis2 ($xdlsp_textbox ed)
     
108.                   dis2 (- (caadr dis2) (caar dis2))
     
109.             )
     
110.           )
     
111.           (progn
     
112.             (setq ed (entget (entlast))
     
113.                   dis2 ($xdlsp_textbox ed)
     
114.                   dis2 (- (caadr dis2) (caar dis2))
     
115.             )
     
116.             (setq pj (polar pj ang (+ dis2 dis)))
     
117.             (setq n (subst
     
118.                       (cons 10 pj)
     
119.                       (assoc 10 n)
     
120.                       n
     
121.                     )
     
122.             )
     
123.             (entmake n)
     
124.           )
     
125.         )
     
126.         (if (= yes 1)
     
127.           (progn
     
128.             (xdrx_setenttodb (entlast))
     
129.             (xdrx_modent 50 ang)
     
130.           )
     
131.         )
     
132.       )
     
133.       (xdrx_end)
     
134.     )
     
135.   )
     
136.   (princ)
     
137. )[/FONT]

<br /> [FONT=courier new]<br /> ;|<br />   命令：txt_xp<br />   <br />   功能：把选取的文字依据给定的方向上，按照交互的两点距离为长度或者选取平齐的曲线为方向，等距离斜排（可横，竖）<br />   <br /> |;<br /> (defun c:txt_xp (/ e e1 pj yes pj2 ang txt cha dis ed ed1 oldtxt oldpj len<br />                    edl basept tf box box1<br />                 )<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n请选取要斜排的文字<退出>:" '(<br />                                    (0 . "text")<br />                                   )<br />                      )<br />                 )<br />         )<br />         (progn<br />           (redraw e 3)<br />           t<br />         )<br />         (setq pj (xdrx_getentdxf 10))<br />         (setq yes (xdrx_yesorno "\n文字角度是否随线" 1))<br />         (progn<br />           (initget 128 "Align")<br />           (if (not (setq pj2 (getpoint pj "\n请指定斜排方向[Align-曲线平齐]<A>:")))<br />             (progn<br />               (if (and<br />                     (setq e1 (xdrx_entsel "\n请选取平齐的基准曲线<退出>:" '<br />                                           ((0 . "*line,arc,circle,ellipse"))<br />                              )<br />                     )<br />                     (progn<br />                       (setq oldos (getvar "osmode"))<br />                       (setvar "osmode" 512)<br />                       (setq pj2 (getpoint (last e1)<br />                                           "\n请点曲线另一点决定长度<退出>:"<br />                                 )<br />                       )<br />                       (setvar "osmode" oldos)<br />                       pj2<br />                     )<br />                   )<br />                 (progn<br />                   (setq ang ($xdlsp_angle_format (car<br />                                                       (xdrx_getperpline<br />                                                                         (car e1)<br />                                                                         (last e1)<br />                                                       )<br />                                                  )<br />                             )<br />                         dis (distance (last e1) pj2)<br />                   )<br />                 )<br />               )<br />               (and<br />                 e1<br />                 pj2<br />               )<br />             )<br />             (progn<br />               (setq ang ($xdlsp_angle_format (angle pj pj2))<br />                     dis (distance pj pj2)<br />               )<br />             )<br />           )<br />         )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setenttodb e)<br />       (setq txt (xdrx_getentdxf 1)<br />             len ($xdlsp_text_wordlen txt)<br />             ed (entget e)<br />             box ($xdlsp_textbox ed)<br /> <br />             oldtxt (cons 1 txt)<br />             oldpj (cons 10 pj)<br />       )<br />       ($xdlsp_text_todb txt)<br />       (setq dis1 0)<br />       (while (setq cha ($xdlsp_text_getword))<br />         (setq ed1 (subst<br />                     (cons 1 cha)<br />                     oldtxt<br />                     ed<br />                   )<br />               box1 ($xdlsp_textbox ed1)<br />               dis1 (+ dis1 (- (caadr box1) (caar box1)))<br />               edl (cons ed1 edl)<br />         )<br />       )<br />       (entdel e)<br />       (setq tf t)<br />       (setq dis (/ (- dis dis1) (1- len))<br />             basept pj<br />       )<br />       (foreach n (reverse edl)<br />         (if tf<br />           (progn<br />             (entmake n)<br />             (setq ed (entget (entlast))<br />                   tf nil<br />                   pj (cdr (assoc 10 n))<br />                   dis2 ($xdlsp_textbox ed)<br />                   dis2 (- (caadr dis2) (caar dis2))<br />             )<br />           )<br />           (progn<br />             (setq ed (entget (entlast))<br />                   dis2 ($xdlsp_textbox ed)<br />                   dis2 (- (caadr dis2) (caar dis2))<br />             )<br />             (setq pj (polar pj ang (+ dis2 dis)))<br />             (setq n (subst<br />                       (cons 10 pj)<br />                       (assoc 10 n)<br />                       n<br />                     )<br />             )<br />             (entmake n)<br />           )<br />         )<br />         (if (= yes 1)<br />           (progn<br />             (xdrx_setenttodb (entlast))<br />             (xdrx_modent 50 ang)<br />           )<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

下面附件是这个程序发布时，最新的所有“文字工具”程序，其中很多工具修改、完善了功能...

下载后，把压缩文件中的两个LISP拷贝到“晓东工具箱”LISP目录下，使用txt_xp执行本程序...

asuhe

请XD说明怎么样在启动LZ时同时启动XD工具箱？

XDSoft

最初由 asuhe 发布
[B]请XD说明怎么样在启动LZ时同时启动XD工具箱？ [/B]

你说的是在R14平台吧，刚给大家做了FLASH教学，去看看下面的帖子：

http://www.xdcad.net/forum/showthread.php?postid=55037#post55037

在2002下面，就非常容易，论坛置顶的帖子里面也有教学，使用工具箱提供的“2000＋链接”程序即可。

lxch

由于对txt_xp命令中的提示不清楚,做不出上面图片的效果.请详述

marting

最初由 lxch 发布
[B]由于对txt_xp命令中的提示不清楚,做不出上面图片的效果.请详述 [/B]

很好用的啊，在输入方向时候，橡皮筋第二点和第一点间的长度内，等距离排你选的字，所以，你点第二点的长度一定要比你原来的文字长度要长。晓东的意思应该是视觉上模糊根据两点，定排列后的文字总长度，这点比较符号实际中的需要。橡皮筋的方向定排的方向，长度定排后的总长度，如果横排和竖排，就按F8键把正交给打开。