[求助]：如何得到TEXT的长度？

snsj

如何得到TEXT的长度？
acAlignmentBottomRight如何调用

xazhji

用 strlen 函数即可！要是多行文本，我是用 掐头去尾 的做法获得文字后，才....

lsjjm

不知你所说的长度是指字符个数？还是尺寸大小？如是尺寸大小，请参考
(textbox elist)

snsj

想直接获取TEXT的最小外框的右下角点坐标，记得ACTIVEX里可以直接获取，找不到那个函数了，得到右下角点文字尺寸长度也就清楚了

eachy

我在程序中都是这样用，hig、sty 程序中都是指定。

2. 
   
3. (defun $ea_textlength (str hig sty)
   
4.   (caadr
   
5.     (textbox
   
6.       (list (cons 40 hig)
   
7.             (cons 1
   
8.                   (if str
   
9.                     str
   
10.                     ""
    
11.                   )
    
12.             )
    
13.             (cons 7 sty)
    
14.       )
    
15.     )
    
16.   )
    
17. )

<br /> (defun $ea_textlength (str hig sty)<br />   (caadr<br />     (textbox<br />       (list (cons 40 hig)<br />             (cons 1<br />                   (if str<br />                     str<br />                     ""<br />                   )<br />             )<br />             (cons 7 sty)<br />       )<br />     )<br />   )<br /> )

aeo

文字实体的四个角

2. 
   
