始终平行于当前视图的多行文字

kucha007

作为此贴的补充：entmake创建图元必要条件(慢慢更新)

1. (entmakeX
   
2.   (list (cons 0 "MTEXT")
   
3.         (cons 100 "AcDbEntity")
   
4.         (cons 100 "AcDbMText")
   
5.         (cons 10 TgtPT) ;WCS插入点
   
6.         (cons 40 Hgt) ;文字高度
   
7.         (cons 1 STR) ;文字内容
   
8.         (cons 50
   
9.               (-
   
10.                 (- (* 2 pi) (getvar "viewtwist"))
    
11.                 (angle '(0. 0. 0.)
    
12.                        (trans (getvar 'UCSXDIR) 0 (trans '(0. 0. 1.) 1 0 t) t)
    
13.                 )
    
14.               )
    
15.         ) ;文字旋转始终水平视图
    
16.   )
    
17. );多行文字
    

(entmakeX <br />   (list (cons 0 "MTEXT") <br />         (cons 100 "AcDbEntity")<br />         (cons 100 "AcDbMText")<br />         (cons 10 TgtPT) ;WCS插入点<br />         (cons 40 Hgt) ;文字高度<br />         (cons 1 STR) ;文字内容<br />         (cons 50 <br />               (- <br />                 (- (* 2 pi) (getvar "viewtwist"))<br />                 (angle '(0. 0. 0.) <br />                        (trans (getvar 'UCSXDIR) 0 (trans '(0. 0. 1.) 1 0 t) t)<br />                 )<br />               )<br />         ) ;文字旋转始终水平视图<br />   )<br /> );多行文字<br />

参考资料：
在 UCS 中使用 entmakex

1. (setq xAng (angle '(0. 0. 0.) (trans (getvar 'UCSXDIR) 0 (trans '(0. 0. 1.) 1 0 t) t)))
   
2. (setq TgtAng (+ TgtAng xAng));将WCS角度转换为UCS
   
3. (setq TgtAng (- TgtAng xAng));将UCS角度转换为WCS
   

(setq xAng (angle '(0. 0. 0.) (trans (getvar 'UCSXDIR) 0 (trans '(0. 0. 1.) 1 0 t) t)))<br /> (setq TgtAng (+ TgtAng xAng));将WCS角度转换为UCS<br /> (setq TgtAng (- TgtAng xAng));将UCS角度转换为WCS<br />

怎样获得当前ucs相对世界坐标系的旋转角度
如何知道UCS与WCS坐标系的X轴的角度差值，谢谢

tigcat

谢谢分享，楼主高产

magicheno

感谢大佬分享

yefei812678

感谢分享
感谢分享