[LISP函数-字串]：预计字串的实际长度

eachy

2. 
   
3. ;;参数 str -- 字串 h ---  字高 wid --- 宽度因子
   
4. (defun xd-text_length (str h wid /)
   
5.   (caadr (textbox
   
6.            (list (cons 40 h)
   
7.                  (cons 1 str)
   
8.                  (cons 41 wid)
   
9.                  (cons 7 (getvar "textstyle"))
   
10.            )
    
11.          )
    
12.   )
    
13. )

<br /> ;;参数 str -- 字串 h ---  字高 wid --- 宽度因子<br /> (defun xd-text_length (str h wid /)<br />   (caadr (textbox<br />            (list (cons 40 h)<br />                  (cons 1 str)<br />                  (cons 41 wid)<br />                  (cons 7 (getvar "textstyle"))<br />            )<br />          )<br />   )<br /> )

狂刀

题目应该是预计字长（按当前字体形式）。
实际字长是
(caadr (textbox (entget e)))　;;ｅ为"TEXT"实体.

aeo

我纠正了很多次了.
有些字型写的字textbox 的第一个值不一定是原点，所以求包围盒和求距离都要相应的减一下.

2. 
   
3. (defun xd-text_length(e / box)
   
4.   (setq box(textbox(if(eq(type e)'ename)(entget e)e)))
   
5.   (-(caadr box)(caar box))
   
6. )
   

<br /> (defun xd-text_length(e / box)<br />   (setq box(textbox(if(eq(type e)'ename)(entget e)e)))<br />   (-(caadr box)(caar box))<br /> )<br />

nyzzy

Mtext，文字能测吗？

jx2008

要测不单止是字符，还有数字的长度阿