（完成）[编程申请]：帮我编一个对指定文字加括号的程序把

lonnee · 发表于 2003-6-29 19:39:10

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

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

×

画图时常常用到通长筋要加括号的，每次都要把右手从鼠标上拿下来，按住shift，非常麻烦，谁帮帮我吧，

比如说有一个文字“4%%13120",通过一个命令变成"(4%%13120)",谢谢了。

eachy · 发表于 2003-6-29 20:37:11

最初由 lonnee 发布
[B]画图时常常用到通长筋要加括号的，每次都要把右手从鼠标上拿下来，按住shift，非常麻烦，谁帮帮我吧，

比如说有一个文字“4%%13120",通过一个命令变成"(4%%13120)",谢谢了。 [/B]

(defun c:test (/ ss)
(xdrx_begin)
(setq ss (ssget '((0 . "text"))))
(if ss
(progn
(xdrx_setsstodb ss 0)
(while (xdrx_getentdata 0)
(xdrx_modent 1 (strcat "(" (xdrx_getentdxf 1) ")"))
)
)
)
(xdrx_end)
)

coolzhb · 发表于 2003-6-29 21:00:25

我的文字修改大师可以实现，在vlisp编程板块
http://www.xdcad.net/forum/showthread.php?s=&threadid=51286

XDSoft · 发表于 2003-6-29 21:11:45

最初由 lonnee 发布
[B]画图时常常用到通长筋要加括号的，每次都要把右手从鼠标上拿下来，按住shift，非常麻烦，谁帮帮我吧，

比如说有一个文字“4%%13120",通过一个命令变成"(4%%13120)",谢谢了。 [/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>

iVox · 发表于 2003-6-30 10:17:36

XDSoft的程序似乎并不是针对批量加括号的情况。
贴一段，以供参考。我这个很简单，差别主要在思路上；不过倒还很实用。

其实也不止加“括号”，而是加“前缀”和“后缀”。
一个用法是：画立面图、剖面图的时候，你可以（用另一个程序）阵列一列数字，“1、2、3、4……”，然后可以对他们一次性地，前加“第”、后加“层”，于是就得到了“第1层、第2层、第3层、第4层……”。

[FONT=courier new]
(defun c:fixt (/ ss idx txtent newstr k)
(setq
fx_pre (if fx_pre fx_pre "")
fx_pos (if fx_pos fx_pos "")
)
(princ (strcat "\n前缀： '" fx_pre "'\t后缀： '" fx_pos "'"))
(initget "O S")
(setq
k (getkword "\nO选项/<S选择TEXT实体>: ")
k (if k k "S")
)
(if
(= k "O")
(setq
fx_pre (getstring 1 "\n前缀: ")
fx_pos (getstring 1 "\n后缀: ")
)
)
(setq ss (ssget '((0 . "text"))) idx 0)
(if ss
(repeat (sslength ss)
(setq
txtent (entget (ssname ss idx))
newstr (strcat fx_pre (cdr (assoc 1 txtent)) fx_pos)
)
(entmod (subst (cons 1 newstr) (assoc 1 txtent) txtent))
(setq idx (1+ idx))
)
)
(princ)
)
[/FONT]

chenhang1203 · 发表于 2003-7-3 15:12:52

好东西，谢谢

dazhu-119 · 发表于 2003-7-25 09:50:41

用2002的查找替换功能不就可以轻松解决吗。

菜单edit下 find

coolzhb · 发表于 2003-7-30 13:34:30

最初由 dazhu-119 发布
[B]用2002的查找替换功能不就可以轻松解决吗。

菜单edit下 find [/B]

find只能对相同的字修改，对不相同的字好像没办法了吧，需要通过编程实现。

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

（完成）[编程申请]：帮我编一个对指定文字加括号的程序把

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

相关帖子

Re: [编程申请]：帮我编一个对指定文字加括号的程序把

Re: [编程申请]：帮我编一个对指定文字加括号的程序把

浏览过的版块