[求助]：能否用LISP一次标出多行文字？

TLHMQH

如题，能否用LISP一次标出如下面格式的多行文字？
       XXXX地区XXXX
            规划设计图
即标出的是两行或多行文字，对正为正中。
谢谢！

zml84

将各行文字依次使用"\\P"连接起来响应文字输入。
例如：[PHP]
(defun c:test ()
    (command "_mtext"               '(-30 -10)         "j"
             "mc"               '(30 10)
             "XXXX地区XXXX\\\\P规划设计图"         ""
            )
    (command "_zoom" "w" '(-30 -10) '(30 10))
    (princ)
)
[/PHP]

TLHMQH

谢谢zml84指点！
我的意思是：在指定的位置，用Dtext同时书写出两行各自独立的语句。

carrot1983

用zm184的程序改了一下就行了
[php]
(defun c:test ()
    (command "_mtext"           '(-30 -10)     "j"
         "mc"           '(30 10)
         "XXXX地区XXXX\\P规划设计图"     ""
        )
    (command "zoom" "e")
    (setq ss (ssadd))
    (ssadd (entlast) ss)
    (command "EXPLODE" ss)
    (princ)
)
[/php]
若用dtext做的话。。

TLHMQH

谢谢相助，但运行没通过。

黄河之水

需要写两行文字(command "TEXT"    .............),再对后写的文字行进移动到指定的位置.再写再移动,我就是运用这样的方法写的

zml84

4楼的思路是对的。其代码未通过是因为在文字内容中少写了一个"\"。
将其代码修改后如下：
[PHP]
(defun c:test ()
    (command "_mtext"              '(-30 -10)       "j"
             "mc"              '(30 10)
             "XXXX地区XXXX\\\\P规划设计图"               ""
            )
    (command "EXPLODE" (entlast))
    (princ)
)
[/PHP]
6楼的循环的思想在操作数大时是非常实用的。

byghbcaixin

是否这样:

当然,字高、字宽、角度、内容等要满足你自已的要求

(defun test()
(setq pt (getpoint "\n请输入文字插入点"))
(command "_.text" "j" "mc" pt 5.0 0.0 "XXXX地区XXXX项目")
(command "_.text"  "" "规划设计图")
  )

tianxinglibo

多谢了