李青松 发表于 2013-9-29 10:29:37

把单行文本的字体改成宋体 用lsp程序

把单行文本的字体改成宋体 用lsp程序不要用工具栏中的工具进行修改

李青松 发表于 2013-9-29 10:31:02


把单行文本的字体改成宋体 用lsp程序不要用工具栏中的工具进行修改

Andyhon 发表于 2013-9-29 11:20:04


(defun c:sty (/ ss i e1 n1)
   (setq ss (ssget '((0 . "TEXT,MTEXT")))
         n1 (cons 7 "STANDARD")                ; 此处自行定义
          i-1
   )
   (while (setq e1 (ssname ss (setq i (1+ i))))
   (setq e1 (entget e1))
   (entmod (subst n1 (assoc 7 e1) e1))
   )
)

李青松 发表于 2013-9-29 11:36:11

多谢,程序很好

自贡黄明儒 发表于 2013-9-29 11:52:36

Andyhon 发表于 2013-9-29 11:20 static/image/common/back.gif


请教长老,如果STANDARD定义的不是宋体，如何搞?

Andyhon 发表于 2013-9-29 12:39:28

回楼上
Command: -style
这得研读 Style 的帮助...

清风明月名字 发表于 2013-9-29 14:35:59

谢谢楼主的分享！很有意思

hhh454 发表于 2013-10-4 00:18:34

我通常是新建一个字体为宋体，然后用刷子直接刷ma

王航 发表于 2015-9-29 14:03:34

Andyhon 发表于 2013-9-29 11:20 static/image/common/back.gif


谢谢！很好用

wgninpd 发表于 2016-4-3 22:16:45

谢谢楼主的分享！
页: [1]
查看完整版本: 把单行文本的字体改成宋体 用lsp程序