CAD关于文字样式删除文字样式(com接口网页版）

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

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("成功删除文字样式");}