旋转文字lisp

warlock-993 · 发表于 2022-7-5 16:36:18

大家好，
是否可以编写lisp来模拟Torient express工具的行为。。。我有一个多个文本和多行文字在我的画，我想旋转它们都是在最可读的方式。
非常感谢您的帮助。。。谢谢。

hanhphuc · 发表于 2022-7-5 17:46:35

使角度可读：ymg


(defun MakeReadable (a)
    (setq a (rem (+ a pi pi) (+ pi pi)))
    (rem (if (< (* pi 0.5) a (* pi 1.5))(+ a pi) a) (+ pi pi))  
 )

;提示：

copy


[color="red"]([/color][color="blue"]cons[/color] [color="green"]50 [/color] [color="red"]([/color] [color="blue"]MakeReadable[/color] a [color="red"]))[/color][color="gray"]; a= angle of selected TEXT, by [/color][color="blue"]assoc entget[/color]
[color="blue"]entmod
subst[/color]

[编程交流] 旋转文字lisp

发表回复

精选推荐