创建一个LAYOUT

Lispboy

1. (defun c:addMyLayout ()
   
2.   (vl-load-com)
   
3.   (setq acadApp (vlax-get-Acad-object))
   
4.   (setq acadDoc (vla-get-ActiveDocument acadApp))
   
5.   (setq layouts (vla-get-Layouts acadDoc))
   
6. 
   
7.   ;; Delete the layout named "Test" if it exists
   
8.   (vlax-for objLayout layouts
   
9.     (if (= (vla-get-name objLayout) "Test")
   
10.       (progn
    
11.         (princ
    
12.           (strcat "\nDeleted Layout named "
    
13.               (vla-get-name objLayout) "..."
    
14.           )
    
15.         )
    
16.         (vla-delete objLayout) ;delete the Layout
    
17.         (vlax-release-object objLayout) ; release the Layout Object
    
18.       );progn
    
19.     );if
    
20.   ) ;vlax-for
    
21. 
    
22.   (setq layoutObj (vla-add layouts "Test"))
    
23. 
    
24.   ;; Assign Grayscale.CTB to the Layout
    
25.   (vla-put-StyleSheet layoutObj "Grayscale.ctb")
    
26. 
    
27.   ;; Assign DWF configuration to the Layout
    
28.   (if (= (substr (vlax-variant-value (vla-getvariable acadDoc "ACADVER")) 1 2) "15")
    
29.     (vla-put-configname layoutObj "PublishToWeb DWF.pc3")
    
30.     (vla-put-configname layoutObj "DWF6 ePlot.pc3")
    
31.   ) ;if
    
32. 
    
33.   ;; Assign Paper Size B to the Layout  
    
34.   (vla-put-canonicalmedianame
    
35.     layoutObj
    
36.     "ANSI_expand_B_(11.00_x_17.00_Inches)"
    
37.   )
    
38. 
    
39.   ;; Make the new Layout Active
    
40.   (vla-put-activelayout acadDoc layoutObj)
    
41. 
    
42.   ;; Example getting StyleSheet and Configname, not doing anything
    
43.   ;; with them here however
    
44.   (setq currPStyle (vla-Get-StyleSheet layoutObj))
    
45.   (setq currConfig (vla-Get-configname layoutObj))
    
46.   (princ)
    
47. )
    

(defun c:addMyLayout ()<br />   (vl-load-com)<br />   (setq acadApp (vlax-get-Acad-object))<br />   (setq acadDoc (vla-get-ActiveDocument acadApp))<br />   (setq layouts (vla-get-Layouts acadDoc))<br /> <br />   ;; Delete the layout named "Test" if it exists<br />   (vlax-for objLayout layouts<br />     (if (= (vla-get-name objLayout) "Test")<br />       (progn<br />         (princ<br />           (strcat "\nDeleted Layout named "<br />               (vla-get-name objLayout) "..."<br />           )<br />         )<br />         (vla-delete objLayout) ;delete the Layout<br />         (vlax-release-object objLayout) ; release the Layout Object<br />       );progn<br />     );if<br />   ) ;vlax-for<br /> <br />   (setq layoutObj (vla-add layouts "Test"))<br /> <br />   ;; Assign Grayscale.CTB to the Layout<br />   (vla-put-StyleSheet layoutObj "Grayscale.ctb")<br /> <br />   ;; Assign DWF configuration to the Layout<br />   (if (= (substr (vlax-variant-value (vla-getvariable acadDoc "ACADVER")) 1 2) "15")<br />     (vla-put-configname layoutObj "PublishToWeb DWF.pc3")<br />     (vla-put-configname layoutObj "DWF6 ePlot.pc3")<br />   ) ;if<br /> <br />   ;; Assign Paper Size B to the Layout  <br />   (vla-put-canonicalmedianame<br />     layoutObj<br />     "ANSI_expand_B_(11.00_x_17.00_Inches)"<br />   )<br /> <br />   ;; Make the new Layout Active<br />   (vla-put-activelayout acadDoc layoutObj)<br /> <br />   ;; Example getting StyleSheet and Configname, not doing anything<br />   ;; with them here however<br />   (setq currPStyle (vla-Get-StyleSheet layoutObj))<br />   (setq currConfig (vla-Get-configname layoutObj))<br />   (princ)<br /> )<br />