AutoLISP修改文字倾斜角度

最新推荐文章于 2022-08-23 21:03:26 发布

weixin_33690367

最新推荐文章于 2022-08-23 21:03:26 发布

阅读量714

点赞数

本文介绍了一段 AutoLISP 代码，用于修改 CAD 中文字的倾斜角度。该代码通过用户输入的角度来调整选定文字对象的倾斜度，但不支持多行文字的修改。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

AutoLISP修改文字倾斜角度，代码如下。

(defun c:test()
(setq ang (getangle "\n输入倾斜角度<30>:"))
(if (null ang) (setq ang (/ pi 6)))
(setq ss (ssget))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if (= sstyp "TEXT")
      (progn
    (setq old_ang (assoc 51 ssdata))
    (setq new_ang (cons 51 ang))
    (setq ssdata (subst new_ang old_ang ssdata))
    (entmod ssdata)
    )
      )
    (setq i (1+ i))
    )
(prin1)
)