[转贴]：Text2MText

eachy

2. 
   
3. ;;; Text2MText
   
4. ;;; (c) 1995 CR/LF GmbH, Essen/Germany
   
5. ;;; Custom AutoCAD Programming since 1986
   
6. ;;;
   
7. ;;; CR/LF GmbH                               -----------
   
8. ;;; Obere Fuhr 27                           |  CR /   | |
   
9. ;;; D-45136 Essen                          ||    / LF | |
   
10. ;;; Tel.:     ++49 201 254566              || <-------+ |
    
11. ;;; Fax:      ++49 201 256669              | -----------
    
12. ;;; CIS:      100015,1632                   -----------
    
13. ;;; Internet: [email]100015.1632@CompuServe.com[/email]
    
14. ;;;
    
15. ;;; This program is copyrighted. It may be distributed freely however.
    
16. ;;;
    
17. ;;; Benefit:
    
18. ;;;   This file implements an AutoCAD command to combine selected text lines
    
19. ;;;   to a single mtext object.
    
20. ;;;
    
21. ;;; Usage:
    
22. ;;;   Load this file with AutoCAD's APPLOAD command.
    
23. ;;;   Enter TEXT2MTEXT.
    
24. ;;;   Pick the reference text. The mtext object will use this entity's
    
25. ;;;     properties including style, text height, layer a.s.o.
    
26. ;;;   Select the other text entities to append to the reference text.
    
27. ;;;   Done.
    
28. ;;;
    
29. ;;; Restrictions:
    
30. ;;;   Select the text to combine by clicking. Using crossing or windowing
    
31. ;;;   may result in an unwanted text sequence.
    
32. ;;;
    
33. 
    
34. (defun c:text2mtext (/ dxf ss index ent mtext)
    
35.   (defun dxf (tag obj) (cdr (assoc tag obj)))
    
36.   (cond
    
37.     ((not (setq reftext (car (entsel "Pick reference text"))))
    
38.        (princ "Nothing selected"))
    
39.     ((not (= (dxf 0 (setq reftext (entget reftext))) "TEXT"))
    
40.        (princ "Not a text"))
    
41.     ((not (setq ss (ssget)))
    
42.        (princ "Nothing selected"))
    
43.     (T
    
44.      (setq index 0.0
    
45.            mtext '((0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText"))
    
46.            mtext (append mtext
    
47.                          (list (assoc 8 reftext) (assoc 10 reftext)
    
48.                                (assoc 7 reftext) (assoc 40 reftext)
    
49.                                (cons 41 (abs (- (caar (textbox reftext))
    
50.                                                 (caadr (textbox reftext)))))
    
51.                                (cons 3 (strcat (dxf 1 reftext) "\\P"))))
    
52.      )
    
53.      (entdel (dxf -1 reftext))
    
54.      (repeat (sslength ss)
    
55.        (cond ((not
    
56.                 (= (dxf 0 (setq ent (entget (ssname ss index)))) "TEXT")
    
57.               )
    
58.                 (princ "Non-text ignored")
    
59.              )
    
60.              (T (setq mtext (append mtext
    
61.                                (list (cons 3 (strcat (dxf 1 ent) "\\P")))))
    
62.                 (entdel (dxf -1 ent))
    
63.              )
    
64.        )
    
65.        (setq index (1+ index))
    
66.      )
    
67.      (entmake (append mtext '((1 . " "))))
    
68.     )
    
69.   )
    
70.   (princ)
    
71. )
    

<br /> ;;; Text2MText<br /> ;;; (c) 1995 CR/LF GmbH, Essen/Germany<br /> ;;; Custom AutoCAD Programming since 1986<br /> ;;;<br /> ;;; CR/LF GmbH                               -----------<br /> ;;; Obere Fuhr 27                           |  CR /   | |<br /> ;;; D-45136 Essen                          ||    / LF | |<br /> ;;; Tel.:     ++49 201 254566              || <-------+ |<br /> ;;; Fax:      ++49 201 256669              | -----------<br /> ;;; CIS:      100015,1632                   -----------<br /> ;;; Internet: [email]100015.1632@CompuServe.com[/email]<br /> ;;;<br /> ;;; This program is copyrighted. It may be distributed freely however.<br /> ;;;<br /> ;;; Benefit:<br /> ;;;   This file implements an AutoCAD command to combine selected text lines <br /> ;;;   to a single mtext object. <br /> ;;;<br /> ;;; Usage:<br /> ;;;   Load this file with AutoCAD's APPLOAD command.<br /> ;;;   Enter TEXT2MTEXT.<br /> ;;;   Pick the reference text. The mtext object will use this entity's<br /> ;;;     properties including style, text height, layer a.s.o.<br /> ;;;   Select the other text entities to append to the reference text.<br /> ;;;   Done.<br /> ;;;<br /> ;;; Restrictions:<br /> ;;;   Select the text to combine by clicking. Using crossing or windowing<br /> ;;;   may result in an unwanted text sequence.<br /> ;;;<br /> <br /> (defun c:text2mtext (/ dxf ss index ent mtext)<br />   (defun dxf (tag obj) (cdr (assoc tag obj)))<br />   (cond<br />     ((not (setq reftext (car (entsel "Pick reference text"))))<br />        (princ "Nothing selected"))<br />     ((not (= (dxf 0 (setq reftext (entget reftext))) "TEXT"))<br />        (princ "Not a text"))<br />     ((not (setq ss (ssget)))<br />        (princ "Nothing selected"))<br />     (T<br />      (setq index 0.0<br />            mtext '((0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText"))<br />            mtext (append mtext <br />                          (list (assoc 8 reftext) (assoc 10 reftext)<br />                                (assoc 7 reftext) (assoc 40 reftext)<br />                                (cons 41 (abs (- (caar (textbox reftext))<br />                                                 (caadr (textbox reftext)))))<br />                                (cons 3 (strcat (dxf 1 reftext) "\\P"))))<br />      )<br />      (entdel (dxf -1 reftext))<br />      (repeat (sslength ss)<br />        (cond ((not<br />                 (= (dxf 0 (setq ent (entget (ssname ss index)))) "TEXT")<br />               )<br />                 (princ "Non-text ignored")<br />              )<br />              (T (setq mtext (append mtext <br />                                (list (cons 3 (strcat (dxf 1 ent) "\\P")))))<br />                 (entdel (dxf -1 ent))<br />              )<br />        )<br />        (setq index (1+ index))<br />      )<br />      (entmake (append mtext '((1 . " "))))<br />     )<br />   )<br />   (princ)<br /> )<br />

yjtdkj

请问是做什么用的？

xiaping

标题已经很清楚了，“单行文字转换为多行文字”。

JOSDENNIS

CAD本身有這個工具的啊. 試試看