视口中的文字调整至水平

ibodybuilding · 发表于 2021-12-17 14:37

lisp如何在布局的视口中，文字和标注线调整至水平状态。
如下图所示

夏生生 · 发表于 2021-12-17 14:47

模型空间里不变？你这种最好上图，要根据图层、字线关系来处理的。

gaics · 发表于 2021-12-17 16:14

试下这个可否。

ibodybuilding · 发表于 2021-12-17 17:37

gaics 发表于 2021-12-17 16:14
试下这个可否。

感谢，但是有点小问题。。视口本身是旋转过角度的，现在的是在模型中转正，但是在视口中不是正的。此外，大佬能不能把下面的那根线也实现转正。可以选择一个旋转的基点，通过这个基点，将文字、线转了和视口平行。

NewBug · 发表于 2021-12-17 18:32

最好还是上图，有图有真相

gaics · 发表于 2021-12-17 20:44

ibodybuilding 发表于 2021-12-17 17:37
感谢，但是有点小问题。。视口本身是旋转过角度的，现在的是在模型中转正，但是在视口中不是正的。此外， ...

无图无真相

wudechao · 发表于 2021-12-17 22:52

本帖最后由 wudechao 于 2021-12-17 22:55 编辑

模型空间已经转正，视图里面旋转坐标，就是UCS问题，不难

ibodybuilding · 发表于 2021-12-17 23:37

gaics 发表于 2021-12-17 20:44
无图无真相

麻烦看下，感谢

gaics · 发表于 2021-12-18 11:10

(defun c:tt (/ ss pt1 pt2 ang)
  (setq ss (ssget '((0 . "*Line,*Text"))))
  (setq pt1 (getpoint "\n指定旋转基点："))
  (setq pt2 (getpoint "\n指定另一端点："))
  (command "rotate" ss "" pt1 "R" pt1 pt2 0)
  (princ)
)

wudechao · 发表于 2021-12-18 11:14

本帖最后由 wudechao 于 2021-12-18 11:15 编辑

ibodybuilding 发表于 2021-12-17 23:37
麻烦看下，感谢

你这些是炸开的线条，不是引导线，算法有点难度，但是并不是不可行。算法：1。取线的起点，终点，选择线条和线上下文字。2,计算起点，终点连线角度，以起点为旋转点，旋转刚才那个选择集。3.循环上述步骤，做其它线条的旋转。

账号		自动登录	找回密码
密码			注册

[提问] 视口中的文字调整至水平

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源