[求助]：如何才能用VL创建一个现存的Layout的"完整"Copy ?

e2002

如何才能用VL创建一个现存的Layout的Copy,产生一个和用layout命令的copy选项的到相同结果的NewLayout ?
迷惑中...

一下sample code怎么不能成功?

2. 
   
3. (setq AcadObject (vlax-get-acad-object))
   
4. (setq CDoc (vla-get-ActiveDocument AcadObject))
   
5. (setq Layouts (vla-get-Layouts CDoc))
   
6. (setq Layouts-list '() )
   
7. (setq CLayout (vla-get-ActiveLayout CDoc))
   
8. (setq PlotConfigs (vla-get-PlotConfigurations CDoc))
   
9. (setq PlotConfigs-list '())
   
10. (vlax-for item PlotConfigs
    
11.   (setq PlotConfigs-list (cons item PlotConfigs-list))
    
12. )
    
13. 
    
14. (setq NewLayout (vla-Add Layouts "NewLayout"))
    
15. (vla-CopyFrom NewLayout (nth 0 PlotConfigs-list)) ;; return nil , WHY ?
    

<br /> (setq AcadObject (vlax-get-acad-object))<br /> (setq CDoc (vla-get-ActiveDocument AcadObject))<br /> (setq Layouts (vla-get-Layouts CDoc))<br /> (setq Layouts-list '() )<br /> (setq CLayout (vla-get-ActiveLayout CDoc))<br /> (setq PlotConfigs (vla-get-PlotConfigurations CDoc))<br /> (setq PlotConfigs-list '())<br /> (vlax-for item PlotConfigs<br />   (setq PlotConfigs-list (cons item PlotConfigs-list))<br /> )<br /> <br /> (setq NewLayout (vla-Add Layouts "NewLayout"))<br /> (vla-CopyFrom NewLayout (nth 0 PlotConfigs-list)) ;; return nil , WHY ?<br />

e2002

上面的codes只能创建一个NewLayout ,不能把SourceLayout中的PViewport也CopyFrom过来
使用(vla-CopyFrom ....)返回值是nil .

在ActiveX中这个问题似乎不是那么简单了
看帮助文档,一个Layout有一个对应的Block对象
我检查了这个Block对象中的Objects
其中有一个对象不好理解
Block中有两个PViewport,但实际上只有一个是我手动用命令生成的,另一个是什么呢?我不明白...

XDSoft

最初由 e2002 发布
[B]上面的codes只能创建一个NewLayout ,不能把SourceLayout中的PViewport也CopyFrom过来
使用(vla-CopyFrom ....)返回值是nil .

在ActiveX中这个问题似乎不是那么简单了
看帮助文档,一个Layout有一个对应的Block对... [/B]

使用ARX，可以很简单，用copyFrom 就可以了，但是ActiveX没有提供从一个LAYOUT模板生成另外一个的方法，但是可以变通做到。

下面是一个VBA代码例子，使用了SENDCOMMAND，用命令去做。

2. [font=courier]
   
3. Sub AddLayout()
   
4. 
   
5. Dim aVarName As String
   
6. Dim iSvarValue As Integer
   
7. 
   
8. iSvarValue = 0
   
9. aVarName = "FILEDIA"
   
10. ThisDrawing.SetVariable aVarName, iSvarValue
    
11. 
    
12. ThisDrawing.SendCommand "-LAYOUT T ACADISO.DWT" & Chr$(13)
    
13. ThisDrawing.SendCommand "LAYOUT2" & Chr$(13)
    
14. 
    
15. iSvarValue = 1
    
16. ThisDrawing.SetVariable aVarName, iSvarValue
    
17. 
    
18. End Sub
    
19. [/font]

[font=courier]<br /> Sub AddLayout()<br /> <br /> Dim aVarName As String<br /> Dim iSvarValue As Integer<br /> <br /> iSvarValue = 0<br /> aVarName = "FILEDIA"<br /> ThisDrawing.SetVariable aVarName, iSvarValue<br /> <br /> ThisDrawing.SendCommand "-LAYOUT T ACADISO.DWT" & Chr$(13)<br /> ThisDrawing.SendCommand "LAYOUT2" & Chr$(13)<br /> <br /> iSvarValue = 1<br /> ThisDrawing.SetVariable aVarName, iSvarValue<br /> <br /> End Sub<br /> [/font]

e2002

这个是导入某个dwt中的layout ，用vl-cmdf也可以作到。
我的要求不是这个，本质上我的要求就是用VL的ActiveX方法完全实现命令layout的copy选项的功能

aeo

2. 
   
3. ' 这是vb的 copyfrom
   
4. Dim PlotConfigurations As AcadPlotConfigurations
   
5.     Dim PlotConfiguration As AcadPlotConfiguration
   
6.     Dim NewPC1 As AcadPlotConfiguration, NewPC2 As AcadPlotConfiguration
   
7.    
   
8.     ' Get PlotConfigurations collection from document object
   
9.     Set PlotConfigurations = ThisDrawing.PlotConfigurations
   
10.    
    
11.     ' Add a new PC and customize some of the properties
    
12.     Set NewPC1 = PlotConfigurations.Add("NEW_CONFIGURATION1")
    
13.         NewPC1.PlotRotation = ac270degrees
    
14.         NewPC1.PlotHidden = True
    
15.         NewPC1.PaperUnits = acMillimeters
    
16.    
    
17.     ' Add another PC and leave default values intact
    
18.     Set NewPC2 = PlotConfigurations.Add("NEW_CONFIGURATION2")
    
19.    
    
20.     ' Show PC2 settings before we copy information from PC1
    
21.     GoSub VIEWPC2SETTINGS
    
22.    
    
23.     ' Copy setting information from PC1 to PC2
    
24.     NewPC2.CopyFrom NewPC1
    
25.    
    
26.     ' Show PC2 settings after we copy information from PC1
    
27.     GoSub VIEWPC2SETTINGS
    
28.    
    
29.     Exit Sub
    

<br /> ' 这是vb的 copyfrom<br /> Dim PlotConfigurations As AcadPlotConfigurations<br />     Dim PlotConfiguration As AcadPlotConfiguration<br />     Dim NewPC1 As AcadPlotConfiguration, NewPC2 As AcadPlotConfiguration<br />     <br />     ' Get PlotConfigurations collection from document object<br />     Set PlotConfigurations = ThisDrawing.PlotConfigurations<br />     <br />     ' Add a new PC and customize some of the properties<br />     Set NewPC1 = PlotConfigurations.Add("NEW_CONFIGURATION1")<br />         NewPC1.PlotRotation = ac270degrees<br />         NewPC1.PlotHidden = True<br />         NewPC1.PaperUnits = acMillimeters<br />     <br />     ' Add another PC and leave default values intact<br />     Set NewPC2 = PlotConfigurations.Add("NEW_CONFIGURATION2")<br />     <br />     ' Show PC2 settings before we copy information from PC1<br />     GoSub VIEWPC2SETTINGS<br />     <br />     ' Copy setting information from PC1 to PC2<br />     NewPC2.CopyFrom NewPC1<br />     <br />     ' Show PC2 settings after we copy information from PC1<br />     GoSub VIEWPC2SETTINGS<br />     <br />     Exit Sub<br />

我理解是不是只是一个PlotConfig拷到另一个PlotConfig

NewLayout 没有vla-CopyFrom 的用法

直接用layout命令复制好了,一样的.

e2002

在mccad和Lucas的帮助下,基本上已经完成了这样的一个函数,正在整理和优化中...