[分享]：文本编辑工具chtts（免币）

aichong

真是太感谢xyp1964  斑竹了！我下载回来试用了一下，很好用！
以前我都是一个一个复制、粘贴，或者用list命令，然后在word里面查找、替换，真是麻烦死了。
不知道晓东工具箱里的输出到剪贴板功能如何？能不能多次选择文字，然后按选择的顺序一次性输出？我下载了还没有试用。

xyp1964

两者原理基本相同。
对用“,”分隔文本不太理解，会增加编辑的难度。

aichong

我的目的是选择不同的钻孔编号（如zk1、zk2、zk3等等），以便在理正勘察软件中输入。其要求是：zk1,zk2,zk3等等（中间以英文的逗号分隔）。

所以，斑竹最好是连段落标记（换行符）也去掉，直接用逗号分隔即可，免得我在word里面用查找、替换才能去掉段落标记。

xyp1964

那就成一大段了：

aichong

谢谢！这正是我所需要的效果。

liaoyilily

能批量提取文本吗？还需按顺序，功能似乎和EP里的文本工具
差不多

coolload

楼主，能发份代码么？我用cad2006 测试
谢谢
sonicdater@hotmail.com

xyp1964

最初由 coolload 发布
[B]楼主，能发份代码么？我用cad2006 测试
谢谢
sonicdater@hotmail.com [/B]

直接下载就得！

zyhmm

谢谢,这里真好,可以解决好多实际问题,

kill99

很实用,花银子也值得.

idchris

我也很想要，可以给我一个吗？

同心

很实用,花银子也值得

LMCC

我也很想要，可以原码给我一个吗？ LMCHUAN23@163.COM

aichong

xyp1964版主：
麻烦你帮我修改一下34楼的程序，即：键入xzsc  (选择输出)命令后，能不能保存当前视窗不变？即始终不要进行Z→E（全屏）的操作。谢谢！

xyp1964

最初由 aichong 发布
[B]xyp1964版主：
麻烦你帮我修改一下34楼的程序，即：键入xzsc  (选择输出)命令后，能不能保存当前视窗不变？即始终不要进行Z→E（全屏）的操作。谢谢！ [/B]

“源码”

2. [FONT=courier new]
   
3. ;;;* C:xzsc.选择输出
   
4. (defun c:xzsc ()
   
5.   (CMDLA0)
   
6.   (prompt "\n按文本选取顺序输出文本。")
   
7.   (while (not (setq fn (getfiled "输出文件名" "输出文本" "txt" 1))))
   
8.   (if (findfile fn)
   
9.     (princ (strcat "\n文件 " fn " 已存在, 程序终止!"))
   
10.     (progn
    
11.       (prompt "\n选取被输出文本 : ")
    
12.       (setq ss           (ssget '((0 . "*TEXT")))
    
13.             fp           (open fn "w")
    
14.             n           -1
    
15.       )
    
16.       (while (setq s1 (ssname ss (setq n (1+ n))))
    
17.         (setq txt    (dxf 1 (entget s1)))
    
18.         (WRITE-LINE TXT fp)
    
19.         (princ ".")
    
20.       )
    
21.       (setq fp (close fp))
    
22.       (princ (strcat "输出完毕! 文本输出到 => " fn))
    
23.     )
    
24.   )
    
25.   (CMDLA1)
    
26. )
    
27. (PXYP "xzsc  (选择输出)")
    
28. (princ)[/FONT]

[FONT=courier new]<br /> ;;;* C:xzsc.选择输出<br /> (defun c:xzsc ()<br />   (CMDLA0)<br />   (prompt "\n按文本选取顺序输出文本。")<br />   (while (not (setq fn (getfiled "输出文件名" "输出文本" "txt" 1))))<br />   (if (findfile fn)<br />     (princ (strcat "\n文件 " fn " 已存在, 程序终止!"))<br />     (progn<br />       (prompt "\n选取被输出文本 : ")<br />       (setq ss           (ssget '((0 . "*TEXT")))<br />             fp           (open fn "w")<br />             n           -1<br />       )<br />       (while (setq s1 (ssname ss (setq n (1+ n))))<br />         (setq txt    (dxf 1 (entget s1)))<br />         (WRITE-LINE TXT fp)<br />         (princ ".")<br />       )<br />       (setq fp (close fp))<br />       (princ (strcat "输出完毕! 文本输出到 => " fn))<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> (PXYP "xzsc  (选择输出)")<br /> (princ)[/FONT]