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

李青松

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

李青松

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

Andyhon

2. 
   
3. (defun c:sty (/ ss i e1 n1)
   
4.    (setq ss (ssget '((0 . "TEXT,MTEXT")))
   
5.          n1 (cons 7 "STANDARD")                ; 此处自行定义
   
6.           i  -1  
   
7.    )
   
8.    (while (setq e1 (ssname ss (setq i (1+ i))))
   
9.      (setq e1 (entget e1))
   
10.      (entmod (subst n1 (assoc 7 e1) e1))
    
11.    )
    
12. )
    

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

李青松

多谢,程序很好

自贡黄明儒

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

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

Andyhon

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

清风明月名字

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

hhh454

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

王航

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

谢谢！很好用

wgninpd

谢谢楼主的分享！