社区 › Auto Lisp › LISP更改旋转角度

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

LISP更改旋转角度

你好
 
我在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

你好
试试这个。

(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更改旋转角度