export all text entities to Microsoft WinWord

eachy

2. 
   
3. ;;;                                                                    ;
   
4. ;;;  TYPELIB.LSP                                                       ;
   
5. ;;;                                                                    ;
   
6. ;;;  Copyright 1987, 1988, 1990, 1992, 1994, 1996, 1997, 1998, 1999    ;
   
7. ;;;  by Autodesk, Inc. All Rights Reserved.                            ;
   
8. ;;;                                                                    ;
   
9. ;;;  You are hereby granted permission to use, copy and modify this    ;
   
10. ;;;  software without charge, provided you do so exclusively for       ;
    
11. ;;;  your own use or for use by others in your organization in the     ;
    
12. ;;;  performance of their normal duties, and provided further that     ;
    
13. ;;;  the above copyright notice appears in all copies and both that    ;
    
14. ;;;  copyright notice and the limited warranty and restricted rights   ;
    
15. ;;;  notice below appear in all supporting documentation.              ;
    
16. ;;;                                                                    ;
    
17. ;;;  Incorporation of any part of this software into other software,   ;
    
18. ;;;  except when such incorporation is exclusively for your own use    ;
    
19. ;;;  or for use by others in your organization in the performance of   ;
    
20. ;;;  their normal duties, is prohibited without the prior written      ;
    
21. ;;;  consent of Autodesk, Inc.                                         ;
    
22. ;;;                                                                    ;
    
23. ;;;  Copying, modification and distribution of this software or any    ;
    
24. ;;;  part thereof in any form except as expressly provided herein is   ;
    
25. ;;;  prohibited without the prior written consent of Autodesk, Inc.    ;
    
26. ;;;                                                                    ;
    
27. ;;;  AUTODESK PROVIDES THIS SOFTWARE "AS IS" AND WITH ALL FAULTS.      ;
    
28. ;;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF           ;
    
29. ;;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,       ;
    
30. ;;;  INC. DOES NOT WARRANT THAT THE OPERATION OF THE SOFTWARE          ;
    
31. ;;;  WILL BE UNINTERRUPTED OR ERROR FREE.                              ;
    
32. ;;;                                                                    ;
    
33. ;;;  Restricted Rights for US Government Users.  This software         ;
    
34. ;;;  and Documentation are provided with RESTRICTED RIGHTS for US      ;
    
35. ;;;  US Government users.  Use, duplication, or disclosure by the      ;
    
36. ;;;  Government is subject to restrictions as set forth in FAR         ;
    
37. ;;;  12.212 (Commercial Computer Software-Restricted Rights) and       ;
    
38. ;;;  DFAR 227.7202 (Rights in Technical Data and Computer Software),   ;
    
39. ;;;  as applicable.  Manufacturer is Autodesk, Inc., 111 McInnis       ;
    
40. ;;;  Parkway, San Rafael, California 94903.                            ;
    
41. ;;;                                                                    ;
    
42. 
    
43. ;;;--------------------------------------------------------------------;
    
44. ;;;  This file shows how to import type library files and how to use   ;
    
45. ;;;  them.                                                             ;
    
46. ;;;--------------------------------------------------------------------;
    
47. 
    
48. 
    
49. ;;;--------------------------------------------------------------------;
    
50. ;;;  First of all we have to init the ActiveX interface.               ;
    
51. ;;;--------------------------------------------------------------------;
    
52. (vl-load-com)
    
53. 
    
54. 
    
55. ;;;--------------------------------------------------------------------;
    
56. ;;;  Import the Microsoft WinWord type library. You have to replace    ;
    
57. ;;;  the path with the path to your WinWord type library file.         ;
    
58. ;;;  Import the type library only if it is not already loaded.         ;
    
59. ;;;--------------------------------------------------------------------;
    
60. (if (equal nil mswc-wd100Words) ; check for a WinWord constant
    
61.   (vlax-import-type-library
    
62.     :tlb-filename "c:/program files/Microsoft Office/msword8.olb"
    
63.     :methods-prefix "mswm-"
    
64.     :properties-prefix "mswp-"
    
65.     :constants-prefix "mswc-"
    
66.   ) ;_ end of vlax-import-type-library
    
67. ) ;_ end of if
    
68. 
    
69. ;;;--------------------------------------------------------------------;
    
70. ;;;  After importing the type library file you can use the Apropos     ;
    
71. ;;;  Window to see the added VisualLisp functions.                     ;
    
72. ;;;  Go to the "View" menu, select "Apropos Windows..." and enter      ;
    
73. ;;;  "mswm-" in the edit box to get a list of all WinWord methods.     ;
    
74. ;;;--------------------------------------------------------------------;
    
