[求助]：如何输入多行文本？

gjt1244

用mtext结合换行符"\n"可以很容易输入多行文本，但觉得生成文本的速度很慢；用text或者dtext在cad绘图环境下结合回车键可以很方便输入多行文本，（我平时绘图一般也是用dtext），但如果在lisp下运用text或dtext就不会用了，好像他们都识别不了环行符"\n"；请教大家如何？
例如：(setq str "我是张三\n你是谁？")
(command "text" (getpoint) "" "" str)
运行后显示的是：我是张三你是谁？

如果用mtext则可以辨别出换行符

wkai

2. 
   
3. (defun c:tt ()
   
4.   (setq a "我是张三\n你是谁？")
   
5.   (while (setq n (vl-string-search "\n" a))
   
6.     (princ (substr a 1 n))
   
7.     (command "text" (getpoint) "" "" (substr a 1 n) "")
   
8.     (setq a (substr a (+ 2 n)))
   
9.   )  
   
10.   (command "text" (getpoint) "" "" a "")
    
11. )
    

<br /> (defun c:tt ()<br />   (setq a "我是张三\n你是谁？")<br />   (while (setq n (vl-string-search "\n" a))<br />     (princ (substr a 1 n))<br />     (command "text" (getpoint) "" "" (substr a 1 n) "")<br />     (setq a (substr a (+ 2 n)))<br />   )  <br />   (command "text" (getpoint) "" "" a "")<br /> )<br />

gjt1244

先谢了版主，但你误解了我的意思，我想要的是在lisp中输入多行文本的一般方法；要得到的效果是跟在绘图环境中用dtext或text的效果一样，也就是多行文本有固定的行距，而不用每输入一行就要求（getpoint）一次

ljpnb

这样吗？

(defun c:tt()
  (setq a "我是张三\n你是谁？\n我是李四\n王五\n赵六")
  (if (/= (setq n (vl-string-search "\n" a)) nil)
    (progn
      (command "text" (getpoint) "" "" (substr a 1 n))
      (setq a (substr a (+ 2 n)))
      (while (setq k (vl-string-search "\n" a))
        (command "text" "" (substr a 1 k))
        (setq a (substr a (+ 2 k)))
      )
      (if (= (setq k (vl-string-search "\n" a)) nil)
        (command "text" "" a)
      )

    )
    (command "text" (getpoint) "" "" a)
  )

  (princ)

)

gjt1244

谢谢lkpnb，问题解决了，我想知道的是text输入多行文本的方法：
(command "text"  "" "" str1)
(command "text" "" str2)
(command "text" "" str3)
....................................
l