[求助]：对于named page setup，activex有没有办法访问的？

秋枫

有时候，改同一张图中的一批layout的设置时，很麻烦。尤其是图很大（40），类似的layout很多时

见图：

XDSoft

看看下面的资料，关于处理NAMED PAGE的VLISP,VBA的方法，借鉴下，删除NAMED PAGE 设置，秋风，你的程序写好后，贴到论坛来。

DELETING A NAMED PAGE SETUP  
ID    65115  
Applies to:    AutoCAD 2000
AutoCAD 2000I

Date    2/19/2002  

This document is part of    AutoCAD   Visual Lisp   Dictionaries   Plotting   VBA     


Question
How to delete a named page setup using LISP or VBA?
Answer
You can use Visual Lisp or VBA to delete page setups from the ACAD_PLOTSETTINGS
dictionary.  Both the examples below will delete all page setups, so it may
be beneficial to add a prompt or alert for the user.

2. 
   
3. [FONT=courier new]
   
4. ;;;Visual Lisp example:
   
5. (defun C:DelPgSetups ( / appAcad colPgSetups docCurrent objPgSetup)
   
6.    (vl-load-com)
   
7.    (setq appAcad (vlax-get-acad-object) ;get the ACAD application object
   
8.            docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing
   
9.            ;;get the ACAD_PLOTSETTINGS dictionary
   
10.            colPgSetups (vla-get-PlotConfigurations docCurrent)
    
11.    ) ;setq
    
12.    ;;get each page setup in the ACAD_PLOTSETTINGS dictionary
    
13.    (vlax-for objPgSetup colPgSetups
    
14.       (princ (strcat "\nDeleting " (vla-get-name objPgSetup) "..."))
    
15.       (vla-delete objPgSetup) ;delete the page setup from the dictionary
    
16.       (vlax-release-object objPgSetup) ;release the page setup
    
17. 
    
18.    );vlax-for
    
19.    (princ "\n\nDone.")
    
20.    ;;release objects from memory
    
21.    (vlax-release-object colPgSetups)
    
22.    (vlax-release-object docCurrent)
    
23.    (vlax-release-object appAcad)
    
24.    (princ)
    
25. );End of defun DelPgSetups
    
26. 
    
27. 'VBA Example:
    
28. Public Sub DelPgSetups()
    
29.    Dim colPltConfig As AcadPlotConfigurations
    
30.    Dim objPltConfig As AcadPlotConfiguration
    
31.    Set colPltConfig = ThisDrawing.PlotConfigurations
    
32.    For Each objPltConfig In colPltConfig
    
33.       ThisDrawing.Utility.Prompt "Deleting " & objPltConfig.Name & "..." & vbCrLf
    
34.       objPltConfig.Delete
    
35.    Next objPltConfig
    
36.    ThisDrawing.Utility.Prompt vbCrLf & "Done" & vbCrLf
    
37. End Sub
    
38. [/FONT]

<br /> [FONT=courier new]<br /> ;;;Visual Lisp example:<br /> (defun C:DelPgSetups ( / appAcad colPgSetups docCurrent objPgSetup)<br />    (vl-load-com)<br />    (setq appAcad (vlax-get-acad-object) ;get the ACAD application object<br />            docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing<br />            ;;get the ACAD_PLOTSETTINGS dictionary<br />            colPgSetups (vla-get-PlotConfigurations docCurrent)<br />    ) ;setq<br />    ;;get each page setup in the ACAD_PLOTSETTINGS dictionary<br />    (vlax-for objPgSetup colPgSetups<br />       (princ (strcat "\nDeleting " (vla-get-name objPgSetup) "..."))<br />       (vla-delete objPgSetup) ;delete the page setup from the dictionary<br />       (vlax-release-object objPgSetup) ;release the page setup<br /> <br />    );vlax-for<br />    (princ "\n\nDone.")<br />    ;;release objects from memory<br />    (vlax-release-object colPgSetups)<br />    (vlax-release-object docCurrent)<br />    (vlax-release-object appAcad)<br />    (princ)<br /> );End of defun DelPgSetups<br /> <br /> 'VBA Example:<br /> Public Sub DelPgSetups()<br />    Dim colPltConfig As AcadPlotConfigurations<br />    Dim objPltConfig As AcadPlotConfiguration<br />    Set colPltConfig = ThisDrawing.PlotConfigurations<br />    For Each objPltConfig In colPltConfig<br />       ThisDrawing.Utility.Prompt "Deleting " & objPltConfig.Name & "..." & vbCrLf<br />       objPltConfig.Delete<br />    Next objPltConfig<br />    ThisDrawing.Utility.Prompt vbCrLf & "Done" & vbCrLf<br /> End Sub<br /> [/FONT]

XDSoft

秋风，你要设置NAMED PAGE，要做什么？

秋枫

我命名一个named page setup
赋于了每个layout
然后我重定义了这个named page setup
结果只能改当前的layout设置

即使每个layout都是用的这个named page setup
重定义named page setup后
其它的都自动取消，不用这个named page setup了。
如果象textstyle那样
改一下定义即可多好。

灯火

2. 
   
3. Public Sub PageSetupForQF()
   
4. 
   
5.     Dim objLayout As AcadLayout
   
6.     Dim objPlotCfg As AcadPlotConfiguration
   
7. 
   
8.     Set objPlotCfg = ThisDrawing.Dictionaries("ACAD_PLOTSETTINGS")("abc")
   
9.     For Each objLayout In ThisDrawing.Layouts
   
10.         If objLayout.ModelType = False Then
    
11.             objLayout.CopyFrom objPlotCfg
    
12.         End If
    
13.     Next
    
14. 
    
15. End Sub
    

<br /> Public Sub PageSetupForQF()<br /> <br />     Dim objLayout As AcadLayout<br />     Dim objPlotCfg As AcadPlotConfiguration<br /> <br />     Set objPlotCfg = ThisDrawing.Dictionaries("ACAD_PLOTSETTINGS")("abc")<br />     For Each objLayout In ThisDrawing.Layouts<br />         If objLayout.ModelType = False Then<br />             objLayout.CopyFrom objPlotCfg<br />         End If<br />     Next<br /> <br /> End Sub<br />

秋枫

咦，怎么会有copyfrom 方法的

灯火

有的，对象浏览器能看到。

秋枫

acad的帮助真是过份啊。

灯火

Layout类是PlotConfiguration类派生的，PlotConfiguration有的Layout都有，且更多。

XDSoft

下图是ARX联机帮助关于AcDbLayout

                               
登录/注册后可看大图