Question

CAD lisp求助一段代码实现自动摆正文字！

因为作图时有文字标注，而来回旋转图纸后，文字也跟随变了角度，求一段代码实现，以文字中心点，为积点旋转文字，能够实现输入角度控制功能！谢谢！

Answer 1

(defun c:ro_text ()
(setq ang (getreal "输入角度"))
(setq ang (* (/ ang 180) 3.1415926))
(setq ss (ssget '((0 ."text"))))
(setq number (sslength ss))
(setq i 0)
(repeat number

(setq entname (ssname ss i))
(setq ent (entget entname))
(entmod (setq ent (subst (cons 50 ang) (assoc 50 ent) ent)))
(setq i (+ i 1))
)
)
所需更改的文字要在属性中 对正方式改为 中 才会以文字中心点旋转

追问

你好，添加后报错！请问可以帮忙调试一下吗？

追答

其中（0 .“text”）有误 改为（0 . “text”） . 和“text” 间隔开
其实选住所有text 在属性中更改角度也可以