CAD关于文字样式删除文字样式(com接口网页版）_vba cad清除多行文字格式-CSDN博客

本文链接：https://blog.csdn.net/u013725001/article/details/103043243

本文介绍了一种在AutoCAD中安全删除文字样式的方法，通过JavaScript代码检查是否仍有对象使用该样式，确保不会影响现有图纸。代码实现了用户输入样式名，然后进行判断并删除。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在删除文字样式前，最好判断图上有没有文字对象正在使用该文字样式，如果有的话就不要删除文字样式

JS代码如下：

   function DelText() {
    var winWidth = 440;
    var winHeight = 140;
    var winLeft = (screen.width - winWidth) / 2;
    var winTop = (screen.height - winHeight) / 2 - 20;
    var str = 'dialogHeight:' + winHeight + 'px;dialogWidth:' + winWidth + 'px;dialogTop:' + winTop + 'px;dialogLeft:' + winLeft + 'px;resizable:yes;center:yes;status:no;'
    var rt = window.showModalDialog("Gettext.htm?tmp=" + Math.random(), "输入图层名", str);
    var txt;
    if (typeof (rt) == "undefined") {
        return;
    } else {
        var arr = rt.split(",");
        txt = arr[0];
    }
    var database = mxOcx.GetDatabase();
    //返回数据库中的文字样式表表对象
    var TextStyleTable = database.GetTextStyleTable();
    //得到层表中的文字样式表对象
    var TextStyleRec = TextStyleTable.GetAt(txt, false);
    if (TextStyleRec == null)
        return;
    //删除对象
    TextStyleRec.Erase();
    alert("成功删除文字样式");
}