75. 
    
76. 
    
77. ;;;--------------------------------------------------------------------;
    
78. ;;;  For ActiveX functions, we need to define a global variable which  ;
    
79. ;;;  "points" to the Model Space portion of the active drawing.  This  ;
    
80. ;;;  variable, named *ModelSpace* will be created at load time.        ;
    
81. ;;;--------------------------------------------------------------------;
    
82. (setq *ModelSpace*
    
83.   (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
    
84. ) ;_ end of setq
    
85. 
    
86. ;;;--------------------------------------------------------------------;
    
87. ;;;  For ActiveX functions, we need to define a global variable which  ;
    
88. ;;;  "points" to the AutoCAD application object.  This variable, named ;
    
89. ;;;  *AcadApp* will be created at load time.                           ;
    
90. ;;;--------------------------------------------------------------------;
    
91. (setq *AcadApp*
    
92.   (vlax-get-acad-object)
    
93. ) ;_ end of setq
    
94. 
    
95. 
    
96. ;;;--------------------------------------------------------------------;
    
97. ;;;  This is the main function. It will iterate the model space and    ;
    
98. ;;;  collect all Text entities. Then it gets the text strings and adds ;
    
99. ;;;  them to a newly created Microsoft WinWord document.               ;
    
100. ;;;--------------------------------------------------------------------;
     
101. (defun c:ExtractText ( / msw docs doc ent pgs pg range
     
102.                          text varTextpos arrayTextpos textinfo)
     
103.   ; Get the Microsoft WinWord application object
     
104.   (setq msw (vlax-get-object "Word.Application.8"))
     
105.   (if (equal nil msw)
     
106.     (progn
     
107.       ; WinWord is not running. Start it.
     
108.       (setq msw (vlax-create-object "Word.Application.8"))
     
109.       (vla-put-visible msw 1)
     
110.     )
     
111.   )
     
112.   (if (/= nil msw)
     
113.     (progn
     
114.       ;; Get the WinWord's document collection object.
     
115.       ;; The Application object of WinWord is accessed by the
     
116.       ;; vla-get-xxx functions. For some ActiveX properties and methods
     
117.       ;; there is no generated VisualLisp function. In this case you have
     
118.       ;; to use the vlax-get-property / vlax-put-property and
     
119.       ;; vlax-invoke-method functions.
     
120.       ;; Example: For the CommandBars property of the WinWord application
     
121.       ;; object there is no VisualLisp function, but you can get this
     
122.       ;; object the following way:
     
123.       ;; (setq ComBars (vlax-get-property msw "CommandBars"))
     
124.       (setq docs (vla-get-documents msw))
     
125.       ; Add a new document
     
126.       (setq doc (mswm-add docs))
     
127.       ; Get the paragraphs of the document (to do some formatting)
     
128.       (setq pgs (mswp-get-paragraphs doc))
     
129.       ; Now iterate the AutoCAD model space and export
     
130.       ; every text entity to WinWord.
     
131.       (vlax-for ent *ModelSpace*
     
132.         (if (equal (vla-get-ObjectName ent) "AcDbText")
     
133.           (progn
     
134.             ; Get some information from the text entity
     
135.             (setq text (vla-get-TextString ent)
     
136.                   textpos (vla-get-InsertionPoint ent)
     
137.                   arrayTextpos (vlax-variant-value textpos)
     
138.                   textinfo (strcat
     
139.                              (rtos (vlax-safearray-get-element arrayTextpos 0) 2 2)
     
140.                              ", "
     
141.                              (rtos (vlax-safearray-get-element arrayTextpos 1) 2 2)
     
142.                              ", "
     
143.                              (rtos (vlax-safearray-get-element arrayTextpos 2) 2 2)
     
144.                            )
     
145.             ) ;_ end of setq
     
146.             ; Print some info (with formatting)
     
147.             ; 1) Get the last paragraph
     
148.             (setq pg (mswp-get-last pgs))
     
149.             ; 2) Get a range object
     
150.             (setq range (mswp-get-range pg))
     
151.             ; 3) Do some formatting
     
152.             (mswp-put-bold range 1)
     
153.             (mswp-put-underline range mswc-wdUnderlineSingle)
     
154.             ; 4) Show the info text
     
155.             (mswm-InsertAfter range (strcat "AcDbText at position " textinfo "\n"))
     
156.             ; Now show the text string (from the ACAD text entity)
     
157.             (setq pg (mswp-get-last pgs))
     
158.             (setq range (mswp-get-range pg))
     
159.             (mswp-put-bold range 0)
     
160.             (mswp-put-underline range mswc-wdUnderlineNone)
     
161.             (mswm-InsertAfter range (strcat text "\n\n"))
     
162.           ) ;_ end of progn
     
163.         ) ;_ end of if AcDbText
     
164.       ) ;_ end of vlax-for
     
