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

TLHMQH · 发表于 2007-4-4 21:55:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

zml84 · 发表于 2007-4-7 13:43:33

将各行文字依次使用"\\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 · 发表于 2007-4-7 20:30:26

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

carrot1983 · 发表于 2007-4-7 21:45:02

用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 · 发表于 2007-4-7 23:03:50

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

黄河之水 · 发表于 2007-4-8 09:44:13

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

zml84 · 发表于 2007-4-9 11:46:20

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

byghbcaixin · 发表于 2007-4-9 14:54:23

是否这样:

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

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

tianxinglibo · 发表于 2007-4-12 15:33:56

多谢了

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子