空格宽度

/db_自贡黄明儒_

2. ;;[功能] 计算一个空格宽度
   
3. ;;vla-GetBoundingBox textbox不计算文字末尾的宽度
   
4. ;;(HH:String:LenBlank "" 3.5 1)=>2.07782
   
5. (defun HH:String:LenBlank (sty h scl / LEN1 LEN2)
   
6.   (if (or (not sty)
   
7.           (= sty "")
   
8.           (not (tblsearch "style" sty))
   
9.       )
   
10.     (setq sty (getvar "textstyle"))
    
11.   )
    
12.   (setq len1 (textbox (list (cons 1 "A") (cons 7 sty) (cons 40 h) (cons 41 scl))))
    
13.   (setq len1 (abs (car (apply 'mapcar (cons '- len1)))))
    
14.   (setq len2 (textbox (list (cons 1 "A A") (cons 7 sty) (cons 40 h) (cons 41 scl))))
    
15.   (setq len2 (abs (car (apply 'mapcar (cons '- len2)))))
    
16.   (- len2 (* len1 2))
    
17. )

;;[功能] 计算一个空格宽度<br /> ;;vla-GetBoundingBox textbox不计算文字末尾的宽度<br /> ;;(HH:String:LenBlank "" 3.5 1)=>2.07782<br /> (defun HH:String:LenBlank (sty h scl / LEN1 LEN2)<br />   (if (or (not sty)<br />           (= sty "")<br />           (not (tblsearch "style" sty))<br />       )<br />     (setq sty (getvar "textstyle"))<br />   )<br />   (setq len1 (textbox (list (cons 1 "A") (cons 7 sty) (cons 40 h) (cons 41 scl))))<br />   (setq len1 (abs (car (apply 'mapcar (cons '- len1)))))<br />   (setq len2 (textbox (list (cons 1 "A A") (cons 7 sty) (cons 40 h) (cons 41 scl))))<br />   (setq len2 (abs (car (apply 'mapcar (cons '- len2)))))<br />   (- len2 (* len1 2))<br /> )

大家看看这样行不行？

st788796

一般来说首尾空格对计算字符宽度没什么意义，如果非要计算，左侧空格有插入点，至于右侧空格可以用一个字符替换最后一个空格来计算总长度

/db_自贡黄明儒_

st788796 发表于 2014-10-22 20:55
一般来说首尾空格对计算字符宽度没什么意义，如果非要计算，左侧空格有插入点，至于右侧空格可以用一个字符 ...

计算空格是有意义的，我想将mtext换行缩进时，想到了用这个

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-10-23 12:07
计算空格是有意义的，我想将mtext换行缩进时，想到了用这个

需要注意mtext中字符间距有控制符，和text不完全一样