这个程序可以用文字的形心来旋转吗？

sailorcwx

2. (defun c:test( / SSET INDEX ENT ACADDOC ANG LEFTDOWNPOINT OFFSETLEFTDOWNPOINT USEROS)
3.   
4.   ;加载vlisp函数
5.   (vl-load-com)
6.   
7.   ;选择处理对象
8.   (if (setq sset (ssget '((0 . "TEXT"))))
9.    
10.     (progn
11.       (setq
12. ;保存捕捉
13. useros (getvar "OSMODE")
14. ;索引序号
15. index 0
16. )
17.       ;关闭捕捉
18.       (setvar "OSMODE" useros)
19.       ;通过循环遍历选集
20.       (repeat (sslength sset)
21. (setq
22.    ;文字
23.    ent (ssname sset index)
24.    ;转成VLA对象
25.    obj (vlax-ename->vla-object ent)
26.    ;NEXT
27.    index (1+ index)
28.    )
29. ;文字对象外框
30. (vla-getboundingbox obj 'leftdownpoint 'rightuppoint)\
31. ;设置颠倒:否
32. (vla-put-upsidedown obj :vlax-false)
33. ;设置反向:否
34. (vla-put-backward obj :vlax-false)
35. ;文字角度
36. (setq ang (vla-get-rotation obj))
37. ;调整角度
38. (if (and (> ang (* pi 0.5)) (<= ang (* pi 1.5)))
39.    (vla-put-rotation obj (+ ang pi))
40.    )
41. ;修改后的文字外框
42. (vla-getboundingbox obj 'offsetleftdownpoint 'offsetrightuppoint)
43. ;文字归位
44. (vla-move obj offsetleftdownpoint leftdownpoint)
45. )
46.       ;恢复捕捉
47.       (setvar "OSMODE" useros)
48.       )
49.     )
50.   ;静默退出
51.   (princ)
52.   
53.   )

(defun c:test( / SSET INDEX ENT ACADDOC ANG LEFTDOWNPOINT OFFSETLEFTDOWNPOINT USEROS)      ;加载vlisp函数   (vl-load-com)      ;选择处理对象   (if (setq sset (ssget '((0 . "TEXT"))))         (progn       (setq ;保存捕捉 useros (getvar "OSMODE") ;索引序号 index 0 )       ;关闭捕捉       (setvar "OSMODE" useros)       ;通过循环遍历选集       (repeat (sslength sset) (setq    ;文字    ent (ssname sset index)    ;转成VLA对象    obj (vlax-ename->vla-object ent)    ;NEXT    index (1+ index)    ) ;文字对象外框 (vla-getboundingbox obj 'leftdownpoint 'rightuppoint)\ ;设置颠倒:否 (vla-put-upsidedown obj :vlax-false) ;设置反向:否 (vla-put-backward obj :vlax-false) ;文字角度 (setq ang (vla-get-rotation obj)) ;调整角度 (if (and (> ang (* pi 0.5)) (<= ang (* pi 1.5)))    (vla-put-rotation obj (+ ang pi))    ) ;修改后的文字外框 (vla-getboundingbox obj 'offsetleftdownpoint 'offsetrightuppoint) ;文字归位 (vla-move obj offsetleftdownpoint leftdownpoint) )       ;恢复捕捉       (setvar "OSMODE" useros)       )     )   ;静默退出   (princ)      )

sw1020

除了TEXT其他实体如何实现

caoyin

textbox是无法对付多行文字的，dxf组码直接可以搞定