多个文本实体按旋转

chris2012 · 发表于 2022-7-6 06:36:47

我希望将多个文字实体围绕其各自的插入点旋转到平面图中清晰可见的方向。这不是一个简单的改变旋转角度的问题，因为它绕着错误的轴旋转（当然还有多个项目）！
通过对dxf代码的实验，我已经确定，如果代码210220和230设置为0,0,1，那么这确实达到了预期的结果。
即
(210 0.0) (220 0.0) (230 1.0)

我这样做的原因是格式化从另一个绘图包输出的文本。

我已经找到并正在尝试修改所附的李Mac“变色”lisp，以实现上述突出显示的结果，如果集体能在这方面提供任何帮助，我将不胜感激。请注意，我偶然发现这段代码，因为它添加了所需的实体（如果它们最初不存在的话）。

提前感谢您的帮助\指点

克里斯

copy


(defun c:doit (/ i ss ent eLst)
(if (setq i -1 ss (ssget "_:L"))
(while (setq ent (ssname ss (setq i (1+ i))))
(setq eLst (entget ent))
(setq eLst (subst '(8 . "0") (assoc 8 eLst) eLst))
(entmod
(if (assoc 62 eLst)
(subst '(62 . 3) (assoc 62 eLst) eLst)
(append eLst '((62 . 3)))))))
(princ))

alanjt · 发表于 2022-7-6 06:42:19

这有帮助吗？
http://www.cadtutor.net/forum/showthread.php?41290-零旋转。lsp将对象旋转设置为零-（基于当前UCS）

chris2012 · 发表于 2022-7-6 06:48:14

8073闪电般的Alan谢谢。我已经看过你的链接，但这不是我想要的。发布了一个屏幕抓图来显示文本的方向。

chris2012 · 发表于 2022-7-6 06:52:48

8074 dxf代码（更多信息）

chris2012 · 发表于 2022-7-6 06:59:27

艾伦

感谢您的帮助，我详细了解了您的lisp（据我所知），它在处理与实体相关的旋转变量（代码50）方面表现出色，但它似乎无法处理围绕其他两个轴的旋转。在飞机行话中，如果旋转可以被认为是滚转，那么我感兴趣的旋转是俯仰和偏航。我想你不会有兴趣更新你的代码来解释这个问题？？？？？

克里斯

Lee Mac · 发表于 2022-7-6 07:00:17

嗨，克里斯，

我可能误解了您的要求，但以下代码将一组文本对象的DXF 210法向量更改为WCS平面（0,0,1）的法向量，同时将插入点转换为相对于WCS平面的等效位置（因为文本插入点在OCS中表示）：
第二个程序将改变法向量，但将保留原始插入点位置：

copy

chris2012 · 发表于 2022-7-6 07:07:40

干得好，李，谢谢你！第二个程序运行得很好。
对于蛋糕上的糖霜（参考上面的屏幕抓取，如果文本可以围绕穿过它的行旋转，那将是非常好的。
i、 e.蓝色文字（光束）将围绕蓝线（x方向）旋转，以便从z方向向下看时可见。
红色文字（列）应该设置为45度的计划，但我可以管理这从你给我的。
如果你能有更多的时间，这将是辉煌的！

克里斯