[求助]：如何在图面上输出多行文本??

zhanyu80

比如我有一表 (("F1.12"  2) ("F2.12" 5)  ("L8.16" 12))

如何在图上 写出
  F1.12   2
    F2.12   5
    L8.16   12
这样的文本

新手~~~~~~`

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq lst '(("F1.12" 2) ("F2.12" 5) ("L8.16" 12)))
   
4.   (setq        pt  (getpoint "\放置点 : ")
   
5.         t1  (car lst)
   
6.         lst (cdr lst)
   
7.         tx2 (strcat (car t1) " " (rtos (cadr t1) 2 0))
   
8.         tx1 tx2
   
9.   )
   
10.   (while (setq t1 (car lst))
    
11.     (setq lst (cdr lst)
    
12.           tx  (strcat tx1
    
13.                       "\\P"
    
14.                       (car t1)
    
15.                       " "
    
16.                       (rtos (cadr t1) 2 0)
    
17.               )
    
18.           tx1 tx
    
19.     )
    
20.   )
    
21.   (entmake
    
22.     (list '(0 . "MTEXT")
    
23.           '(100 . "AcDbEntity")
    
24.           '(67 . 0)
    
25.           '(100 . "AcDbMText")
    
26.           (cons 10 pt)
    
27.           (cons 1 tx)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq lst '(("F1.12" 2) ("F2.12" 5) ("L8.16" 12)))<br />   (setq        pt  (getpoint "\放置点 : ")<br />         t1  (car lst)<br />         lst (cdr lst)<br />         tx2 (strcat (car t1) " " (rtos (cadr t1) 2 0))<br />         tx1 tx2<br />   )<br />   (while (setq t1 (car lst))<br />     (setq lst (cdr lst)<br />           tx  (strcat tx1<br />                       "\\P"<br />                       (car t1)<br />                       " "<br />                       (rtos (cadr t1) 2 0)<br />               )<br />           tx1 tx<br />     )<br />   )<br />   (entmake<br />     (list '(0 . "MTEXT")<br />           '(100 . "AcDbEntity")<br />           '(67 . 0)<br />           '(100 . "AcDbMText")<br />           (cons 10 pt)<br />           (cons 1 tx)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

zhanyu80

多谢,已经搞定.