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

视口中的文字调整至水平

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

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

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

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

试下这个可否。

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

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

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

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

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

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

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

无图无真相

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

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

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

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

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

麻烦看下，感谢:handshake

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

(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:21

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

ibodybuilding 发表于 2021-12-17 23:37
麻烦看下，感谢
你这些是炸开的线条，不是引导线，算法有点难度，但是并不是不可行。算法：1。取线的起点，终点，选择线条和线上下文字。2,计算起点，终点连线角度，以起点为旋转点，旋转刚才那个选择集。3.循环上述步骤，做其它线条的旋转。
页: [1] 2
查看完整版本: 视口中的文字调整至水平