[分享]：给大家写了个程序，选择大段文字，自动递增加序号...

XDSoft

                               
登录/注册后可看大图

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    命令：txt_addno
   
6.    
   
7.    功能：自动对选取的大段水平文字，递增加序号，方便大家写图纸说明
   
8.    
   
9.    说明：1、原有大段文字位置相对不变，前面加序号，小数点对齐。
   
10.         2、程序记住写过的序号值，下次运行程序自动用递增的序号值作为默认输入
    
11. |;
    
12. (defun c:txt_addno (/ $txt_prefix_pro ss val)
    
13.   (defun $txt_prefix_pro (el / el1 n pj txt ed oldtxt oldpj ang cha ed1 ed2
    
14.                              box box1 box2 dis2 dis
    
15.                          )
    
16.     (setq el1 (mapcar
    
17.                 'car
    
18.                 el
    
19.               )
    
20.     )
    
21.     (foreach n el1
    
22.       (xdrx_setenttodb n)
    
23.       (setq pj (xdrx_getentdxf 10)
    
24.             txt (xdrx_getentdxf 1)
    
25.             ed (entget n)
    
26.             oldtxt (cons 1 txt)
    
27.             oldpj (cons 10 pj)
    
28.             ang (xdrx_getentdxf 50)
    
29.       )
    
30.       ($xdlsp_text_todb txt)
    
31.       (setq cha ($xdlsp_text_getstr))
    
32.       (setq ed1 (subst
    
33.                   (cons 1 (strcat (itoa $txt_prefix_val) "." cha))
    
34.                   oldtxt
    
35.                   ed
    
36.                 )
    
37.             ed2 (subst
    
38.                   (cons 1 cha)
    
39.                   oldtxt
    
40.                   ed
    
41.                 )
    
42.             box ($xdlsp_textbox ed)
    
43.             box2 ($xdlsp_textbox ed2)
    
44.             dis2 (- (caadr box2) (caar box2))
    
45.             box1 ($xdlsp_textbox ed1)
    
46.             dis (- (caadr box1) dis2 (caar box))
    
47.             pj (polar pj ang (- dis))
    
48.       )
    
49.       (xdrx_modent 1 (strcat (itoa $txt_prefix_val) "." txt) 10 pj)
    
50.       (setq $txt_prefix_val (1+ $txt_prefix_val))
    
51.     )
    
52.     (setq $txt_prefix_val (1－ $txt_prefix_val))
    
53.   )
    
54.   (prompt "\n请选择要加序号的文字<退出>:")
    
55.   (if (setq ss (ssget '((0 . "text"))))
    
56.     (progn
    
57.       (if (not $txt_prefix_val)
    
58.         (setq $txt_prefix_val 1)
    
59.       )
    
60.       (if (setq val (getint (strcat "\n请输入起始序号值<" (itoa $txt_prefix_val)
    
61. 
    
62.                                     ">:"
    
63.                             )
    
64.                     )
    
65.           )
    
66.         (setq $txt_prefix_val val)
    
67.       )
    
68.       (xdrx_begin)
    
69.       ($txt_prefix_pro ($xdlsp_text_sort ss nil))
    
70.       (xdrx_end)
    
71.     )
    
72.   )
    
73.   (princ)
    
74. )
    
75. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    命令：txt_addno<br />    <br />    功能：自动对选取的大段水平文字，递增加序号，方便大家写图纸说明<br />    <br />    说明：1、原有大段文字位置相对不变，前面加序号，小数点对齐。<br />         2、程序记住写过的序号值，下次运行程序自动用递增的序号值作为默认输入<br /> |;<br /> (defun c:txt_addno (/ $txt_prefix_pro ss val)<br />   (defun $txt_prefix_pro (el / el1 n pj txt ed oldtxt oldpj ang cha ed1 ed2<br />                              box box1 box2 dis2 dis<br />                          )<br />     (setq el1 (mapcar<br />                 'car<br />                 el<br />               )<br />     )<br />     (foreach n el1<br />       (xdrx_setenttodb n)<br />       (setq pj (xdrx_getentdxf 10)<br />             txt (xdrx_getentdxf 1)<br />             ed (entget n)<br />             oldtxt (cons 1 txt)<br />             oldpj (cons 10 pj)<br />             ang (xdrx_getentdxf 50)<br />       )<br />       ($xdlsp_text_todb txt)<br />       (setq cha ($xdlsp_text_getstr))<br />       (setq ed1 (subst<br />                   (cons 1 (strcat (itoa $txt_prefix_val) "." cha))<br />                   oldtxt<br />                   ed<br />                 )<br />             ed2 (subst<br />                   (cons 1 cha)<br />                   oldtxt<br />                   ed<br />                 )<br />             box ($xdlsp_textbox ed)<br />             box2 ($xdlsp_textbox ed2)<br />             dis2 (- (caadr box2) (caar box2))<br />             box1 ($xdlsp_textbox ed1)<br />             dis (- (caadr box1) dis2 (caar box))<br />             pj (polar pj ang (- dis))<br />       )<br />       (xdrx_modent 1 (strcat (itoa $txt_prefix_val) "." txt) 10 pj)<br />       (setq $txt_prefix_val (1+ $txt_prefix_val))<br />     )<br />     (setq $txt_prefix_val (1－ $txt_prefix_val))<br />   )<br />   (prompt "\n请选择要加序号的文字<退出>:")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (if (not $txt_prefix_val)<br />         (setq $txt_prefix_val 1)<br />       )<br />       (if (setq val (getint (strcat "\n请输入起始序号值<" (itoa $txt_prefix_val)<br /> <br />                                     ">:"<br />                             )<br />                     )<br />           )<br />         (setq $txt_prefix_val val)<br />       )<br />       (xdrx_begin)<br />       ($txt_prefix_pro ($xdlsp_text_sort ss nil))<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

下面附件是这个工具发布时候，所有的“文字工具”最新的完整文件。

rungang2002

txt_tool.lsp 无法下载来自P4.xdcad.net
这是什么情况

自由的鱼

这功能不错！

ywp7103

又要钱，对我又用处不大，谢过了！

jszyf

与二楼楼主一样，不能下载，而且好像一个爱心币倒是扣了，有点冤枉。本来此程序还是很实用的。奈何？

guanhuaming

命令: txt_addno
-----------------------------------------------------------------------------
请选择要加序号的文字<退出>:
选择对象: 指定对角点: 找到 8 个
选择对象:
请输入起始序号值<1>:
; 错误: no function definition: XDRX_BEGIN
命令:
----------------------------------------------------------------------------------


写个小软件都依赖性那么强。

boboc98

呵呵,在r14下面 :

Command: txt_addno

请选择要加序号的文字<退出>:
Select objects: Other corner: 15 found

Select objects:

请输入起始序号值<1>:
*Cancel*

Command:
TXT_ADDNO
请选择要加序号的文字<退出>:
Select objects: Other corner: 15 found

Select objects:

请输入起始序号值<1>:
*Cancel*
r14对vlisp 的支持不好

silen618

不会吧，在2000i版，扩展工具里边都有。tcount命令就可以自动编号，不妨试一试。