【已解决】【求助】图层名称去前缀

yangchao2005090

2. ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100184&highlight=%CD%BC%B2%E3%2B%C7%B0%D7%BA
   
3. ;!!!全部图层加前缀<除0,Defpoints>
   
4. (defun c:tt ( / YY_QIANZ *doc* LAY LAYERS OLDMING)
   
5.   (vl-load-com)
   
6.   (setq YY_QIANZ (getstring "\n输入图层要加的前缀:"))
   
7.   (if YY_QIANZ
   
8.     (progn
   
9.   (setq *doc* (vla-get-activedocument (vlax-get-acad-object))
   
10.         layers (vla-get-layers *doc*)
    
11.   )
    
12.   (vlax-for lay layers (setq OLDMING (vla-get-name lay))
    
13.             (if (not (member OLDMING '("0" "Defpoints")))
    
14.               (vla-put-Name lay (strcat YY_QIANZ OLDMING))
    
15.             )
    
16.   )
    
17.     )
    
18.   )
    
19. )

;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100184&highlight=%CD%BC%B2%E3%2B%C7%B0%D7%BA<br /> ;!!!全部图层加前缀<除0,Defpoints><br /> (defun c:tt ( / YY_QIANZ *doc* LAY LAYERS OLDMING)<br />   (vl-load-com)<br />   (setq YY_QIANZ (getstring "\n输入图层要加的前缀:"))<br />   (if YY_QIANZ <br />     (progn<br />   (setq *doc* (vla-get-activedocument (vlax-get-acad-object))<br />         layers (vla-get-layers *doc*)<br />   )<br />   (vlax-for lay layers (setq OLDMING (vla-get-name lay))<br />             (if (not (member OLDMING '("0" "Defpoints")))<br />               (vla-put-Name lay (strcat YY_QIANZ OLDMING))<br />             )<br />   )<br />     )<br />   )<br /> )

上面是给图层名称加前缀的代码，请问如果需要反向操作，去掉已经加上去的前缀改怎么改呀

自贡黄明儒

还是这个程序，只不过对OLDMING字符串要处理,比如在它前面剪切掉什么东西

yangchao2005090

自贡黄明儒 发表于 2019-5-31 16:37
还是这个程序，只不过对OLDMING字符串要处理,比如在它前面剪切掉什么东西

你那边有程序可以处理吗？

xyp1964

1. ;; 图层去前缀
   
2. (defun c:tt ()
   
3.   (if (setq qz (getstring "\n输入图层要删除的前缀: "))
   
4.     (vlax-for la (vla-get-layers(vla-get-activedocument (vlax-get-acad-object)))
   
5.       (setq tx (vla-get-name la))
   
6.       (if (and (not (member tx '("0" "Defpoints")))(vl-string-search qz tx))
   
7.         (vla-put-Name la (substr tx (1+ (strlen qz))))
   
8.       )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

;; 图层去前缀<br /> (defun c:tt ()<br />   (if (setq qz (getstring "\n输入图层要删除的前缀: "))<br />     (vlax-for la (vla-get-layers(vla-get-activedocument (vlax-get-acad-object)))<br />       (setq tx (vla-get-name la))<br />       (if (and (not (member tx '("0" "Defpoints")))(vl-string-search qz tx))<br />         (vla-put-Name la (substr tx (1+ (strlen qz))))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

yangchao2005090

xyp1964 发表于 2019-5-31 21:36

感谢院长，院长厉害啊