悬赏30币，如何删除括号后的字符

664571221

悬赏30币，如何删除括号后的字符，和括号前的字符，如123（2）455，删除括号后的字符为123（2），删除括号前的字符为455

tryhi

2. 
   
3. (defun c:tt ()
   
4.         (setq ss(ssget '((0 . "*TEXT"))))
   
5.         (setq en-list(try-ss2EnList ss))
   
6.         (foreach n en-list (try-set-dxf n 1 (sut(try-get-dxf n 1))))
   
7. )
   
8. (defun sut (str)
   
9.   (substr str 1 (1+ (vl-string-search ")" str)))
   
10. )
    
11. (defun try-ss2EnList(ss / a en lst)
    
12.         (if ss(progn(setq a -1)
    
13.                                         (while(setq en(ssname ss(setq a(1+ a))))
    
14.                                                 (setq lst(cons en lst)))))
    
15.         lst)
    
16. (defun try-set-dxf (ename code val / ent x y i s1);注：原创为：xpy院长
    
17.         (cond ((= (type ename) 'ENAME)
    
18.                                         (setq ent (entget ename))
    
19.                                         (if (and (= (type code) 'LIST) (= (type val) 'LIST))
    
20.                                                 (mapcar '(lambda (x y) (try-set-dxf ename x y)) code val)
    
21.                                                 (progn
    
22.                                                         (if (try-get-dxf ename code)
    
23.                                                                 (entmod (subst (cons code val) (assoc code ent) ent))
    
24.                                                                 (entmod (append ent (list (cons code val))))
    
25.                                                         )
    
26.                                                         (entupd ename)
    
27.                                                 )
    
28.                                         )
    
29.                                 )
    
30.                 ((= (type ename) 'PICKSET)
    
31.                         (setq i -1)
    
32.                         (while (setq s1 (ssname ename (setq i (1+ i))))
    
33.                                 (try-set-dxf s1 code val)
    
34.                         )
    
35.                 )
    
36.                 ((= (type ename) 'LIST)
    
37.                         (foreach s1 ename (try-set-dxf s1 code val))
    
38.                 )
    
39.         )
    
40.         ename
    
41. )
    
42. (defun try-get-dxf (en code )
    
43.         (cond ((= (type en) 'ENAME)
    
44.                                         (cdr (assoc code (entget en))))
    
45.                 ((= (type en) 'list)
    
46.                         (mapcar '(lambda(x)(try-get-dxf x code)) en))
    
47.                 ((= (type en) 'PICKSET)
    
48.                         (try-get-dxf (try-ss2EnList en)code))
    
49.         )
    
50. )

<br /> (defun c:tt ()<br />         (setq ss(ssget '((0 . "*TEXT"))))<br />         (setq en-list(try-ss2EnList ss))<br />         (foreach n en-list (try-set-dxf n 1 (sut(try-get-dxf n 1))))<br /> )<br /> (defun sut (str)<br />   (substr str 1 (1+ (vl-string-search ")" str)))<br /> )<br /> (defun try-ss2EnList(ss / a en lst)<br />         (if ss(progn(setq a -1)<br />                                         (while(setq en(ssname ss(setq a(1+ a))))<br />                                                 (setq lst(cons en lst)))))<br />         lst)<br /> (defun try-set-dxf (ename code val / ent x y i s1);注：原创为：xpy院长<br />         (cond ((= (type ename) 'ENAME)<br />                                         (setq ent (entget ename))<br />                                         (if (and (= (type code) 'LIST) (= (type val) 'LIST))<br />                                                 (mapcar '(lambda (x y) (try-set-dxf ename x y)) code val)<br />                                                 (progn<br />                                                         (if (try-get-dxf ename code)<br />                                                                 (entmod (subst (cons code val) (assoc code ent) ent))<br />                                                                 (entmod (append ent (list (cons code val))))<br />                                                         )<br />                                                         (entupd ename)<br />                                                 )<br />                                         )<br />                                 )<br />                 ((= (type ename) 'PICKSET)<br />                         (setq i -1)<br />                         (while (setq s1 (ssname ename (setq i (1+ i))))<br />                                 (try-set-dxf s1 code val)<br />                         )<br />                 )<br />                 ((= (type ename) 'LIST)<br />                         (foreach s1 ename (try-set-dxf s1 code val))<br />                 )<br />         )<br />         ename<br /> )<br /> (defun try-get-dxf (en code )<br />         (cond ((= (type en) 'ENAME)<br />                                         (cdr (assoc code (entget en))))<br />                 ((= (type en) 'list)<br />                         (mapcar '(lambda(x)(try-get-dxf x code)) en))<br />                 ((= (type en) 'PICKSET)<br />                         (try-get-dxf (try-ss2EnList en)code))<br />         )<br /> )

aihuyujian

(substr "123（2）455" 1 (+ (vl-string-search "）" "123（2）455") 2)) ;中文括号------------"123（2）"
(substr "123(2)455" 1 (+ (vl-string-search ")" "123(2)455") 1)) ;英文括号------------"123(2)"
(substr "123（2）455" (+ (vl-string-search "）" "123（2）455") 3)) ;中文括号------------"455"
(substr "123(2)455" (+ (vl-string-search ")" "123(2)455") 2)) ;英文括号------------"455"

cable2004

(defun LM:getfiles:str->lst ( str del / pos )
    (if (setq pos (vl-string-search del str))
        (cons (substr str 1 pos) (LM:getfiles:str->lst (substr str (+ pos 1 (strlen del))) del))
        (list str)
    )
)

(defun c:kk()
(car (LM:getfiles:str->lst  "123（2）455" "）"))
  )

自贡黄明儒

(vl-string-right-trim "1234567890" "123（2）455")
====>"123（2）"

tryhi

2. (defun c:tt (/ box data data2 en-list pt10 pt10-2 pt11 pt11-2 ss str txt1 txt2)
   
3.   (setq ss(ssget '((0 . "*TEXT"))))
   
4.   (setq en-list(try-ss2EnList ss))
   
5.   ;(setq n (entselx))
   
6.   (foreach n en-list
   
7.     (try-set-dxf n 1 (setq txt1(sut1(setq str(try-get-dxf n 1)))))
   
8.     (setq
   
9.       data(entget n)
   
10.       pt10(try-get-dxf n 10)
    
11.       pt11(try-get-dxf n 11)
    
12.       box(textbox (subst (cons 1 (strcat "----" txt1))(cons 1 txt1)data))
    
13.       txt2(sut2 str)
    
14.       pt10-2 (mapcar '+ (list (car(cadr box))0)pt10)
    
15.       pt11-2 (mapcar '+ (list (car(cadr box))0)pt11)
    
16.       data2(cdr data)
    
17.       data2(subst (cons 10 pt10-2)(cons 10 pt10)data2)
    
18.       data2(subst (cons 11 pt11-2)(cons 11 pt11)data2)
    
19.       data2(subst (cons 1 txt2)(cons 1 txt1)data2)
    
20.       
    
21.     )
    
22.     (entmakex data2)
    
23.   )
    
24. )
    
25. (defun c:tt2 (/ en-list ss)
    
26.   (setq ss(ssget '((0 . "*TEXT"))))
    
27.   (setq en-list(try-ss2EnList ss))
    
28.   (foreach n en-list (try-set-dxf n 1 (sut1(try-get-dxf n 1))))
    
29. )
    
30. 
    
31. 
    
32. (defun sut1(str / x)
    
33.   (setq x(car(try-StrRegExp str "[^\\)）]+[\\)）]")))
    
34.   (if x x str)
    
35. )
    
36. (defun sut2(str / x)
    
37.   (setq x(last(try-StrRegExp str "[^\\)）]+")))
    
38.   (if x x str)
    
39. )
    
40. 
    
41. 
    
42. (defun try-ss2EnList(ss / a en lst)
    
43.   (if ss(progn(setq a -1)
    
44.           (while(setq en(ssname ss(setq a(1+ a))))
    
45.             (setq lst(cons en lst)))))
    
46.   lst)
    
47. (defun try-set-dxf (ename code val / ent x y i s1);注：原创为：xpy院长
    
48.   (cond ((= (type ename) 'ENAME)
    
49.           (setq ent (entget ename))
    
50.           (if (and (= (type code) 'LIST) (= (type val) 'LIST))
    
51.             (mapcar '(lambda (x y) (try-set-dxf ename x y)) code val)
    
52.             (progn
    
53.               (if (try-get-dxf ename code)
    
54.                 (entmod (subst (cons code val) (assoc code ent) ent))
    
55.                 (entmod (append ent (list (cons code val))))
    
56.               )
    
57.               (entupd ename)
    
58.             )
    
59.           )
    
60.         )
    
61.     ((= (type ename) 'PICKSET)
    
62.       (setq i -1)
    
63.       (while (setq s1 (ssname ename (setq i (1+ i))))
    
64.         (try-set-dxf s1 code val)
    
65.       )
    
66.     )
    
67.     ((= (type ename) 'LIST)
    
68.       (foreach s1 ename (try-set-dxf s1 code val))
    
69.     )
    
70.   )
    
71.   ename
    
72. )
    
73. (defun try-get-dxf (en code )
    
74.   (cond ((= (type en) 'ENAME)
    
75.           (cdr (assoc code (entget en))))
    
76.     ((= (type en) 'list)
    
77.       (mapcar '(lambda(x)(try-get-dxf x code)) en))
    
78.     ((= (type en) 'PICKSET)
    
79.       (try-get-dxf (try-ss2EnList en)code))
    
80.   )
    
81. )
    
82. (defun try-StrRegExp(str1 expr)
    
83.   (_Replace str1 expr nil "")
    
84. )
    
85. (defun _Replace(str1 str2 bull str3 / lst matchcollect reg)
    
86.   (setq lst '())
    
87.   (setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式
    
88.   (if (null reg)(progn(alert "发现系统vbscript没有注册，现尝试对其注册")(command"shell" "regsvr32 vbscript.dll")(setq reg (vlax-create-object "vbscript.regexp"))))
    
89.   (vlax-put-property reg 'global -1) ;是否匹配全部 （-1是 ，0 不是）
    
90.   (vlax-put-property reg 'Multiline -1);是否多行匹配 （-1是 ，0 不是）
    
91.   (vlax-put-property reg 'IgnoreCase -1);是否忽略大小写 （-1是 ，0 不是）
    
92.   (vlax-put-property reg 'pattern str2);lisp \\
    
93.   ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配
    
94.   (if (vlax-invoke-method reg 'test str1)
    
95.     ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合   
    
96.     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))
    
97.       ;;;   3.打印匹配的每个集合元素的value   
    
98.       (vlax-for match_item matchcollect (setq lst(cons(eval (vlax-get-property match_item 'value))lst)))
    
99.     )
    
100.   )
     
101.   ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本   
     
102.   (setq lst(reverse lst))
     
103.   (if bull
     
104.     (setq lst(vlax-invoke-method reg 'Replace str1 str3)))
     
105.   ;;;  ----------------- end 正则表达式方法
     
106.   (vlax-release-object reg);释放内存
     
107.   lst
     
108. )

(defun c:tt (/ box data data2 en-list pt10 pt10-2 pt11 pt11-2 ss str txt1 txt2)<br />   (setq ss(ssget '((0 . "*TEXT"))))<br />   (setq en-list(try-ss2EnList ss))<br />   ;(setq n (entselx))<br />   (foreach n en-list <br />     (try-set-dxf n 1 (setq txt1(sut1(setq str(try-get-dxf n 1)))))<br />     (setq <br />       data(entget n)<br />       pt10(try-get-dxf n 10)<br />       pt11(try-get-dxf n 11)<br />       box(textbox (subst (cons 1 (strcat "----" txt1))(cons 1 txt1)data))<br />       txt2(sut2 str)<br />       pt10-2 (mapcar '+ (list (car(cadr box))0)pt10)<br />       pt11-2 (mapcar '+ (list (car(cadr box))0)pt11)<br />       data2(cdr data)<br />       data2(subst (cons 10 pt10-2)(cons 10 pt10)data2)<br />       data2(subst (cons 11 pt11-2)(cons 11 pt11)data2)<br />       data2(subst (cons 1 txt2)(cons 1 txt1)data2)<br />       <br />     )<br />     (entmakex data2)<br />   )<br /> )<br /> (defun c:tt2 (/ en-list ss)<br />   (setq ss(ssget '((0 . "*TEXT"))))<br />   (setq en-list(try-ss2EnList ss))<br />   (foreach n en-list (try-set-dxf n 1 (sut1(try-get-dxf n 1))))<br /> )<br /> <br /> <br /> (defun sut1(str / x)<br />   (setq x(car(try-StrRegExp str "[^\\)）]+[\\)）]")))<br />   (if x x str)<br /> )<br /> (defun sut2(str / x)<br />   (setq x(last(try-StrRegExp str "[^\\)）]+")))<br />   (if x x str)<br /> )<br /> <br /> <br /> (defun try-ss2EnList(ss / a en lst)<br />   (if ss(progn(setq a -1)<br />           (while(setq en(ssname ss(setq a(1+ a))))<br />             (setq lst(cons en lst)))))<br />   lst)<br /> (defun try-set-dxf (ename code val / ent x y i s1);注：原创为：xpy院长<br />   (cond ((= (type ename) 'ENAME)<br />           (setq ent (entget ename))<br />           (if (and (= (type code) 'LIST) (= (type val) 'LIST))<br />             (mapcar '(lambda (x y) (try-set-dxf ename x y)) code val)<br />             (progn<br />               (if (try-get-dxf ename code)<br />                 (entmod (subst (cons code val) (assoc code ent) ent))<br />                 (entmod (append ent (list (cons code val))))<br />               )<br />               (entupd ename)<br />             )<br />           )<br />         )<br />     ((= (type ename) 'PICKSET)<br />       (setq i -1)<br />       (while (setq s1 (ssname ename (setq i (1+ i))))<br />         (try-set-dxf s1 code val)<br />       )<br />     )<br />     ((= (type ename) 'LIST)<br />       (foreach s1 ename (try-set-dxf s1 code val))<br />     )<br />   )<br />   ename<br /> )<br /> (defun try-get-dxf (en code )<br />   (cond ((= (type en) 'ENAME)<br />           (cdr (assoc code (entget en))))<br />     ((= (type en) 'list)<br />       (mapcar '(lambda(x)(try-get-dxf x code)) en))<br />     ((= (type en) 'PICKSET)<br />       (try-get-dxf (try-ss2EnList en)code))<br />   )<br /> )<br /> (defun try-StrRegExp(str1 expr)<br />   (_Replace str1 expr nil "")<br /> )<br /> (defun _Replace(str1 str2 bull str3 / lst matchcollect reg)<br />   (setq lst '())<br />   (setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式<br />   (if (null reg)(progn(alert "发现系统vbscript没有注册，现尝试对其注册")(command"shell" "regsvr32 vbscript.dll")(setq reg (vlax-create-object "vbscript.regexp"))))<br />   (vlax-put-property reg 'global -1) ;是否匹配全部 （-1是 ，0 不是）<br />   (vlax-put-property reg 'Multiline -1);是否多行匹配 （-1是 ，0 不是）<br />   (vlax-put-property reg 'IgnoreCase -1);是否忽略大小写 （-1是 ，0 不是）<br />   (vlax-put-property reg 'pattern str2);lisp \\<br />   ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配<br />   (if (vlax-invoke-method reg 'test str1)<br />     ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合    <br />     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))<br />       ;;;   3.打印匹配的每个集合元素的value    <br />       (vlax-for match_item matchcollect (setq lst(cons(eval (vlax-get-property match_item 'value))lst)))<br />     )<br />   )<br />   ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本    <br />   (setq lst(reverse lst))<br />   (if bull<br />     (setq lst(vlax-invoke-method reg 'Replace str1 str3)))<br />   ;;;  ----------------- end 正则表达式方法<br />   (vlax-release-object reg);释放内存<br />   lst<br /> )

机械工程师

原创为：xpy院长
院长看到这个该生气了。

shopping200

删除括号，和括号内的文字。怎么改？