AutoLISP修改文字倾斜角度
2011-03-29 15:43 精诚所至 金石为开 阅读(819) 评论(0) 编辑 收藏 举报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)
)
代码完。
多行文字不能修改。
