还是关于布局空间，请教大家

weilu

问题描述如下：已设置好一个布局，如何复制n个上述布局，并且将所有的布局的名称改掉？

edata

Command: layout
Enter layout option [Copy/Delete/New/Template/Rename/SAveas/Set/?] <set>: c
Enter name of layout to copy <Layout1>:
Enter layout name for copy <Layout1 (3)>: 新图1
Layout "Layout1" copied to "新图1".

weilu

edata 发表于 2015-7-15 14:06
Command: layout
Enter layout option [Copy/Delete/New/Template/Rename/SAveas/Set/?] : c
Enter name  ...

用vlisp语言怎么实现？

edata

    (vl-cmdf "_.layout" "_copy" clayoutName tmpName)
    (vl-cmdf "_.layout" "_rename" clayoutName NLayoutName)

weilu

edata 发表于 2015-7-15 17:20
(vl-cmdf "_.layout" "_copy" clayoutName tmpName)
    (vl-cmdf "_.layout" "_rename" clayoutNam ...

有没有更加高级的方法？

edata

高级的代码不止一行。
参见LEE-MAC的布局分图

1. (defun c:layoutcutter ( / cnt doc idx lay lst new prf psp sel str tmp )
   
2.     (setq prf "Layout"
   
3.           psp (= 1 (getvar 'cvport))
   
4.     )
   
5.     (if (setq sel (ssget "_:L" (list (if psp (cons 410 (getvar 'ctab)) '(410 . "Model")))))
   
6.         (progn
   
7.             (setq doc (vla-get-activedocument (vlax-get-acad-object))
   
8.                   lay (vla-get-activelayout doc)
   
9.                   tmp (mapcar 'strcase (cons "model" (layoutlist)))
   
10.                   cnt 0
    
11.             )
    
12.             (while (member (strcase (setq str (strcat prf (itoa (setq cnt (1+ cnt)))))) tmp))
    
13.             (setq new (vla-add (vla-get-layouts doc) str))
    
14.             (repeat (setq idx (sslength sel))
    
15.                 (setq lst (cons (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))) lst))
    
16.             )
    
17.             (vlax-invoke doc 'copyobjects
    
18.                 (if psp (cons (vla-item (vla-get-block lay) 0) (reverse lst)) (reverse lst))
    
19.                 (vla-get-block new)
    
20.             )
    
21.             (foreach obj lst (vla-delete obj))
    
22.             (if psp
    
23.                 (foreach prp
    
24.                    '(
    
25.                         PlotType
    
26.                         PlotHidden
    
27.                         PlotOrigin
    
28.                         PlotRotation
    
29.                         PlotViewportBorders
    
30.                         PlotViewportsFirst
    
31.                         PlotWithLineweights
    
32.                         PlotWithPlotStyles
    
33.                         ScaleLineweights
    
34.                         ShowPlotStyles
    
35.                         StandardScale
    
36.                         StyleSheet
    
37.                         UseStandardScale
    
38.                         CanonicalMediaName
    
39.                         CenterPlot
    
40.                         ConfigName
    
41.                         PaperUnits
    
42.                     )
    
43.                     (vl-catch-all-apply 'vlax-put-property (list new prp (vlax-get-property lay prp)))
    
44.                 )
    
45.             )
    
46.         )
    
47.     )
    
48.     (princ)
    
49. )
    
50. (vl-load-com) (princ)

(defun c:layoutcutter ( / cnt doc idx lay lst new prf psp sel str tmp )<br />     (setq prf "Layout"<br />           psp (= 1 (getvar 'cvport))<br />     )<br />     (if (setq sel (ssget "_:L" (list (if psp (cons 410 (getvar 'ctab)) '(410 . "Model")))))<br />         (progn<br />             (setq doc (vla-get-activedocument (vlax-get-acad-object))<br />                   lay (vla-get-activelayout doc)<br />                   tmp (mapcar 'strcase (cons "model" (layoutlist)))<br />                   cnt 0<br />             )<br />             (while (member (strcase (setq str (strcat prf (itoa (setq cnt (1+ cnt)))))) tmp))<br />             (setq new (vla-add (vla-get-layouts doc) str))<br />             (repeat (setq idx (sslength sel))<br />                 (setq lst (cons (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))) lst))<br />             )<br />             (vlax-invoke doc 'copyobjects<br />                 (if psp (cons (vla-item (vla-get-block lay) 0) (reverse lst)) (reverse lst))<br />                 (vla-get-block new)<br />             )<br />             (foreach obj lst (vla-delete obj))<br />             (if psp<br />                 (foreach prp<br />                    '(<br />                         PlotType<br />                         PlotHidden<br />                         PlotOrigin<br />                         PlotRotation<br />                         PlotViewportBorders<br />                         PlotViewportsFirst<br />                         PlotWithLineweights<br />                         PlotWithPlotStyles<br />                         ScaleLineweights<br />                         ShowPlotStyles<br />                         StandardScale<br />                         StyleSheet<br />                         UseStandardScale<br />                         CanonicalMediaName<br />                         CenterPlot<br />                         ConfigName<br />                         PaperUnits<br />                     )<br />                     (vl-catch-all-apply 'vlax-put-property (list new prp (vlax-get-property lay prp)))<br />                 )<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br /> (vl-load-com) (princ)

weilu

edata 发表于 2015-7-15 18:31
高级的代码不止一行。
参见LEE-MAC的布局分图

膜拜，最近正在学习和布局有关的函数，发现这方面的资料好少呀！

weilu

edata 发表于 2015-7-15 18:31
高级的代码不止一行。
参见LEE-MAC的布局分图

请教前辈，我发现，如果有几个布局的话，改掉中间的布局名称，对布局的实际顺序(在程序中的顺序)会产生影响，这个怎么解决？我希望它们还是我们看到的自左向右的顺序。

edata

那么你可以研究这个。
http://lee-mac.com/lisp/html/TabSortV2-2.html

dingtiedt

edata 发表于 2015-7-15 18:31
高级的代码不止一行。
参见LEE-MAC的布局分图

别人都称你e大，真不亏是e大