请问除了change还有没有其他修改文字样式的命令？

arthwon

想修改选择集里的文字的文字样式。
平时手工修改的时候，只要手动选择几个文字，然后在工具栏上选择文字样式就直接改好了，但是这个操作没有命令行。
后来查到change命令可以修改，但是一次只能处理一个文字对象！
不得已只能做了一个循环来一个个处理，但是效率太低了！！
请问要怎么能一次全部处理所有选择的文字对象？

2. (if (setq ss         (ssget        "p"
   
3.                         '((0 . "TEXT")
   
4.                           (7 . "Standard")))
   
5.           ss_num (- (sslength ss) 1)        ;计算文字选择集的图元个数，需减1，因为编号是从0开始
   
6.     )
   
7.   (progn
   
8.     (while (>= ss_num 0)                ;如果编号大于等于0就一直循环处理
   
9.       (setq ss_text (ssname ss ss_num))        ;将选择集的最后一个图元提取
   
10.       (command "change" ss_text "" "" "" "TSSD_Rein" "300" "" "")
    
11.                                         ;处理提取的图元，change函数只能一次处理一个图元
    
12.       (setq ss_num (- ss_num 1))   ;编号减1以便处理下一个图元
    
13.     )
    
14.   )                                       
    
15. )
    

(if (setq ss         (ssget        "p"<br />                         '((0 . "TEXT")<br />                           (7 . "Standard")))<br />           ss_num (- (sslength ss) 1)        ;计算文字选择集的图元个数，需减1，因为编号是从0开始<br />     )<br />   (progn<br />     (while (>= ss_num 0)                ;如果编号大于等于0就一直循环处理<br />       (setq ss_text (ssname ss ss_num))        ;将选择集的最后一个图元提取<br />       (command "change" ss_text "" "" "" "TSSD_Rein" "300" "" "")<br />                                         ;处理提取的图元，change函数只能一次处理一个图元<br />       (setq ss_num (- ss_num 1))   ;编号减1以便处理下一个图元<br />     )<br />   )                                        <br /> )<br />

byghbcx

怎么效率低？

winabcd

不知道你说的效率低指的是什么？

arthwon

当文字对象有几千个时要循环几千次，当然效率低了。我实际处理一个图要好几秒钟。
而选择了几个对象后只要在工具栏上选择一下文字样式就完成，那就是一瞬间的事情。
所以对比后感觉change效率太低了。

arthwon

沉了，顶起继续求助啊。
有没有什么函数可以直接修改文字对象的文字样式？？

xyp1964

(setq s1 (car (entsel "\n选择: "))ob(vlax-ename->vla-object s1))
(vla-put-stylename ob "TSSD_Rein")
(vla-put-height ob 300)