在文本编辑中对齐文本

tombu · 发表于 2022-7-5 15:56:38

您可以添加JT作为别名来证明Acad中的文本。pgp使用ALIASEDIT Express工具，或在CUI的“键盘快捷键”下为其创建Ctrl+J快捷键

另一个选项是向CUI中“快捷菜单”下的“多行文字对象菜单”和“多行文字对象菜单”添加“对齐文字”弹出按钮，每个选项都有命令，如：
名称TL
宏

copy

$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_justifytext;TL;,^C^C_justifytext;TL)

另一个“对齐文字”弹出按钮同时指向CUI中“快捷菜单”下的“文字对象菜单”和“文字对象菜单”，每个选项的命令如下：
左名称
宏

copy

$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_justifytext;TL;,^C^C_justifytext;Left)

我可以使用快捷键Ctrl+J，输入JT，或右键单击所选文本并选择“对齐文本”以选择对齐方式。

Lee Mac · 发表于 2022-7-5 16:00:29

您应该发现对正设置如下：7=左上，8=上中，9=右上，4=左中，5=中中中，6=右中，1=左下等等。

这在我的测试中得到了证实——不是这样吗？

rlx · 发表于 2022-7-5 16:07:22

数字布局可能不同。在我的工作中，有几位同事来自比利时，他们更喜欢自己的键盘布局，所以必须在键盘上键入一些东西是很好的，至少可以说是很有挑战性的。但你和罗恩·琼普的小动作都很好。

dober · 发表于 2022-7-5 16:10:13

@李
如果这是文本的同义词，那么现在它只适用于MTexte

Würde das auch mit Text gehen，jetzt funktioniert das nur mit MTexte

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

以下内容应适用于两者-

copy

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

dober · 发表于 2022-7-5 16:19:09

谢谢你完美的李
一如既往，tooles Lisp

Danke perfekt LEE公司
Wie immer tooles Lisp

[编程交流] 在文本编辑中对齐文本

发表回复

精选推荐