（完成）[编程申请]：批量处理文字的程序

wcf · 发表于 2003-2-16 23:07:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能不能编一个给文字加各种括号的小程序，同时也能反向操作去掉括号，当然能批量处理文字，哪位高手有时间的话帮一下忙。

XDSoft · 发表于 2003-2-16 23:09:38

最初由 wcf 发布
[B]能不能编一个给文字加各种括号的小程序，同时也能反向操作去掉括号，当然能批量处理文字，哪位高手有时间的话帮一下忙。 [/B]

贴一个你画的各种括号的截图到论坛吧，并说明下什么专业什么情况下使用等等。

wcf · 发表于 2003-2-16 23:27:21

正常键盘上的括号即可，一般结构专业或建筑专业在文字处理时用的着，键盘一个一个输入挺麻烦，比喻屏幕上已经有了文字，执行一下程序，用鼠标点一下这个文字或几个文字，即可把括号加上去，反之用同样的方法去掉这些括号。

XDSoft · 发表于 2003-2-16 23:32:05

最初由 wcf 发布
[B]正常键盘上的括号即可，一般结构专业或建筑专业在文字处理时用的着，键盘一个一个输入挺麻烦，比喻屏幕上已经有了文字，执行一下程序，用鼠标点一下这个文字或几个文字，即可把括号加上去，反之用同样的方法去掉这些... [/B]

你还是截个图吧。

另外，用鼠标就不能批量处理了。加括号可能是中间一部分加吧？这些都需要判断，不能批量。

ll_j · 发表于 2003-2-17 12:03:38

我这里有一个程序可以加前后缀，可以试试。如果需要去除括号，只需使用find命令就可以了。

XDSoft · 发表于 2003-2-17 21:25:05

最初由 wcf 发布
[B]能不能编一个给文字加各种括号的小程序，同时也能反向操作去掉括号，当然能批量处理文字，哪位高手有时间的话帮一下忙。 [/B]

写好了，请试用，自动在鼠标点的起始和结束位置插入括号对，括号样式分3种。

程序在“晓东工具箱”下用。大家可以把代码拷贝下，粘贴到工具箱LISP目录的txt_tool.lsp 里面，调入后，用命令XDTB_TxtBracket 执行

<normalfont>
;|
命令：XDTB_TxtBracket
功能：在文字中插入括号对
|;
(defun c:XDTB_TxtBracket (/ e pos1 pos2 txt txt1 txt2 txt3 p1 p2)
(if (not (and
$bracket1
$bracket2
)
)
(setq $bracket1 "("
$bracket2 ")"
)
)
(while (and
(progn
(prompt (strcat "\n**当前括号样式：" $bracket1 $bracket2))
t
)
(progn
(initget "1 2 3")
(setq e (xdrx_entsel "\n请点取要处理的文字[1:() / 2:[] / 3:{}]<退出>:"
'((0 . "text"))
)
)
)
)
(cond
((= e "1")
(setq $bracket1 "("
$bracket2 ")"
)
)
((= e "2")
(setq $bracket1 "["
$bracket2 "]"
)
)
((= e "3")
(setq $bracket1 "{"
$bracket2 "}"
)
)
((/= e nil)
(setq e (car e))
(setq txt (xdrx_getentdxf 1))
(if (and
(setq p1 (getpoint "\n括号起始位置<退出>:"))
(setq p2 (getpoint "\n结束位置<退出>:"))
)
(progn
(xdrx_begin)
(if (not (setq pos1 (car ($xdlsp_txtbrk e p1))))
(setq pos1 0)
)
(if (not (setq pos2 (car ($xdlsp_txtbrk e p2))))
(setq pos2 (strlen txt))
)
(setq txt (xdrx_string_Insert txt pos1 $bracket1)
txt (xdrx_string_Insert txt (1+ pos2) $bracket2)
)
(xdrx_setenttodb e)
(xdrx_modent 1 txt)
(xdrx_end)
)
)
)
)
)
(princ)
)
</normalfont>

<normalfont> 
;| 
   命令：XDTB_TxtBracket 
   功能：在文字中插入括号对 
