在文本编辑中对齐文本

dnovember99 · 发表于 2022-7-5 15:15:25

因此，我一直在寻找一些时间，现在试图找到一些能够帮助我做到这一点。我希望多行文字中的文字向右、居中或向左对齐。我现在看到的唯一方法是双击，高亮显示文本，然后从功能区中选择它。

我试着使用textalign命令，但似乎无法将文本向右、居中或向左移动。

有谁知道有一个lisp，你可以选择左、右或居中，然后单击要更改的文本？

谢谢大家

ronjonp · 发表于 2022-7-5 15:21:06

您只需在“特性”选项板中切换“对齐”？

dnovember99 · 发表于 2022-7-5 15:23:55

是的，我就是那种不喜欢使用调色板的人。我只是想看看是否有什么东西可以让事情变得更快一点

ronjonp · 发表于 2022-7-5 15:29:32

很公平。。如果其他人不加入，我会在一点时间内敲出一些代码

dnovember99 · 发表于 2022-7-5 15:33:42

哦，太棒了！另一件我不喜欢使用这个调色板的事情是，如果你有多行文字，并且没有将方框缩小到一定大小，当你点击从右到左对齐时，它会移动文字。这是另一个额外的步骤。不确定是否也可以考虑。如果不是都好的话。我只是想把它扔出去。

Lee Mac · 发表于 2022-7-5 15:39:16

试试这个：

copy

(defun c:mj ( / g i l s )
   (if (setq s (ssget "_:L" '((0 . "MTEXT"))))
       (progn
           (repeat (setq i (sslength s))
               (setq l (cons (entget (ssname s (setq i (1- i)))) l))
           )
           (princ "\nAlter the alignment using the numberpad <done>: ")
           (while (and (= 2 (car (setq g (grread nil 2)))) (< 48 (cadr g) 58))
               (setq g (cons 71 (cdr (assoc (cadr g) '((49 . 7)(50 . (51 . 9)(52 . 4)(53 . 5)(54 . 6)(55 . 1)(56 . 2)(57 . 3))))))
               (foreach x l (entmod (subst g (assoc 71 x) x)))
           )
       )
   )
   (princ)
)

ronjonp · 发表于 2022-7-5 15:42:30

李很好。。这里是另一个快速的。

copy

(defun c:just (/ j k s)
 (setq j '("TL" "TC" "TR" "ML" "MC" "MR" "BL" "BC" "BR"))
 (initget 0 (apply 'strcat (mapcar '(lambda (x) (strcat x " ")) j)))
 (cond
   ((and (or (setq
        k (getkword
            (strcat "\n[" (apply 'strcat (mapcar '(lambda (x) (strcat x "/")) j)) "]: <TL>")
          )
      )
      (setq k "TL")
  )
  (setq s (ssget ":L" '((0 . "mtext"))))
    )
    (foreach e        (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (vla-put-attachmentpoint (vlax-ename->vla-object e) (1+ (vl-position k j)))
    )
   )
 )
 (princ)
)
(vl-load-com)

dnovember99 · 发表于 2022-7-5 15:45:33

麦克先生，谢谢你。我在玩它，我注意到在键盘上（9）是底部（6）中心和（3）顶部，然后是另一侧（7）底部（4）中心和（1）顶部。

我认为这就是你希望领导出现的地方。我的想法正确吗？我想的更多是当你双击文本，突出显示文本，而在“段落”上方的文本编辑器中，你可以选择“右对齐”，左对齐，居中对齐，等等。

我和一个人聊过，他们告诉我只用宏就可以了。这是给我的。

copy

;; Justification Macros
(defun _justifyIt (justify title / ss)
 (princ (strcat "\nSelect *Text to " title " justify: "))
 (if (setq ss (ssget "_:L" '((0 . "ATTDEF,MTEXT,TEXT"))))
   (command "_.justifytext" ss "" justify)
 )
 (princ)
)
(defun c:JL (/) (_justifyIt "_L" "Left"))
(defun c:JR (/) (_justifyIt "_R" "Right"))