求文字对齐方式的lsp，如左对齐，左下对齐

上善若水！@#

如题，求哪位大神上传一个lsp文件，谢谢！

KO你

(defun c:te ()
(initget "S1 S2 S3 D1 D2 D3 F1 F2 F3")
(setq i (getkword "\n左上<S1>;左中<S2>;左下<S3>;中上<D1>;中中<D2>;中下<D3>;右上<F1>;右中<F2>;右下<F3>"))
(cond
((= i "S1") (setq ent (ssget))(command "justifytext" ent "" "tl"))
((= i "S2") (setq ent (ssget))(command "justifytext" ent "" "ml"))
((= i "S3") (setq ent (ssget))(command "justifytext" ent "" "bl"))
((= i "D1") (setq ent (ssget))(command "justifytext" ent "" "tc"))
((= i "D2") (setq ent (ssget))(command "justifytext" ent "" "mc"))
((= i "D3") (setq ent (ssget))(command "justifytext" ent "" "bc"))
((= i "F1") (setq ent (ssget))(command "justifytext" ent "" "tr"))
((= i "F2") (setq ent (ssget))(command "justifytext" ent "" "mr"))
((= i "F3") (setq ent (ssget))(command "justifytext" ent "" "br")))
(princ))

xazhji

不用编程，可以按Ctrl+1打开特性编辑器，在对齐目标文字上点一下，复制特性编辑器的x坐标值，再选择其余要与之对齐的文字，再在特性编辑器中的坐标x值中粘贴刚才复制的数据，即可完成对齐。其他对齐类似。

yoyoho

谢谢! KO你 分享学习!!!!!

qq1254582201

xazhji 发表于 2018-4-9 10:25
不用编程，可以按Ctrl+1打开特性编辑器，在对其目标文字上点一下，复制特性编辑器的x坐标值，再选择其余要 ...

这个不错，学习了，回头做个小lisp，应该挺不错的

尘缘一生

同求啊。。。。。。。。。。。。。。。

ketxu

您可以使用“Tjust”命令（如果您的CAD已经有Express Tool）。 它改变文本格式但不改变位置

KO你

对正工具加了面板

l982414

KO你 发表于 2018-12-2 21:16
(defun c:te ()
(initget "S1 S2 S3 D1 D2 D3 F1 F2 F3")
(setq i (getkword "\n左上;左中;左下;中上;中 ...

可以帮我修改一下插件吗QQ178699527,论坛也有发 布

szygyue

好工具，下载了