Visual LISP: 输入其它图形的Page Setups?

Free-Lancer

Visual LISP: Importing Page Setups from another drawing?                                                        By Gopinath Taget
  While the following technique takes longer to run than (command " -PSETUPIN"  ), the example demonstrates how to use the (vla-CopyFrom) method to import pagesetups.
  NOTE:  This example assumes that a PaperSpace pagesetup named "MyEPlotTest" exists in a drawing named "MyPageSetups.dwg".Also run this code in a non-production drawing as it deletes all page setups. The example can be modified so that it would not try to import a PageSetup into a drawing that already has a PageSetup named "MyEPlotTest".

2. (vl-load-com)
   
3. (setq *doc* (vla-get-activedocument (vlax-get-acad-object)))
   
4. (defun ImpPgSetups (psname / psfile doc2 colPgSetups1 colPgSetups2 objPgSetup objPgSetup2 sName)
   
5.     ; if page setup source file is found,
   
6.    (if (setq psfile (findfile "MyPageSetups.dwg"))
   
7.       (progn
   
8.          ;; delete all existing page setups.
   
9.          (DelPgSetups)
   
10.          ;; import page setups
    
11.          (setq doc2 (vla-open
    
12.          (vla-get-documents (vlax-get-acad-object)) psfile)
    
13.               colPgSetups1 (vla-get-PlotConfigurations *doc*)
    
14.               colPgSetups2 (vla-get-PlotConfigurations doc2)
    
15.          ) ;setq
    
16.     ;;get each page setup in the ACAD_PLOTSETTINGS dictionary
    
17.          (vlax-for objPgSetup colPgSetups2
    
18.             (setq sName (vlax-get-property objPgSetup 'Name))
    
19.             (if (= sName psname)
    
20.                (progn
    
21.                   ;;add the page setup to the current doc
    
22.                   ;:vlax-true = Model tab only
    
23.                   (setq objPgSetup2
    
24.                   (vla-add colPgSetups1 sName :vlax-false))
    
25.                   (vla-CopyFrom objPgSetup2 objPgSetup)
    
26.                )
    
27.             ) ;if
    
28.             ;release the page setup
    
29.            (vlax-release-object objPgSetup)
    
30.          ) ;vlax-for
    
31.          (vlax-release-object colPgSetups1)
    
32.          (vlax-release-object colPgSetups2)
    
33.          (vla-close doc2)
    
34.          (vlax-release-object doc2)
    
35.       ) ;progn
    
36.    ) ;if
    
37. )
    
38. 
    
39. 
    
40. (defun DelPgSetups (/ colPgSetups objPgSetup)
    
41.    (vl-load-com)
    
42.    ;;get the ACAD_PLOTSETTINGS dictionary
    
43.    (setq colPgSetups (vla-get-PlotConfigurations *doc*))
    
44.    ;;get each page setup in the ACAD_PLOTSETTINGS dictionary
    
45.    (vlax-for objPgSetup colPgSetups
    
46.       ;delete the page setup from the dictionary
    
47.       (vla-delete objPgSetup)
    
48.       ;release the page setup
    
49.       (vlax-release-object objPgSetup)
    
50.    ) ;vlax-for
    
51.    (vlax-release-object colPgSetups)
    
52.    (princ)
    
53. )
    
54. 
    
55. (defun C:TEST()
    
56.    (ImpPgSetups "MyEPlotTest")
    
57. )

(vl-load-com)<br /> (setq *doc* (vla-get-activedocument (vlax-get-acad-object)))<br /> (defun ImpPgSetups (psname / psfile doc2 colPgSetups1 colPgSetups2 objPgSetup objPgSetup2 sName)<br />     ; if page setup source file is found,<br />    (if (setq psfile (findfile "MyPageSetups.dwg"))<br />       (progn<br />          ;; delete all existing page setups.<br />          (DelPgSetups)<br />          ;; import page setups<br />          (setq doc2 (vla-open<br />          (vla-get-documents (vlax-get-acad-object)) psfile)<br />               colPgSetups1 (vla-get-PlotConfigurations *doc*)<br />               colPgSetups2 (vla-get-PlotConfigurations doc2)<br />          ) ;setq<br />     ;;get each page setup in the ACAD_PLOTSETTINGS dictionary<br />          (vlax-for objPgSetup colPgSetups2<br />             (setq sName (vlax-get-property objPgSetup 'Name))<br />             (if (= sName psname)<br />                (progn<br />                   ;;add the page setup to the current doc<br />                   ;:vlax-true = Model tab only<br />                   (setq objPgSetup2<br />                   (vla-add colPgSetups1 sName :vlax-false))<br />                   (vla-CopyFrom objPgSetup2 objPgSetup)<br />                )<br />             ) ;if<br />             ;release the page setup<br />            (vlax-release-object objPgSetup)<br />          ) ;vlax-for<br />          (vlax-release-object colPgSetups1)<br />          (vlax-release-object colPgSetups2)<br />          (vla-close doc2)<br />          (vlax-release-object doc2)<br />       ) ;progn<br />    ) ;if<br /> )<br /> <br /> <br /> (defun DelPgSetups (/ colPgSetups objPgSetup)<br />    (vl-load-com)<br />    ;;get the ACAD_PLOTSETTINGS dictionary<br />    (setq colPgSetups (vla-get-PlotConfigurations *doc*))<br />    ;;get each page setup in the ACAD_PLOTSETTINGS dictionary<br />    (vlax-for objPgSetup colPgSetups<br />       ;delete the page setup from the dictionary<br />       (vla-delete objPgSetup) <br />       ;release the page setup<br />       (vlax-release-object objPgSetup)<br />    ) ;vlax-for<br />    (vlax-release-object colPgSetups)<br />    (princ)<br /> ) <br /> <br /> (defun C:TEST()<br />    (ImpPgSetups "MyEPlotTest")<br /> )