LISP更改旋转角度

Bobzy20 · 发表于 2022-7-5 14:58:37

你好

我在AutoCAD中有一些不同角度的文本，我想运行一个脚本，基本上保持文本在原处，但将旋转角度重置回0。

有人知道这样一个已经存在的东西吗？

谢谢

上下快速移动

BIGAL · 发表于 2022-7-5 15:08:12

您是否尝试过过滤然后属性，并将文字角度设置为0.0

Bobzy20 · 发表于 2022-7-5 15:13:26

谢谢，我没有，但我会试试，然后再给你回复。

上下快速移动

Bobzy20 · 发表于 2022-7-5 15:18:10

我已经附上了DWG文件的文本，因为我不知道如何做你的建议。
测验图纸

ronjonp · 发表于 2022-7-5 15:19:34

是否要旋转所有对象？你最初的问题只提到文本。

Bobzy20 · 发表于 2022-7-5 15:25:45

我想将旋转值重置为0，但将所有内容保持在同一位置。

Tharwat · 发表于 2022-7-5 15:29:15

你好
试试这个。

copy


(defun c:Test ( / int sel ent )
 (and (setq int -1 sel (ssget "_:L" '((0 . "*TEXT") (-4 . "/=") (50 . 0.0))))
      (while (setq ent (ssname sel (setq int (1+ int))))
        (entmod (append (entget ent) '((50 . 0.0))))
        )
      )
 (princ)
 )

eldon · 发表于 2022-7-5 15:34:59

我手动将文本旋转设置为零度，这就是我得到的结果。

这真的是你想要的吗？文本似乎是反向和倒置生成的，但它位于同一位置。

Bobzy20 · 发表于 2022-7-5 15:39:00

文本是属性块的一部分，我会围绕图形复制/旋转/对齐，我会使用增强的属性编辑器将文本上下翻转以满足我的需要。

当我将其导入我们定制的图形软件时，它会抛出文本。我想我需要返回到增强的属性编辑器，取消选中向后和向上侧向下选项，然后将文本旋转到正常的旋转角度，目前的角度为202，但如果旋转角度为22，似乎可以。

很抱歉，谢谢你在这方面的帮助

上下快速移动

Tharwat · 发表于 2022-7-5 15:46:49

嗨，鲍勃，
你看到我上面的帖子了吗？

[编程交流] LISP更改旋转角度

发表回复

精选推荐