[教学]：获取字符串长度----textbox

aeo

最初由 ll_j 发布
[B]

其实我的意思是，在程序中进行插入点计算时，带有倾角的文本的包围盒计算价值不高这里包含了倾角的影响因素，比如：倾斜的“a”、“b”的包围盒相加在加上理论上的字符?.. [/B]

我就是这意思。
"a" +" b"当然/= "ab"
相对关系而已: "b "=  "ab" - "a" ,并不就是 "b"

假定角度为0
p0为"abc"定义点, 包围盒box1(p1 p2)
dis1 = X(p2) - X (p0)

"c "还在p0写 ,包围盒box2(p3 p4)
dis2 = X(p4) - X(p0)

  因为要对齐
   "c"的定义点p00 =  p0 平移了dis2-dis1
所以：

2. 
   
3. ;;求最后一个字符的定义点.
   
4. ;;是中文自己加判断.
   
5. (defun get-lastchr-pt(ename / )
   
6. (setq en(entget ename)
   
7.          str (cdr(assoc 1 en)
   
8.           p0(cdr(assoc 10 en))
   
9.          ang(cdr(assoc 50 en))
   
10.           lastchr(substr str (strlen str))
    
11.      box1(textbox en)
    
12.           box2(textbox(subst(cons 1 lastchr)(assoc 1 en)en))
    
13.      P00 (polar p0 ang(-(caadr box2)(caadr box1)))
    
14. )
    
15. )
    

<br /> ;;求最后一个字符的定义点.<br /> ;;是中文自己加判断.<br /> (defun get-lastchr-pt(ename / )<br /> (setq en(entget ename)<br />          str (cdr(assoc 1 en)<br />           p0(cdr(assoc 10 en))<br />          ang(cdr(assoc 50 en))<br />           lastchr(substr str (strlen str))<br />      box1(textbox en)<br />           box2(textbox(subst(cons 1 lastchr)(assoc 1 en)en))<br />      P00 (polar p0 ang(-(caadr box2)(caadr box1)))<br /> )<br /> )<br />

jx2008

这些事对已经绘制的文字或字符串，但对于还没有绘制，只是复制在变量里的文字或字符串的长度呢，怎么求？