|; 
(defun c:XDTB_TxtBracket (/ e pos1 pos2 txt txt1 txt2 txt3 p1 p2) 
  (if (not (and 
             $bracket1 
             $bracket2 
           ) 
      ) 
    (setq $bracket1 "(" 
          $bracket2 ")" 
    ) 
  ) 
  (while (and 
           (progn 
             (prompt (strcat "\n**当前括号样式：" $bracket1 $bracket2)) 
             t 
           ) 
           (progn 
             (initget "1 2 3") 
             (setq e (xdrx_entsel "\n请点取要处理的文字[1:() / 2:[] / 3:{}]<退出>:" 
                                  '((0 . "text")) 
                     ) 
             ) 
           ) 
         ) 
    (cond 
      ((= e "1") 
        (setq $bracket1 "(" 
              $bracket2 ")" 
        ) 
      ) 
      ((= e "2") 
        (setq $bracket1 "[" 
              $bracket2 "]" 
        ) 
      ) 
      ((= e "3") 
        (setq $bracket1 "{" 
              $bracket2 "}" 
        ) 
      ) 
      ((/= e nil) 
        (setq e (car e)) 
        (setq txt (xdrx_getentdxf 1)) 
        (if (and 
              (setq p1 (getpoint "\n括号起始位置<退出>:")) 
              (setq p2 (getpoint "\n结束位置<退出>:")) 
            ) 
          (progn 
            (xdrx_begin) 
            (if (not (setq pos1 (car ($xdlsp_txtbrk e p1)))) 
              (setq pos1 0) 
            ) 
            (if (not (setq pos2 (car ($xdlsp_txtbrk e p2)))) 
              (setq pos2 (strlen txt)) 
            ) 
            (setq txt (xdrx_string_Insert txt pos1 $bracket1) 
                  txt (xdrx_string_Insert txt (1+ pos2) $bracket2) 
            ) 
            (xdrx_setenttodb e) 
            (xdrx_modent 1 txt) 
            (xdrx_end) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
</normalfont>

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_txtbracket.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_txtbracket.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

ggg · 发表于 2003-3-2 16:21:49

谢谢，标注标高时很有用。

best-tea · 发表于 2003-3-9 13:39:38

厉害

xjiansh · 发表于 2003-3-10 11:16:08

晓东斑竹：我想提一各小要求了，在点取的时候画出的括号的字体和原来的字体是一样的，在点取汉字的时候我用的是hztxt,它的括号不好看，我怎么才能把括号的字体变成别的好看的字体呢？（另外，我现在用的钢筋的字体是tssd的,一般的钢筋符号都是%%130诸如此类,我可不可以把%%130改成别的字符呢例如!,!!.!!!之类了,总之是比原来的可以少敲几个字母而且也不影响一般的输入,麻烦斑竹想一想了?

XDSoft · 发表于 2003-3-10 18:47:03

最初由 xjiansh 发布
[B]晓东斑竹：我想提一各小要求了，在点取的时候画出的括号的字体和原来的字体是一样的，在点取汉字的时候我用的是hztxt,它的括号不好看，我怎么才能把括号的字体变成别的好看的字体呢？（另外，我现在用的钢筋的字体是... [/B]

如果文字是一行，那么只能有一种字体，你的问题，你可以用“晓东工具箱”“文字工具”里面的“断开文字”，在需要的位置断开，然后修改需要的字型就可以了。

xjiansh · 发表于 2003-3-11 09:50:46

哦，是这样呀。那能不能先行设定括号的字体，比如都是ROMANS或别的什么,这样行吗？

XDSoft · 发表于 2003-3-11 19:23:32

最初由 xjiansh 发布
[B]哦，是这样呀。那能不能先行设定括号的字体，比如都是ROMANS或别的什么,这样行吗？ [/B]

你原来的文字用什么字体都可以，加括号，是加在你原来的实体内部，加完后改变原来实体的属性。

如果你希望单独换括号的样式，那么你就按照我说的方法断开文字。

程序不能太单一，你喜欢这个，那其他人喜欢其他的呢？工具是用来组合用的，不可能有万能的工具存在，遇到问题，多试试用多个工具来解决自己的问题。

xjiansh · 发表于 2003-3-12 11:26:30

是的，斑竹说的是。我先自己想想怎么办，有什么难点和问题再来请教......

lt_zzy · 发表于 2003-3-12 11:55:39

不知道你要怎么加括号，是不是在前面和后面同时加？
去掉括号是不是只去掉前面和后面的？

xianxl · 发表于 2003-5-15 13:15:58

最初由 XDSoft 发布
[B].......程序在“晓东工具箱”下用。大家可以把代码拷贝下，粘贴到工具箱LISP目录的txt_tool.lsp 里面，调入后，用命令XDTB_TxtBracket 执行[/B]

老大，提个意见。

0.27版以后你陆续写了很多很实用的工具，比如这个加括号工具。可你没有及时的将补丁整理、分类，仅说——大家可以把代码拷贝下，粘贴到工具箱LISP目录的txt_tool.lsp 里面，调入后，用命令XDTB_TxtBracket 执行。这个好懂，有时还有更难懂的专业术语让人不知所云。

你是专家，该论坛里也是有好多专家，可还有我等不是专家又需要该补丁的人怎么办？“用命令XDTB_TxtBracket 执行”，难道每次用该工具都要打上这么复杂的命令不成？记不住！

象另一个——将封闭的PLINE线转成INSTER柱子的补丁也是如此。——下载下面附件，拷贝到工具箱LISP目录，用 xdtb_colpl2blk 命令执行。我执行了，没有成功啊！一定是我操作有误！专家怎么没人说呢？来这个论坛的都是专家，不懂你别来。可我有需要时，每回你都说去看看以前的帖子，都写过了！

我还是不会用！象个傻瓜！

建议以后你写完程序以后，给傻瓜们写的简单点，明白点，易懂点的说明，最好能点击加载后有个菜单添加进来更直观。否则，你会经常碰到烦你的问题。

账号		自动登录	找回密码
密码			立即注册

（完成）[编程申请]：批量处理文字的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：批量处理文字的程序

Re: [编程申请]：批量处理文字的程序

Re: Re: [编程申请]：批量处理文字的程序

浏览过的版块