文字样式修改

726613

一张图纸中有多个文字样式如图下：

如何用LISP编写程序实现如下图，只有一种文字样式名，并把其余的文字样式删除掉。

Gu_xl

1. (defun c:tt1 (/ OBJNAME ATTS)
   
2.   (vlax-for blkobj (vla-get-blocks
   
3.                      (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                      )
   
5.     (vlax-for obj blkobj
   
6.       (if (or (= "AcDbMText" (setq objname (vla-get-objectname obj)))
   
7.               (= "AcDbText" objname)
   
8.               (= "AcDbAttribute" objname)
   
9.               (= "AcDbAttributeDefinition" objname)
   
10.               )
    
11.         (VL-CATCH-ALL-APPLY 'vla-put-stylename (list obj "宋体"))
    
12.         )
    
13.       (if (and
    
14.             (or (= "AcDbMInsertBlock" objname)
    
15.               (= "AcDbBlockReference" objname)
    
16.               )
    
17.             (setq atts (vlax-invoke obj 'GetAttributes))
    
18.             )
    
19.         (foreach a atts (VL-CATCH-ALL-APPLY 'vla-put-stylename (list a "宋体")))
    
20.         )
    
21.       )
    
22.     )
    
23.   (setvar 'textstyle "宋体")
    
24.   (command "purge" "st" "*" "n")
    
25.   (princ)
    
26.   )

(defun c:tt1 (/ OBJNAME ATTS)<br />   (vlax-for blkobj (vla-get-blocks<br />                      (vla-get-ActiveDocument (vlax-get-acad-object))<br />                      )<br />     (vlax-for obj blkobj<br />       (if (or (= "AcDbMText" (setq objname (vla-get-objectname obj)))<br />               (= "AcDbText" objname)<br />               (= "AcDbAttribute" objname)<br />               (= "AcDbAttributeDefinition" objname)<br />               )<br />         (VL-CATCH-ALL-APPLY 'vla-put-stylename (list obj "宋体"))<br />         )<br />       (if (and<br />             (or (= "AcDbMInsertBlock" objname)<br />               (= "AcDbBlockReference" objname)<br />               )<br />             (setq atts (vlax-invoke obj 'GetAttributes))<br />             )<br />         (foreach a atts (VL-CATCH-ALL-APPLY 'vla-put-stylename (list a "宋体")))<br />         )<br />       )<br />     )<br />   (setvar 'textstyle "宋体")<br />   (command "purge" "st" "*" "n")<br />   (princ)<br />   )

x_s_s_1

那是不可能的，standard

香田里浪人

为什么要删除/

726613

Gu_xl 发表于 2013-5-15 14:33

运行提示如下：
请问这是为什么？

Gu_xl

726613 发表于 2013-5-15 19:59
运行提示如下：
请问这是为什么？

因为你图里没有宋体这个字体！

726613

Gu_xl 发表于 2013-5-15 20:19
因为你图里没有宋体这个字体！

谢谢G版主帮忙

幸福是真

好，要是能把“宋体”改成由用户选择就好

头大无恼

726613 发表于 2013-5-15 21:03
谢谢G版主帮忙

  (command "style" "宋体" "宋体"  "0" "1.0" "0.0"  "" "" "")

前面加一句定义就好了

li809

谢谢分享一。