上善若水！@# 发表于 2018-3-8 11:20:23

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


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

KO你 发表于 2018-12-2 21:16:39

(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 发表于 2018-4-9 10:25:04

本帖最后由 xazhji 于 2018-5-6 15:11 编辑

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

yoyoho 发表于 2018-12-8 11:39:13

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

qq1254582201 发表于 2018-5-3 10:55:00

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

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

尘缘一生 发表于 2018-4-9 07:25:25

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

ketxu 发表于 2018-5-4 16:32:01

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

KO你 发表于 2018-12-2 21:21:27

文字对正工具

本帖最后由 KO你 于 2018-12-6 21:55 编辑

对正工具加了面板

l982414 发表于 2018-12-5 21:11:51

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 发表于 2018-12-7 07:27:48

好工具，下载了
页: [1] 2 3 4
查看完整版本: 求文字对齐方式的lsp，如左对齐，左下对齐