[求助]：文件名中带[ ]的无法改名，教如何解决。

海豚

文件名中带[ ]的无法改名，教如何解决。详见附件。

xyp1964

[php](command"rename""b" "[SBD] 十八人会议桌""十八人会议桌")[/php]

海豚

谢谢，试验过可行的，其实图块名中有“[ ”才会出现不可以改名的情况，能否帮忙编程，把图中带“[”号的图块名称中的" [ "都去掉。

xyp1964

最初由 海豚 发布
[B]谢谢，试验过可行的，其实图块名中有“[ ”才会出现不可以改名的情况，能否帮忙编程，把图中带“[”号的图块名称中的" [ "都去掉。 [/B]

怎么还说“不可以改名”？

海豚

不好意思，说得不清楚，我的意思是按你的方式可以把名字改过来，如果图中有几百个带 “ [ ”的图块，改起来有一定的难度，能否帮忙写个程序，把所以图块名字中带“ [ ”的自动改名，把“ [ ”去掉，以方便选择或编辑。谢谢。

xyp1964

最初由 海豚 发布
[B]不好意思，说得不清楚，我的意思是按你的方式可以把名字改过来，如果图中有几百个带 “ [ ”的图块，改起来有一定的难度，能否帮忙写个程序，把所以图块名字中带“ [ ”的自动改名，把“ [ ”去掉，以方便选择或编辑... [/B]

仍然没有说清楚！如果有几百个带“｛”或“A”的图块好处理吗？

2. [FONT=courier new](defun c:test ()
   
3.   (setq        ss (ssget '((0 . "INSERT")))
   
4.         i  -1
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.     (setq nm (cdr (assoc 2 (entget s1)))
   
8.           sb (substr nm 1 1)
   
9.     )
   
10.     (if        (= (substr nm 1 1) "[")
    
11.       (command "rename" "b" nm (substr nm 2))
    
12.     )
    
13.   )
    
14. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq nm (cdr (assoc 2 (entget s1)))<br />           sb (substr nm 1 1)<br />     )<br />     (if        (= (substr nm 1 1) "[")<br />       (command "rename" "b" nm (substr nm 2))<br />     )<br />   )<br /> )[/FONT]

LUCAS

2. 
   
3. (vlax-for OBJ (vla-get-blocks
   
4.                 (vla-get-activedocument (vlax-get-acad-object))
   
5.               )
   
6.   (if (wcmatch (setq NAME (vla-get-name OBJ)) "`[*")
   
7.     (vla-put-name OBJ (substr NAME 2))
   
8.   )
   
9. )
   

<br /> (vlax-for OBJ (vla-get-blocks<br />                 (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />   (if (wcmatch (setq NAME (vla-get-name OBJ)) "`[*")<br />     (vla-put-name OBJ (substr NAME 2))<br />   )<br /> )<br />

海豚

我想请教LUCAS版主的程序如何运行。
xyp1964 版主的程序可以使用，但“ [ ”在中间的情况就没有作用了。不过还是谢谢版主，看是否还能改进。

LUCAS

2. 
   
3. ;;By LUCAS
   
4. (defun C:TTTT (/ NAME NAME1)
   
5.   (vl-load-com)
   
6.   (vlax-for OBJ        (vla-get-blocks
   
7.                   (vla-get-activedocument (vlax-get-acad-object))
   
8.                 )
   
9.     (if        (wcmatch (setq NAME (vla-get-name OBJ)) "*`[*")
   
10.       (progn
    
11.         (setq N        1
    
12.               NAME1 ""
    
13.         )
    
14.         (repeat        (strlen NAME)
    
15.           (if (not (equal "[" (setq WORD (substr NAME N 1))))
    
16.             (setq NAME1 (strcat NAME1 WORD))
    
17.           )
    
18.           (setq N (1+ N))
    
19.         )
    
20.         (vla-put-name OBJ NAME1)
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

<br /> ;;By LUCAS<br /> (defun C:TTTT (/ NAME NAME1)<br />   (vl-load-com)<br />   (vlax-for OBJ        (vla-get-blocks<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />                 )<br />     (if        (wcmatch (setq NAME (vla-get-name OBJ)) "*`[*")<br />       (progn<br />         (setq N        1<br />               NAME1 ""<br />         )<br />         (repeat        (strlen NAME)<br />           (if (not (equal "[" (setq WORD (substr NAME N 1))))<br />             (setq NAME1 (strcat NAME1 WORD))<br />           )<br />           (setq N (1+ N))<br />         )<br />         (vla-put-name OBJ NAME1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

海豚

谢谢LUCAS版主，程序不错，无论“ [ ”的位置及数量多少，都能解决，完全满足我们的要求。十分感谢。

xyp1964

最初由 海豚 发布
[B]我想请教LUCAS版主的程序如何运行。
xyp1964 版主的程序可以使用，但“ [ ”在中间的情况就没有作用了。不过还是谢谢版主，看是否还能改进。 [/B]

2. [FONT=courier new];;;删除块名中的“[”和“]”
   
3. (defun c:test ()
   
4.   (setq        ss (ssget '((0 . "INSERT")(2 . "*[*,*]*")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq bname-old (cdr (assoc 2 (entget s1)))
   
9.           bname-new (bname-test bname-old)
   
10.     )
    
11.     (if        (/= bname-old bname-new)
    
12.       (command "rename" "b" bname-old bname-new)
    
13.     )
    
14.   )
    
15. )
    
16. (defun bname-test (str)
    
17.   (while (/= (vl-string-subst "" "[" str) str)
    
18.     (setq str (vl-string-subst "" "[" str))
    
19.   )
    
20.   (while (/= (vl-string-subst "" "]" str) str)
    
21.     (setq str (vl-string-subst "" "]" str))
    
22.   )
    
23.   str
    
24. )[/FONT]

[FONT=courier new];;;删除块名中的“[”和“]”<br /> (defun c:test ()<br />   (setq        ss (ssget '((0 . "INSERT")(2 . "*[*,*]*")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq bname-old (cdr (assoc 2 (entget s1)))<br />           bname-new (bname-test bname-old)<br />     )<br />     (if        (/= bname-old bname-new)<br />       (command "rename" "b" bname-old bname-new)<br />     )<br />   )<br /> )<br /> (defun bname-test (str)<br />   (while (/= (vl-string-subst "" "[" str) str)<br />     (setq str (vl-string-subst "" "[" str))<br />   )<br />   (while (/= (vl-string-subst "" "]" str) str)<br />     (setq str (vl-string-subst "" "]" str))<br />   )<br />   str<br /> )[/FONT]