CAD lisp求助一段代码实现自动摆正文字！
因为作图时有文字标注，而来回旋转图纸后，文字也跟随变了角度，求一段代码实现，以文字中心点，为积点旋转文字，能够实现输入角度控制功能！谢谢！...
因为作图时有文字标注，而来回旋转图纸后，文字也跟随变了角度，求一段代码实现，以文字中心点，为积点旋转文字，能够实现输入角度控制功能！谢谢！
展开
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))
)
)
所需更改的文字要在属性中 对正方式改为 中 才会以文字中心点旋转
(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 在属性中更改角度也可以
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
VSH艾羽
2024-10-27 广告
CAD（计算机辅助设计）技术在上海艾羽信息科技有限公司的应用极为广泛。我们利用先进的CAD软件工具，精确高效地绘制产品设计图纸，从二维草图到三维建模，无所不能。这一技术不仅优化了设计流程，缩短了产品从概念到实物的周期，还通过精准的数据分析提...
点击进入详情页
本回答由VSH艾羽提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
