tm20038175 发表于 2012-5-3 19:19:01

如何更改文字样式？

例如有个文字图元en，我想把它从文字样式一更改为样式二，文字大小不变，其它跟随样式二，如何实现？

xyp1964 发表于 2012-5-3 19:27:41

(setq s1 (car (entsel "\n选择文本: ")))
(vla-put-StyleName (vlax-ename->vla-object s1) "样式二")

tm20038175 发表于 2012-5-3 19:33:53

xyp1964 发表于 2012-5-3 19:27


不会又是伪源码吧！……≥﹏≤

tm20038175 发表于 2012-5-3 22:30:17

这么好的想法，不能沉。。。。

tm20038175 发表于 2012-5-4 06:24:21

……………………………………

無恒的地盘 发表于 2012-5-4 09:40:58


;;;作者：jackynine
(defun c:tt ()
(setvar "cmdecho" 0)
(setq name (getstring "\n请输入你需要的字体样式名："))
(if (setq ss (ssget '((0 . "text"))))
    (progn
      (setq i -1 )
      (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq s2 (entget s1))
      (setq s2 (subst (cons 7 name) (assoc 7 s2) s2))
      (entmod s2)
      )
    )
)
(princ (strcat "\n" "共处理" (itoa i) "个点" ))
)


以下是原网址：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85019

tm20038175 发表于 2012-5-4 09:55:52

無恒的地盘 发表于 2012-5-4 09:40
;;;作者：jackynine
(defun c:tt ()
(setvar "cmdecho" 0)


谢谢，很好！…………
页: [1]
查看完整版本: 如何更改文字样式？