如何批量将布局名称自动编号

yansu

请高手帮忙如何批量将布局名称自动编号，即将布局1，布局2，布局3-----更换为C-1，C-2，C-3----前缀可以自定义。这在布局中作图很有用。可以选择布局进行编号。非常谢谢。

edata

来个按布局句柄排序的改名

1. (defun c:tt(/ i str obj)
   
2.   (setq i 0)  
   
3.   (vlax-for obj (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.     (if (not(member (vla-get-name obj) '("Model" "模型")))
   
5.       (vla-put-name obj (strcat "sk2014-" (itoa(setq i(1+ i)))))
   
6.       )
   
7.     )
   
8.   (setq lst '())
   
9.   (vlax-for obj (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   
10.     (if (not(member (vla-get-name obj) '("Model" "模型")))
    
11.       (setq lst(cons (vla-get-Handle obj) lst))
    
12.       )   
    
13.     )
    
14.   (setq lst (vl-sort   lst '(lambda(x y)(< (16to10 x) (16to10 y)))))
    
15.   (setq i 0)
    
16.   (setq str "c-")
    
17.   (while(setq a(car lst))
    
18.     (sk_relayout (vla-get-name (vlax-ename->vla-object(handent a))) (strcat str (itoa(setq i(1+ i)))))
    
19.     (setq lst(cdr lst))
    
20.     )
    
21.   (princ)
    
22.   )
    
23. (defun sk_relayout (oldName newName)  
    
24.   (vla-put-name (vla-item (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) oldName) newName)
    
25. )
    
26. 
    
27. ;;16进制转10进制
    
28. ;;http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795
    
29. 
    
30. (defun 16to10(str / LEN NUM10 WEIZHI ZIFU)
    
31.    (setq len(strlen str))
    
32.    (setq weizhi 1)
    
33.    (setq num10 0)
    
34.    (repeat len
    
35.      (setq zifu (substr str weizhi 1))
    
36.      (cond
    
37.      ((and (>= (ascii (strcase zifu)) 65) (<= (ascii (strcase zifu)) 70)) (setq zifu (- (ascii (strcase zifu)) 55)))
    
38.      ((and (>= (ascii zifu) 48) (<= (ascii zifu) 57)) (setq zifu (atoi zifu)))
    
39.      )
    
40.      (setq num10 (+ (* num10 16) zifu))
    
41.      (setq weizhi (1+ weizhi))
    
42.      )
    
43.      num10
    
44.    )

(defun c:tt(/ i str obj)<br />   (setq i 0)  <br />   (vlax-for obj (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (if (not(member (vla-get-name obj) '("Model" "模型")))<br />       (vla-put-name obj (strcat "sk2014-" (itoa(setq i(1+ i)))))<br />       )<br />     )<br />   (setq lst '()) <br />   (vlax-for obj (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (if (not(member (vla-get-name obj) '("Model" "模型")))<br />       (setq lst(cons (vla-get-Handle obj) lst))<br />       )    <br />     )<br />   (setq lst (vl-sort   lst '(lambda(x y)(< (16to10 x) (16to10 y)))))<br />   (setq i 0)<br />   (setq str "c-")<br />   (while(setq a(car lst))<br />     (sk_relayout (vla-get-name (vlax-ename->vla-object(handent a))) (strcat str (itoa(setq i(1+ i)))))<br />     (setq lst(cdr lst))<br />     )<br />   (princ)<br />   )<br /> (defun sk_relayout (oldName newName)  <br />   (vla-put-name (vla-item (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) oldName) newName)<br /> )<br /> <br /> ;;16进制转10进制<br /> ;;<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100771&fromuid=338795" target="_blank">http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795</a><br /> <br /> (defun 16to10(str / LEN NUM10 WEIZHI ZIFU)<br />    (setq len(strlen str))<br />    (setq weizhi 1)<br />    (setq num10 0)<br />    (repeat len<br />      (setq zifu (substr str weizhi 1))<br />      (cond<br />      ((and (>= (ascii (strcase zifu)) 65) (<= (ascii (strcase zifu)) 70)) (setq zifu (- (ascii (strcase zifu)) 55)))<br />      ((and (>= (ascii zifu) 48) (<= (ascii zifu) 57)) (setq zifu (atoi zifu)))<br />      )<br />      (setq num10 (+ (* num10 16) zifu))<br />      (setq weizhi (1+ weizhi))<br />      )<br />      num10<br />    )

Aries

edata 发表于 2014-8-1 16:30
来个按布局句柄排序的改名

这个( ^_^ )不错嘛，收藏一下

Andyhon

info: http://forums.augi.com/archive/index.php/t-77060.html

(vl-load-com)
(defun RenLay (kword / n)
  (setq n 1)
  (vlax-for x (vla-get-Layouts
                (vla-get-ActiveDocument (vlax-get-acad-object))
              )
    (if  (not (eq (strcase (vla-get-name x)) "MODEL"))
      (vla-put-Name x (strcat kword  (itoa n)))
    )
    (setq n (1+ n))
  )
)

Call it like this...
(renlay "PLOT")
...to have all the layouts renamed to PLOT1, PLOT2, PLOT3, etc.
....

yangchao2005090

edata 发表于 2014-8-1 16:30
来个按布局句柄排序的改名

您好，请教一下，因为有很多条路，需要建立不用布局，假如我吧路名全部放到一个txt文件里面，比如路名是路1，路2，路3，可否选定这个txt直接改布局名称呀

kdanqu

没币帮顶！！！！！！！

f4800

edata 发表于 2014-8-1 16:30
来个按布局句柄排序的改名

好用  找了很久  多谢分享

520kim

no function definition: 16TO10

zhwc125

谢谢分享，先下载学习一下！

xyp1964

1. (defun c:tt ()
   
2.   "布局按顺序统一编号"
   
3.   (setq pr  "C-"
   
4.         lst '()
   
5.         i   0
   
6.   )
   
7.   (vlax-for a (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   
8.     (setq lst (cons (list (vla-get-TabOrder a) a) lst))
   
9.   )
   
10.   (setq lst (vl-sort lst '(lambda (x y) (< (car x) (car y)))))
    
11.   (mapcar '(lambda (x) (vla-put-name x (strcat pr (itoa (setq i (1+ i))))))(mapcar 'last (cdr lst)))
    
12.   (princ)
    
13. )

(defun c:tt ()<br />   "布局按顺序统一编号"<br />   (setq pr  "C-"<br />         lst '()<br />         i   0<br />   )<br />   (vlax-for a (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))<br />     (setq lst (cons (list (vla-get-TabOrder a) a) lst))<br />   )<br />   (setq lst (vl-sort lst '(lambda (x y) (< (car x) (car y)))))<br />   (mapcar '(lambda (x) (vla-put-name x (strcat pr (itoa (setq i (1+ i))))))(mapcar 'last (cdr lst)))<br />   (princ)<br /> )