指定行写入文本，commande"text“...怎么让文字对齐？

75215195 · 发表于 2017-7-19 18:42:23

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

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

×

(defun MJHF1 ()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq ff (open "f://cl.txt" "r")) ;;打开并读取文件
(setq data (read-line ff))                            ;;读取第一个内容
(setq data_list '())                                  ;;声明一个空列表
(while data                                           ;;如果内容不为空循环写入列表
  (setq data_list (cons data data_list))             ;;第一个内容写入列表
  (setq data (read-line ff))                         ;;读取下一个
)
(setq data_list (reverse data_list))                ;;颠倒列表顺序
(close ff)                                           ;;关闭文件
  (setq pt (getpoint "\n选择插入点："))
(setq d1 (nth 2 data_list))
  (setq d2 (nth 3 data_list))
  (setq d3 (nth 4 data_list))
(command "text" "j" "bl" pt "4" "0" (strcat d1"\n"d2"\n"d3) "")
  (princ))
文字怎么左对齐？怎么改(command "text"..........."")

实现效果是这样，文字没有左对齐

iLisp · 发表于 2017-7-19 18:55:09

(foreach x data_list
(command ".text" "j" "bl" pt "4" "0" x)
(setq pt (mapcar '+ pt '(0 -5 0)))
)

75215195 · 发表于 2017-7-19 19:29:49

iLisp 发表于 2017-7-19 18:55

改成这样整个文本都写入了，我只要写入第三行，第四行，第五行。让这几行左对齐。

/db_自贡黄明儒_ · 发表于 2017-7-19 21:16:33

75215195 发表于 2017-7-19 19:29

(command ".text" "j" "bl" pt "4" "0" x)中pt点Y值相等，就对齐了。

Lisphk · 发表于 2017-7-19 22:14:22

75215195 发表于 2017-7-19 19:29

那你就在循环里面加个计数器呗，等于你想要的行时候做。

qq1254582201 · 发表于 2017-7-21 09:47:33

不知道这个具体有什么作用呢

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

[求助] 指定行写入文本，commande"text“...怎么让文字对齐？

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