如何输出为1个多行文本

统一网名 · 发表于 2019-11-8 17:29:24

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

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

×

代码如下：
(defun c:cesi()
(setq qb1 (strcat "材料1：" "1200" "\*" "120" "\*" "60" "=" "100"))
(setq qb2 (strcat "材料2：" "3000" "\*" "180" "\*" "90" "=" "800"))
(setq qb3 (strcat "材料3：" "3500" "\*" "200" "\*" "100" "=" "120"))

(setq po1 (getpoint "料单放置点:"));确定料单第1行位置。
(setq po2 (list (car po1)(- (cadr po1) 180.00)));确定料单第2行位置。
(setq po3 (list (car po1)(- (cadr po2) 180.00)));确定料单第3行位置。

(command "text" po1 "120"  "0" qb1) ;打印到图纸上
(command "text" po2 "120"  "0" qb2) ;打印到图纸上
(command "text" po3 "120"  "0" qb3) ;打印到图纸上
)

如何将料单输出为一个多行文字，目前是按单行的输出的。

yzj63298368 · 发表于 2019-11-10 07:35:13

学习下！！！！！！！！！！！！！！！

jshailinqq · 发表于 2019-11-10 08:21:44

还真没用过，只知道“输入 \P 结束段落并在下一行开始新段落。（请记住 P 要大写。）”

numen1014 · 发表于 2020-12-25 16:18:17

楼主问题解决了吗？

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

[求助] 如何输出为1个多行文本

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