3. (defun TBOX (textent /  tb ll ur ul lr li)
   
4. (command "ucs" "Object" textent)
   
5. (setq tb (textbox (list (cons -1 textent)))
   
6.       ll (car tb)
   
7.       ur (cadr tb)
   
8.       ul (list (car ll) (cadr ur))
   
9.       lr (list (car ur) (cadr ll))
   
10. )
    
11. (setq li(mapcar '(lambda(x)(trans x 1 0))(list ll lr ur ul)))
    
12. (command "ucs" "p")
    
13. (mapcar '(lambda(x)(trans x 0 1)) li)
    
14. )
    

<br /> (defun TBOX (textent /  tb ll ur ul lr li)<br /> (command "ucs" "Object" textent)<br /> (setq tb (textbox (list (cons -1 textent)))<br />       ll (car tb)<br />       ur (cadr tb)<br />       ul (list (car ll) (cadr ur))<br />       lr (list (car ur) (cadr ll))<br /> )<br /> (setq li(mapcar '(lambda(x)(trans x 1 0))(list ll lr ur ul)))<br /> (command "ucs" "p")<br /> (mapcar '(lambda(x)(trans x 0 1)) li)<br /> )<br />

试验:

2. 
   
3. (defun c:tbox()
   
4. (apply 'command (append '("pline") (tbox(car(entsel))) '("C") ) )
   
5. (princ)
   
6. )
   

<br /> (defun c:tbox()<br /> (apply 'command (append '("pline") (tbox(car(entsel))) '("C") ) )<br /> (princ)<br /> )<br />

文字长度:
(distance(car (tbox e))(cadr(tbox e)))


acAlignmentBottomRight:
object.Alignment

object:        Attribute, AttributeRef, Text

1. 
   
2. (vlax-put-property
   
3.   (vlax-ename->vla-object  textent)
   
4.   'Alignment
   
5. acAlignmentBottomRight
   
6. )
   
7. 
   
8. 或
   
9. (vla-put-Alignment
   
10.   (vlax-ename->vla-object  textent)
    
11.    acAlignmentBottomRight
    
12. )
    
13. 
    
14. 
    

复制代码

snsj

多谢AEO，就是想要这个acAlignmentBottomRight的
实现

snsj

2. 
   
3. 文字对其点
   
4. acAlignmentLeft
   
5. 
   
6. acAlignmentCenter
   
7. 
   
8. acAlignmentRight
   
9. 
   
10. acAlignmentAligned
    
11. 
    
12. acAlignmentMiddle
    
13. 
    
14. acAlignmentFit
    
15. 
    
16. acAlignmentTopLeft
    
17. 
    
18. acAlignmentTopCenter
    
19. 
    
20. acAlignmentTopRight
    
21. 
    
22. acAlignmentMiddleLeft
    
23. 
    
24. acAlignmentMiddleCenter
    
25. 
    
26. acAlignmentMiddleRight
    
27. 
    
28. acAlignmentBottomLeft
    
29. 
    
30. acAlignmentBottomCenter
    
31. 
    
32. acAlignmentBottomRight
    
33. －－－－－－－－－－－－－－－－－－－－－－－－－－－
    
34. ;;;得到TEXT的长度和右下角点坐标（同样可以由上边对其点方式
    
35. ;;;得到各个点的坐标),寻求用对齐点得到各个对齐点的坐标的方
    
36. ;;;法）
    
37. ;;;getbr.lsp(snsj)
    
38. (defun c:getbr (/ e pt ept apple_gins apple_dis apple_labr apple_gtal vla3d
    
39.                   redapple_getins redapple_getalg redapple_dis)
    
40. (vl-load-com)   
    
41. (setq e (vlax-ename->vla-object(car(entsel))))
    
42.      (cond
    
43.        ((= (vla-get-alignment e) 14) (setq redapple_getins
    
44.                                 (vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint e)))
    
45.                                            redapple_getalg
    
46.                                 (vlax-safearray->list(vlax-variant-value(vla-get-TextAlignmentPoint e)))
    
47.                                            redapple_dis
    
48.                                             (distance redapple_getins  redapple_getalg)
    
49.                                            )
    
50.         (princ "\n&文字的长度为&:")(princ redapple_dis)(princ "\n&右下角点坐标为&:")(princ redapple_getalg)
    
51.         (princ)
    
52.         )
    
53.        ((/= (vla-get-alignment e) 14)
    
54.       (setq pt (vla-get-insertionpoint e)
    
55.             ept (vlax-safearray->list(vlax-variant-value pt))
    
56.       )  
    
57. (vla-put-Alignment   e   acAlignmentBottomright)
    
58. (setq  apple_gins (vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint e)))                 
    
59.         apple_dis   (distance apple_gins '(0.0 0.0 0.0))
    
60.         apple_labr  (vlax-safearray->list(vlax-variant-value(vla-get-TextAlignmentPoint e)))
    
61.         apple_gtal  (list (- (car ept) (car apple_gins)) (- (cadr ept) (cadr apple_gins)) 0.0)
    
62.           vla3d     (vlax-3D-point apple_gtal)       
    
63.   )
    
64.   (vla-put-TextAlignmentPoint e vla3d)
    
65. (princ "\n&文字的长度为&:")
    
66.   (princ apple_dis)
    
67.   (princ"\n&右下角点坐标为&:")
    
68.   (princ apple_gtal)
    
69.   (princ)  
    
70.   )
    
71.        )
    
72.   )
    
73. －－－－－－－－－－－－－－－－－－－－－－－－－－－－
    
74. 
    
75. 三个信息：TextAlignmentPoint、InsertionPoint 、Alignment
    

<br /> 文字对其点<br /> acAlignmentLeft <br /> <br /> acAlignmentCenter <br /> <br /> acAlignmentRight <br /> <br /> acAlignmentAligned <br /> <br /> acAlignmentMiddle <br /> <br /> acAlignmentFit <br /> <br /> acAlignmentTopLeft <br /> <br /> acAlignmentTopCenter <br /> <br /> acAlignmentTopRight <br /> <br /> acAlignmentMiddleLeft <br /> <br /> acAlignmentMiddleCenter <br /> <br /> acAlignmentMiddleRight <br /> <br /> acAlignmentBottomLeft <br /> <br /> acAlignmentBottomCenter <br /> <br /> acAlignmentBottomRight <br /> －－－－－－－－－－－－－－－－－－－－－－－－－－－<br /> ;;;得到TEXT的长度和右下角点坐标（同样可以由上边对其点方式<br /> ;;;得到各个点的坐标),寻求用对齐点得到各个对齐点的坐标的方<br /> ;;;法）<br /> ;;;getbr.lsp(snsj)<br /> (defun c:getbr (/ e pt ept apple_gins apple_dis apple_labr apple_gtal vla3d<br />                   redapple_getins redapple_getalg redapple_dis)<br /> (vl-load-com)   <br /> (setq e (vlax-ename->vla-object(car(entsel))))<br />      (cond<br />        ((= (vla-get-alignment e) 14) (setq redapple_getins<br />                                 (vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint e)))<br />                                            redapple_getalg<br />                                 (vlax-safearray->list(vlax-variant-value(vla-get-TextAlignmentPoint e)))<br />                                            redapple_dis<br />                                             (distance redapple_getins  redapple_getalg)<br />                                            )<br />         (princ "\n&文字的长度为&:")(princ redapple_dis)(princ "\n&右下角点坐标为&:")(princ redapple_getalg)<br />         (princ)<br />         )<br />        ((/= (vla-get-alignment e) 14)<br />       (setq pt (vla-get-insertionpoint e)<br />             ept (vlax-safearray->list(vlax-variant-value pt))<br />       )  <br /> (vla-put-Alignment   e   acAlignmentBottomright) <br /> (setq  apple_gins (vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint e)))                 <br />         apple_dis   (distance apple_gins '(0.0 0.0 0.0))<br />         apple_labr  (vlax-safearray->list(vlax-variant-value(vla-get-TextAlignmentPoint e)))<br />         apple_gtal  (list (- (car ept) (car apple_gins)) (- (cadr ept) (cadr apple_gins)) 0.0)<br />           vla3d     (vlax-3D-point apple_gtal)        <br />   )<br />   (vla-put-TextAlignmentPoint e vla3d) <br /> (princ "\n&文字的长度为&:")<br />   (princ apple_dis)<br />   (princ"\n&右下角点坐标为&:")<br />   (princ apple_gtal)<br />   (princ)  <br />   )<br />        )<br />   )<br /> －－－－－－－－－－－－－－－－－－－－－－－－－－－－<br /> <br /> 三个信息：TextAlignmentPoint、InsertionPoint 、Alignment<br />

XDSoft

最初由 snsj 发布
[B][code]
文字对其点
acAlignmentLeft

acAlignmentCenter

acAlignmentRight

acAlignmentAligned

acAlignmentMiddle

acAlignmentFit

acAlignmentTopLeft

acAlignmentTopCenter

acAli... [/B]

分别测试下前、后都有空格的文字，看看是否能得到正确的点？

hz900cn

我也想知道

snsj

昨天代码有问题改了一下，文字默认对其点为原点，老出现位置问题，东哥你的意思是当遇到前后都有空格的时候先清空格？

snsj

利用VLA-GETBOUNDINGBOX求左下角点和右上角点坐标
(setq e (vlax-ename->vla-object(car(entsel))))
(vla-getboundingbox e 'minpoint 'maxpoint)
(vlax-safearray->list minpoint)
(vlax-safearray->list maxpoint)

cy956

最初由 snsj 发布
[B]昨天代码有问题改了一下，文字默认对其点为原点，老出现位置问题，东哥你的意思是当遇到前后都有空格的时候先清空格？ [/B]

一直也没搞清楚str的长度定位。以前在使用中
也发现函数对尾空格str出错，另外，一个字串
“abc”不等于“a""b""c"长度之和或起点偏移
的调整。。

snsj

得到这些点的坐标主要想运用到文字和各个实体的对齐或者说定位上

XDSoft

最初由 cy956 发布
[B]

一直也没搞清楚str的长度定位。以前在使?.. [/B]

查看下晓东工具箱里面的 xdlsp.lsp 里面的关于字符串处理的通用函数。

了解下如何用entget得到字符串的真实长度（考虑了前后空格）