求一个指定文字加减()的lsp

chleiwu

在画结构施工图的时候经常要给架立筋加(),
但是网上收集到得程序都是给整个字符加()，
比如2%%13214;4%%13218变成了(2%%13214;4%%13218)----即A;B---->(A;B)
但实际工程需要的是(2%%13214);4%%13218------即A;B---->(A);B
或者2%%13225+2%%13214;4%%13218变成2%%13225+(2%%13214);4%%13218
即A+B;C---->A+(B);C
求一个能满足此功能的lsp，
可能由于行业不同，上述表述不太清楚
所以再详细补充下要求：
首先输入需要加括号的字符串(支持钢筋符号%%130~%%131)，输入后即为默认值(执行前可修改)
然后点选(框选)含此字符串的文字，自动给该字符串左右加上括号(点完即可看到加上括号了)
要求选择是可以连续操作的，退出前可以一直选择目标
为防止给不需要加()的配筋误选加了括号，
同时提供删括号功能，即同一字符串如果已有括号则删除此括号
要求可能有点高，故提高悬赏，
求Z版及其它高手再出手帮忙

夏生生

您这个要求相对简单，但是对于不是本专业的人，对您的要求摸不到头脑，个人认为括号应该在输入钢筋的时候就输入进去，不过按您的要求写了一个，看看是否符合

2. 
   
3. ;;;仅针对集中标注
   
4. ;;;对于集中标注来讲三种情况
   
5. ;;;一只有面筋，一有分号前面就是架立筋，一有分号前面不是架立筋但必有+号
   
6. (defun c:jlj (/ en ent str obj n m)
   
7.   (while (setq en (car (entsel)))
   
8.     (setq ent (entget en)
   
9.    str (cdr (assoc 1 ent))
   
10.    obj (vlax-ename->vla-object en)
    
11.     )
    
12.     (if (and (= "TEXT" (cdr (assoc 0 ent)))
    
13.       (vl-string-search "%%13" str)
    
14. )
    
15.       (if (vl-string-search "(" str)
    
16. (progn
    
17. (while (vl-string-search "(" str) (setq str (vl-string-subst "" "(" str)))
    
18. (while (vl-string-search ")" str) (setq str (vl-string-subst "" ")" str)))
    
19. (vla-put-TextString obj str)
    
20.   (princ "\n您选择钢筋文字已示架立筋，默认去除，重新选择恢复")
    
21. )
    
22. (if (setq n (vl-string-search ";" str))
    
23.    (if (setq m (vl-string-search "+" str))
    
24.      (vla-put-TextString
    
25.        obj
    
26.        (strcat (substr str 1 (1+ m))
    
27.         "("
    
28.         (substr str (+ 2 m) (- n m 1))
    
29.         ")"
    
30.         (substr str (+ 1 n))
    
31.        )
    
32.      )
    
33.      (vla-put-TextString
    
34.        obj
    
35.        (strcat "(" (substr str 1 n) ")" (substr str (+ 1 n)))
    
36.      )
    
37.    )
    
38.    (vla-put-TextString obj (strcat "(" str ")"))
    
39. )
    
40.       )
    
41.       (princ "\n您选择的不是钢筋文字请重新选择")
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )

<br /> ;;;仅针对集中标注<br /> ;;;对于集中标注来讲三种情况<br /> ;;;一只有面筋，一有分号前面就是架立筋，一有分号前面不是架立筋但必有+号<br /> (defun c:jlj (/ en ent str obj n m)<br />   (while (setq en (car (entsel)))<br />     (setq ent (entget en)<br />    str (cdr (assoc 1 ent))<br />    obj (vlax-ename->vla-object en)<br />     )<br />     (if (and (= "TEXT" (cdr (assoc 0 ent)))<br />       (vl-string-search "%%13" str)<br /> )<br />       (if (vl-string-search "(" str)<br /> (progn<br /> (while (vl-string-search "(" str) (setq str (vl-string-subst "" "(" str)))<br /> (while (vl-string-search ")" str) (setq str (vl-string-subst "" ")" str)))<br /> (vla-put-TextString obj str)<br />   (princ "\n您选择钢筋文字已示架立筋，默认去除，重新选择恢复")<br /> )<br /> (if (setq n (vl-string-search ";" str))<br />    (if (setq m (vl-string-search "+" str))<br />      (vla-put-TextString<br />        obj<br />        (strcat (substr str 1 (1+ m))<br />         "("<br />         (substr str (+ 2 m) (- n m 1))<br />         ")"<br />         (substr str (+ 1 n))<br />        )<br />      )<br />      (vla-put-TextString<br />        obj<br />        (strcat "(" (substr str 1 n) ")" (substr str (+ 1 n)))<br />      )<br />    )<br />    (vla-put-TextString obj (strcat "(" str ")"))<br /> )<br />       )<br />       (princ "\n您选择的不是钢筋文字请重新选择")<br />     )<br />   )<br />   (princ)<br /> )

wowan1314

FIND命令就够啦

chleiwu

wowan1314 发表于 2012-12-8 10:48
FIND命令就够啦

find无视图层，属于无差别攻击啊
我只要修改集中标注上的架立筋

xiabin68

学习了，，，顶起，，，

chleiwu

我画图框架梁KL和次梁L的集中标注一般在同一个图层
所以“用图层工具锁非选层把不需要改的图层锁定。然后FIND”这个手段对我来说还是会误判
因为框架梁都是通长筋，不需要加括号，只有次梁是架立筋
每次手工加()还蛮烦得
所以求这个lsp主要还是点选，需要加()的字符是需要记忆功能的
如果框选的话要根据集中标注的L与KL差别来自动判断是否为次梁L
估计很难

阿然

主要是判断是否有2个%%132，一级钢应该是%%131吧，如果这个有两个，那就找分号，找到分号位置，判断分号前面的字符是不是)号，如果是就不加括号了，如果不是，就加上括号，是不是这么理解？

xiabin68

这要有结构的知识，我还是新手，看不来钢筋的，，，

wau2000022

可以联系我QQ：496968041

chleiwu

不需要结构知识的吧，反正需要加括号的字符是要人工输入的