社区 › AutoLISP/Visual LISP 编程技术 › 如何将文字或尺寸的样式改为当前的样式？

〓桠枫〓/db 发表于 2013-7-25 18:18:02

如何将文字或尺寸的样式改为当前的样式？

请各位大侠帮忙编个LISP，将文字或尺寸的样式改为当前的样式。

wowan1314 发表于 2013-7-25 19:25:59

试试！(defun c:t11 (/ ss a en ty 7h 3h)
    (setq ss (ssget ":l") a -1 7h (getvar 'textstyle) 3h (getvar 'dimstyle))
    (if ss
      (while (setq en (ssname ss (setq a (1+ a))
                )
            )
            (setq ty (cdr(assoc 0 (entget en))
                )
            )
            (cond
                ((= ty "TEXT")(entmod(subst (cons 7 7h) (assoc 7 (entget en))(entget en))
                  )
                )
                ((= ty "DIMENSION")(entmod(subst (cons 3 3h) (assoc 3 (entget en))(entget en))
                  )
                )
            )
      )
    )
    (princ)
)

查看完整版本: 如何将文字或尺寸的样式改为当前的样式？