如何绘制 "不足居中，太长压窄" 的文字。

千风

面临这样一个问题：

需要在CAD中绘制一个 属性定义 ，要求值文字居中显示且
①如果值文字总长不足10mm，则自动居中显示。
②如果值文字总长超过10mm，则自动被压扁到10mm。




我的问题出在：
如果我设定对齐方式为居中，填的值太长就会超10mm的限制
如果我设定对齐方式为布满，填一个字母的值就被拉长到10mm惨不忍睹了！

vormittag

可以编程序实现，但是想对属性块编辑后实时实现可能只能用反应器了。

Gu_xl

将文字属性设置为居中，然后计算每个文字的宽度，然后根据计算的文字宽度来修改文字的宽比因子！

xyp1964

属性文本f对齐

edata

有一种想法，因为手
机上，所以没试过，当文字不足10的时候，补充不可见字符，如空格，我试过右对齐，没试过布满。

llsheng_73

得到属性图元名e后，得到它的旋转角(setq rota(cdr(assoc 50(entget e))))再得到它的左下角和右上角
(vla-getboundingbox (vlax-ename->vla-object (entnext e)) 'll 'ur)
        (setq ll (vlax-safearray->list ll)
              ur (vlax-safearray->list ur))
如果rota>(/ pi 4);;;45度通过(/(- (cadr ur)(cadr ll))(sin rota))计算出它的长度d
反之用(/(- (car ur)(car ll))(cos rota))计算d
接下来可以d和你设定的值决定要不要改(entget e)的41组以及改成多少了
至于居中不管它怎么样都设为居中不就OK？

sicky111

用strlen获取文字个数，不足用m，太长用f。

sicky111

2. ;;;;;示例
   
3. (setq str "明经CAD社区")
   
4. (if (< (strlen str) 5)
   
5.            (command ".text" "m" pt "3" "0" str)
   
6.            (command ".text" "f" pt1 pt2 "3" str)
   
7.        )

;;;;;示例<br /> (setq str "明经CAD社区")<br /> (if (< (strlen str) 5)<br />            (command ".text" "m" pt "3" "0" str)<br />            (command ".text" "f" pt1 pt2 "3" str)<br />        )

firstinti

这和字体有关系的，不同的字体同样的字高宽度也是不一样的，而且字母数字不同的字体也有变化，正常的解决思路是生成-测量宽度-修改宽比因子-生成-再测量，如此反复直到满足要求为止

firstinti

firstinti 发表于 2013-12-10 19:59
这和字体有关系的，不同的字体同样的字高宽度也是不一样的，而且字母数字不同的字体也有变化，正常的解决思 ...

因为在text没生成之前是不会知道字段的真实长度的，如果根据文字内容能算出来文字长度就根本就没有这个问题