165.     ) ;_ end of progn
     
166.     (princ "\nNo Microsoft WinWord found.\n")
     
167.   ) ;_ end of if (/= nil msw)
     
168.   (princ)
     
169. )
     
170. 
     
171. 
     
172. ;;; Display a message to let the user know the command name
     
173. (princ "\nType ExtractText to export all text entities to Microsoft WinWord.\n")
     
174. (princ)

<br /> ;;;                                                                    ;<br /> ;;;  TYPELIB.LSP                                                       ;<br /> ;;;                                                                    ;<br /> ;;;  Copyright 1987, 1988, 1990, 1992, 1994, 1996, 1997, 1998, 1999    ;<br /> ;;;  by Autodesk, Inc. All Rights Reserved.                            ;<br /> ;;;                                                                    ;<br /> ;;;  You are hereby granted permission to use, copy and modify this    ;<br /> ;;;  software without charge, provided you do so exclusively for       ;<br /> ;;;  your own use or for use by others in your organization in the     ;<br /> ;;;  performance of their normal duties, and provided further that     ;<br /> ;;;  the above copyright notice appears in all copies and both that    ;<br /> ;;;  copyright notice and the limited warranty and restricted rights   ;<br /> ;;;  notice below appear in all supporting documentation.              ;<br /> ;;;                                                                    ;<br /> ;;;  Incorporation of any part of this software into other software,   ;<br /> ;;;  except when such incorporation is exclusively for your own use    ;<br /> ;;;  or for use by others in your organization in the performance of   ;<br /> ;;;  their normal duties, is prohibited without the prior written      ;<br /> ;;;  consent of Autodesk, Inc.                                         ;<br /> ;;;                                                                    ;<br /> ;;;  Copying, modification and distribution of this software or any    ;<br /> ;;;  part thereof in any form except as expressly provided herein is   ;<br /> ;;;  prohibited without the prior written consent of Autodesk, Inc.    ;<br /> ;;;                                                                    ;<br /> ;;;  AUTODESK PROVIDES THIS SOFTWARE "AS IS" AND WITH ALL FAULTS.      ;<br /> ;;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF           ;<br /> ;;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,       ;<br /> ;;;  INC. DOES NOT WARRANT THAT THE OPERATION OF THE SOFTWARE          ;<br /> ;;;  WILL BE UNINTERRUPTED OR ERROR FREE.                              ;<br /> ;;;                                                                    ;<br /> ;;;  Restricted Rights for US Government Users.  This software         ;<br /> ;;;  and Documentation are provided with RESTRICTED RIGHTS for US      ;<br /> ;;;  US Government users.  Use, duplication, or disclosure by the      ;<br /> ;;;  Government is subject to restrictions as set forth in FAR         ;<br /> ;;;  12.212 (Commercial Computer Software-Restricted Rights) and       ;<br /> ;;;  DFAR 227.7202 (Rights in Technical Data and Computer Software),   ;<br /> ;;;  as applicable.  Manufacturer is Autodesk, Inc., 111 McInnis       ;<br /> ;;;  Parkway, San Rafael, California 94903.                            ;<br /> ;;;                                                                    ;<br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  This file shows how to import type library files and how to use   ;<br /> ;;;  them.                                                             ;<br /> ;;;--------------------------------------------------------------------;<br /> <br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  First of all we have to init the ActiveX interface.               ;<br /> ;;;--------------------------------------------------------------------;<br /> (vl-load-com)<br /> <br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  Import the Microsoft WinWord type library. You have to replace    ;<br /> ;;;  the path with the path to your WinWord type library file.         ;<br /> ;;;  Import the type library only if it is not already loaded.         ;<br /> ;;;--------------------------------------------------------------------;<br /> (if (equal nil mswc-wd100Words) ; check for a WinWord constant<br />   (vlax-import-type-library<br />     :tlb-filename "c:/program files/Microsoft Office/msword8.olb"<br />     :methods-prefix "mswm-"<br />     :properties-prefix "mswp-"<br />     :constants-prefix "mswc-"<br />   ) ;_ end of vlax-import-type-library<br /> ) ;_ end of if<br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  After importing the type library file you can use the Apropos     ;<br /> ;;;  Window to see the added VisualLisp functions.                     ;<br /> ;;;  Go to the "View" menu, select "Apropos Windows..." and enter      ;<br /> ;;;  "mswm-" in the edit box to get a list of all WinWord methods.     ;<br /> ;;;--------------------------------------------------------------------;<br /> <br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  For ActiveX functions, we need to define a global variable which  ;<br /> ;;;  "points" to the Model Space portion of the active drawing.  This  ;<br /> ;;;  variable, named *ModelSpace* will be created at load time.        ;<br /> ;;;--------------------------------------------------------------------;<br /> (setq *ModelSpace*<br />   (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> ) ;_ end of setq<br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  For ActiveX functions, we need to define a global variable which  ;<br /> ;;;  "points" to the AutoCAD application object.  This variable, named ;<br /> ;;;  *AcadApp* will be created at load time.                           ;<br /> ;;;--------------------------------------------------------------------;<br /> (setq *AcadApp*<br />   (vlax-get-acad-object)<br /> ) ;_ end of setq<br /> <br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;  This is the main function. It will iterate the model space and    ;<br /> ;;;  collect all Text entities. Then it gets the text strings and adds ;<br /> ;;;  them to a newly created Microsoft WinWord document.               ;<br /> ;;;--------------------------------------------------------------------;<br /> (defun c:ExtractText ( / msw docs doc ent pgs pg range<br />                          text varTextpos arrayTextpos textinfo)<br />   ; Get the Microsoft WinWord application object<br />   (setq msw (vlax-get-object "Word.Application.8"))<br />   (if (equal nil msw)<br />     (progn<br />       ; WinWord is not running. Start it.<br />       (setq msw (vlax-create-object "Word.Application.8"))<br />       (vla-put-visible msw 1)<br />     )<br />   )<br />   (if (/= nil msw)<br />     (progn<br />       ;; Get the WinWord's document collection object.<br />       ;; The Application object of WinWord is accessed by the<br />       ;; vla-get-xxx functions. For some ActiveX properties and methods<br />       ;; there is no generated VisualLisp function. In this case you have<br />       ;; to use the vlax-get-property / vlax-put-property and<br />       ;; vlax-invoke-method functions.<br />       ;; Example: For the CommandBars property of the WinWord application<br />       ;; object there is no VisualLisp function, but you can get this<br />       ;; object the following way:<br />       ;; (setq ComBars (vlax-get-property msw "CommandBars"))<br />       (setq docs (vla-get-documents msw))<br />       ; Add a new document<br />       (setq doc (mswm-add docs))<br />       ; Get the paragraphs of the document (to do some formatting)<br />       (setq pgs (mswp-get-paragraphs doc))<br />       ; Now iterate the AutoCAD model space and export<br />       ; every text entity to WinWord.<br />       (vlax-for ent *ModelSpace*<br />         (if (equal (vla-get-ObjectName ent) "AcDbText")<br />           (progn<br />             ; Get some information from the text entity<br />             (setq text (vla-get-TextString ent)<br />                   textpos (vla-get-InsertionPoint ent)<br />                   arrayTextpos (vlax-variant-value textpos)<br />                   textinfo (strcat<br />                              (rtos (vlax-safearray-get-element arrayTextpos 0) 2 2)<br />                              ", "<br />                              (rtos (vlax-safearray-get-element arrayTextpos 1) 2 2)<br />                              ", "<br />                              (rtos (vlax-safearray-get-element arrayTextpos 2) 2 2)<br />                            )<br />             ) ;_ end of setq<br />             ; Print some info (with formatting)<br />             ; 1) Get the last paragraph<br />             (setq pg (mswp-get-last pgs))<br />             ; 2) Get a range object<br />             (setq range (mswp-get-range pg))<br />             ; 3) Do some formatting<br />             (mswp-put-bold range 1)<br />             (mswp-put-underline range mswc-wdUnderlineSingle)<br />             ; 4) Show the info text<br />             (mswm-InsertAfter range (strcat "AcDbText at position " textinfo "\n"))<br />             ; Now show the text string (from the ACAD text entity)<br />             (setq pg (mswp-get-last pgs))<br />             (setq range (mswp-get-range pg))<br />             (mswp-put-bold range 0)<br />             (mswp-put-underline range mswc-wdUnderlineNone)<br />             (mswm-InsertAfter range (strcat text "\n\n"))<br />           ) ;_ end of progn<br />         ) ;_ end of if AcDbText<br />       ) ;_ end of vlax-for<br />     ) ;_ end of progn<br />     (princ "\nNo Microsoft WinWord found.\n")<br />   ) ;_ end of if (/= nil msw)<br />   (princ)<br /> )<br /> <br /> <br /> ;;; Display a message to let the user know the command name<br /> (princ "\nType ExtractText to export all text entities to Microsoft WinWord.\n")<br /> (princ)