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

75215195

(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

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

75215195

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

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

/db_自贡黄明儒_

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

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

Lisphk

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

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

qq1254582201

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