fire9527 发表于 2013-1-3 00:33:39

如何一键改变单行文字对齐方式和宽度系数

我想把框选的单行文字对齐方式改为fit，宽度系数改为0.6怎么改？

ZZXXQQ 发表于 2013-1-3 00:33:40

本帖最后由 ZZXXQQ 于 2013-1-5 08:16 编辑


(defun c:tt ()
(if (setq ss (ssget '((0 . "TEXT")))) (progn
(setq i -1)
(repeat (sslength ss)
   (setq ent (entget(ssname ss (setq i (1+ i)))))
   (setq txtpt (textbox ent))
   (setq w (- (car(last txtpt)) (caar txtpt)))
   (setq pt2 (polar (cdr(assoc 10 ent)) (cdr(assoc 50 ent)) 1000))
;   (setq pt2 (polar (cdr(assoc 10 ent)) (cdr(assoc 50 ent)) (* 0.6 w)))
   (setq ent (subst '(72 . 5) (assoc 72 ent) ent))
   (setq ent (subst '(73 . 0) (assoc 73 ent) ent))
   (entmod (subst (cons 11 pt2) (assoc 11 ent) ent))
;   (entmod (subst '(41 . 0.6) (assoc 41 ent) ent))
)
))
(princ)
)

ZZXXQQ 发表于 2013-1-3 08:17:21

FIT?其宽度系数是由两点间距和文字长度决定的。不如直接改宽度。

fire9527 发表于 2013-1-3 11:00:10

本帖最后由 fire9527 于 2013-1-3 11:20 编辑

多谢提醒，那我想要的就是框选文字改文字为指定宽度的插件了，文字对齐方式需要变成fit

fire9527 发表于 2013-1-3 21:49:53

ZZXXQQ 发表于 2013-1-3 21:18 static/image/common/back.gif


初衷已实现，谢谢大侠！如果想让文字的外轮廓永远一样大（不管输入多少个字符，文本总宽度固定）程序应该怎么改呢？这样调整表格很省心

ZZXXQQ 发表于 2013-1-3 22:19:37

地板修建好了

蒹葭_Keirll 发表于 2013-1-4 09:59:28

fire9527 发表于 2013-1-3 21:49 static/image/common/back.gif
初衷已实现，谢谢大侠！如果想让文字的外轮廓永远一样大（不管输入多少个字符，文本总宽度固定）程序应该 ...

可以将文字对齐方式改成“布满”(组码72改成5)

fire9527 发表于 2013-1-4 15:51:22

ZZXXQQ 发表于 2013-1-3 22:19 static/image/common/back.gif
地板修建好了

程序貌似是将文字按字符多少压缩，我表格宽度是恒定的1000，我希望放到那个格子里不管多少字符都要将那个格子填满，最好把修改固定宽度的那行写个注解以便修改，麻烦大侠再牛刀小挥非常感谢！

fire9527 发表于 2013-1-4 23:05:34

ZZXXQQ 发表于 2013-1-3 22:19 static/image/common/back.gif
地板修建好了

“程序已在那里，只要计算组码11的坐标点就行了”……
大侠，俺不懂编程，能不能请你帮我改个现成的？

ZZXXQQ 发表于 2013-1-5 08:20:42

又重新装修了一遍，打了补丁。从这可以看出：人的欲望是无穷的
页: [1] 2
查看完整版本: 如何一键改变单行文字对齐方式和宽度系数