菜鸟请教，DTEXT输入

司凡

预先设定输入的文字（可能两行以上），如何在制定点输入两行以上文字？

cy956

用mtext，不提；
下面是entmake－text的函数及dtext。

2. 
   
3. ;制造 TEXT; input : 字型pt 高h 宽wid 角tan 对齐方式d72 d73
   
4.         ;d72=0 d73=0 "L"                ;d72 1;d73=0 "C"
   
5.         ;d72=2;d73=0 "R"                ;d72=3;d73=0 "A"
   
6.         ;d72=5;d73=0 "F"                ;d72=0;d73=3 "T"
   
7.         ;d72=1;d73=3 "TC"               ;d72=2;d73=3 "TR"
   
8.         ;d72=0;d73=2 "ML"               ;d72=4;d73=0 "M"
   
9.         ;d72=1;d73=2 "MC"               ;d72=2;d73=2 "MR"
   
10.         ;d72=0;d73=1 "BL"               ;d72=1;d73=1 "BC"
    
11.         ;d72=2;d73=1 "BR"
    
12. ;;;(#M_TXT PT "123" "DXFS" 300 0.7 0 4 0 "0" -1)
    
13. (defun #m_txt (pt txt sty th wid tan d72 d73 lay color /)
    
14. (if (and (= d72 0)(= d73 0))
    
15.   (setq en000 (list
    
16.       (cons 0 "TEXT")
    
17.       (cons 1 txt)
    
18.       (cons 7 sty)
    
19.       (cons 8 lay)
    
20.       (cons 10 pt)
    
21.       (cons 40 th)
    
22.       (cons 41 wid)
    
23.       (cons 50 tan)
    
24.       (cons 72 d72)
    
25.       (cons 73 d73)   ) )
    
26.   (setq en000 (list
    
27.       (cons 0 "TEXT")
    
28.       (cons 1 txt)
    
29.       (cons 7 sty)
    
30.       (cons 8 lay)
    
31.       (cons 10 pt)
    
32.       (cons 11 pt)
    
33.       (cons 40 th)
    
34.       (cons 41 wid)
    
35.       (cons 50 tan)
    
36.       (cons 72 d72)
    
37.       (cons 73 d73)   ) )
    
38.   )
    
39.   (IF (= STY "STANDARD")(setq en000 (append en000 (list (cons 51 0.261799)))))
    
40.   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
    
41.   (if (= nil (entmake en000)) (princ "\n制造 TEXT 实体失败.")  )
    
42. )
    
43. ;制造 dTEXT; input : 字型pt 高h 宽wid 角tan 对齐方式d72 d73
    
44.         ;d72=0 d73=0 "L"                ;d72 1;d73=0 "C"
    
45.         ;d72=2;d73=0 "R"                ;d72=3;d73=0 "A"
    
46.         ;d72=5;d73=0 "F"                ;d72=0;d73=3 "T"
    
47.         ;d72=1;d73=3 "TC"               ;d72=2;d73=3 "TR"
    
48.         ;d72=0;d73=2 "ML"               ;d72=4;d73=0 "M"
    
49.         ;d72=1;d73=2 "MC"               ;d72=2;d73=2 "MR"
    
50.         ;d72=0;d73=1 "BL"               ;d72=1;d73=1 "BC"
    
51.         ;d72=2;d73=1 "BR"
    
52. ;;;(dtext PT nil '("123") "DXFS" (* 3 0bl) 0.7 0 0 0 "0" -1)
    
53. 
    
54. (defun #m_dtxt(pt zcjj zcb sty th wid tan d72 d73 lay color / A IN P1)
    
55.   (if (not zcjj)(setq zcjj (* th 1.5)))
    
56.   (setq in 0 a(- tan a:pi2))
    
57.   (foreach x zcb
    
58.     (setq p1(polar pt a (* in zcjj))in (1+ in))
    
59.     (#m_txt p1 x sty th wid tan d72 d73 lay color)
    
60.   )
    
61. )
    
62. 
    

<br /> ;制造 TEXT; input : 字型pt 高h 宽wid 角tan 对齐方式d72 d73<br />         ;d72=0 d73=0 "L"                ;d72 1;d73=0 "C"<br />         ;d72=2;d73=0 "R"                ;d72=3;d73=0 "A"<br />         ;d72=5;d73=0 "F"                ;d72=0;d73=3 "T"<br />         ;d72=1;d73=3 "TC"               ;d72=2;d73=3 "TR"<br />         ;d72=0;d73=2 "ML"               ;d72=4;d73=0 "M"<br />         ;d72=1;d73=2 "MC"               ;d72=2;d73=2 "MR"<br />         ;d72=0;d73=1 "BL"               ;d72=1;d73=1 "BC"<br />         ;d72=2;d73=1 "BR"<br /> ;;;(#M_TXT PT "123" "DXFS" 300 0.7 0 4 0 "0" -1)<br /> (defun #m_txt (pt txt sty th wid tan d72 d73 lay color /)<br /> (if (and (= d72 0)(= d73 0))<br />   (setq en000 (list<br />       (cons 0 "TEXT")<br />       (cons 1 txt)<br />       (cons 7 sty)<br />       (cons 8 lay)<br />       (cons 10 pt)<br />       (cons 40 th)<br />       (cons 41 wid)<br />       (cons 50 tan)<br />       (cons 72 d72) <br />       (cons 73 d73)   ) )<br />   (setq en000 (list<br />       (cons 0 "TEXT")<br />       (cons 1 txt)<br />       (cons 7 sty)<br />       (cons 8 lay)<br />       (cons 10 pt)<br />       (cons 11 pt)<br />       (cons 40 th)<br />       (cons 41 wid)<br />       (cons 50 tan)<br />       (cons 72 d72) <br />       (cons 73 d73)   ) )<br />   )<br />   (IF (= STY "STANDARD")(setq en000 (append en000 (list (cons 51 0.261799)))))<br />   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))<br />   (if (= nil (entmake en000)) (princ "\n制造 TEXT 实体失败.")  )<br /> )<br /> ;制造 dTEXT; input : 字型pt 高h 宽wid 角tan 对齐方式d72 d73<br />         ;d72=0 d73=0 "L"                ;d72 1;d73=0 "C"<br />         ;d72=2;d73=0 "R"                ;d72=3;d73=0 "A"<br />         ;d72=5;d73=0 "F"                ;d72=0;d73=3 "T"<br />         ;d72=1;d73=3 "TC"               ;d72=2;d73=3 "TR"<br />         ;d72=0;d73=2 "ML"               ;d72=4;d73=0 "M"<br />         ;d72=1;d73=2 "MC"               ;d72=2;d73=2 "MR"<br />         ;d72=0;d73=1 "BL"               ;d72=1;d73=1 "BC"<br />         ;d72=2;d73=1 "BR"<br /> ;;;(dtext PT nil '("123") "DXFS" (* 3 0bl) 0.7 0 0 0 "0" -1)<br /> <br /> (defun #m_dtxt(pt zcjj zcb sty th wid tan d72 d73 lay color / A IN P1)<br />   (if (not zcjj)(setq zcjj (* th 1.5)))<br />   (setq in 0 a(- tan a:pi2))<br />   (foreach x zcb<br />     (setq p1(polar pt a (* in zcjj))in (1+ in))<br />     (#m_txt p1 x sty th wid tan d72 d73 lay color)<br />   )<br /> )<br /> <br />