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

自贡黄明儒

firstinti 发表于 2013-12-11 19:35
因为在text没生成之前是不会知道字段的真实长度的，如果根据文字内容能算出来文字长度就根本就没有这个问 ...

没有生成之前，如果知道字体，好象可以知道真实长度
这是别人写的

1. ;;str -- string
   
2. ;;h   -- height
   
3. (defun XD::String:Len (sty str h scl)
   
4.   (and (or (not sty)
   
5.     (= sty "")
   
6.     (not (tblsearch "style" sty))
   
7.        )
   
8.        (setq sty (getvar "textstyle"))
   
9.   )
   
10.   (abs
    
11.     (car
    
12.       (apply 'mapcar
    
13.       (cons '-
    
14.      (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h) (cons 41 scl))
    
15.       )
    
16.       )
    
17.     )
    
18.   )
    
19. )

;;str -- string<br /> ;;h   -- height<br /> (defun XD::String:Len (sty str h scl)<br />   (and (or (not sty)<br />     (= sty "")<br />     (not (tblsearch "style" sty))<br />        )<br />        (setq sty (getvar "textstyle"))<br />   )<br />   (abs<br />     (car<br />       (apply 'mapcar<br />       (cons '-<br />      (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h) (cons 41 scl))<br />       )<br />       )<br />     )<br />   )<br /> )

llsheng_73

好东东毫不客气的拿走，我也装回要做研究的样子