[求助]将选择字符串的括号"()"里的字符改为"已修改"，

lengliqun

申请一个LSP程序，将选择字符串的括号"()"里的字符改为"已修改"，要求"已修改"三个字含在程序中。

yucpp

你要处理的字符串是单行文字还是多行文字，是不是尺寸标注的文字？说清楚点才好下手。

lengliqun

是单行文字

yshf

2. 
   
3. (if (wcmatch zfc "*(*)*")
   
4.         (progn
   
5.             (setq n1  (1+ (vl-string-search "(" zfc))
   
6.                   n2  (1+ (vl-string-search ")" zfc))
   
7.                   zfc (strcat (substr zfc 1 n1) "已修改" (substr zfc n2))
   
8.             )
   
9.         )
   
10.     )
    

<br /> (if (wcmatch zfc "*(*)*")<br />         (progn<br />             (setq n1  (1+ (vl-string-search "(" zfc))<br />                   n2  (1+ (vl-string-search ")" zfc))<br />                   zfc (strcat (substr zfc 1 n1) "已修改" (substr zfc n2))<br />             )<br />         )<br />     )<br />

lengliqun

5楼程序不完整，不知如何才能正确运行？

yshf

2. 
   
3. 
   
4. (defun c:vv()
   
5.     (if (setq ssa (ssget '((0 . "TEXT") (1 . "*(*)*"))))
   
6.         (progn
   
7.             (setq i  0  n (sslength ssa))
   
8.             (repeat n
   
9.                 (setq ent (ssname ssa i)
   
10.                       dxf (entget ent)
    
11.                       zfc (cdr (assoc 1 dxf))
    
12.                       n1  (1+ (vl-string-search "(" zfc))
    
13.                       n2  (1+ (vl-string-search ")" zfc))
    
14.                       zfc (strcat (substr zfc 1 n1) "已修改" (substr zfc n2))
    
15.                      dxf (subst (cons 1 zfc) (assoc 1 dxf) dxf)
    
16.                  )
    
17.                  (entmod dxf)
    
18.                  (setq i (1+ i))
    
19.             )
    
20.           )
    
21.      )
    
22.      (princ)
    
23. )
    

<br /> <br /> (defun c:vv()<br />     (if (setq ssa (ssget '((0 . "TEXT") (1 . "*(*)*"))))<br />         (progn<br />             (setq i  0  n (sslength ssa))<br />             (repeat n<br />                 (setq ent (ssname ssa i)<br />                       dxf (entget ent)<br />                       zfc (cdr (assoc 1 dxf))<br />                       n1  (1+ (vl-string-search "(" zfc))<br />                       n2  (1+ (vl-string-search ")" zfc))<br />                       zfc (strcat (substr zfc 1 n1) "已修改" (substr zfc n2))<br />                      dxf (subst (cons 1 zfc) (assoc 1 dxf) dxf)<br />                  )<br />                  (entmod dxf)<br />                  (setq i (1+ i))<br />             )<br />           )<br />      )<br />      (princ)<br /> )<br />

lengliqun

cad2004测试不成功：
命令: vv
选择对象: 找到 1 个
选择对象:  ; 错误: 参数类型错误: (or stringp symbolp): (1 . "KL1(1) 200x600")

yshf

不好意思，漏了这行，
dxf (subst (cons 1 zfc) (assoc 1 dxf) dxf)
7楼已更新。

lengliqun

问题还是没解决
命令: vv
选择对象: 找到 1 个
选择对象:
; 错误: 参数类型错误: (or stringp symbolp): (1 . "KL1(1) 200x600")