kucha007 发表于 2024-4-4 20:31:53

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

本帖最后由 kucha007 于 2024-4-4 21:02 编辑

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



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


参考资料：
在 UCS 中使用 entmakex

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

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






tigcat 发表于 2024-4-5 08:45:15

谢谢分享，楼主高产

magicheno 发表于 2024-4-5 22:53:28

感谢大佬分享

yefei812678 发表于 2024-4-7 08:24:04


感谢分享
感谢分享
页: [1]
查看完整版本: 始终平行于当前视图的多行文字