好的,我想我知道我需要做什么,但想知道是否有更好的方法 ;下面的代码检查dwg中的字体,包括来自外部参照的字体 ;下面引用的文本在我的文本文件中;“审计”;你可以看到3D-TTL-B一直被发现是错误的 ;所以我试着使用一个通配符*|,但也失败了(我本以为会,但希望如此) ;所以我;思考;我应该使用Instr()检查|&引用;字符,并使用字符串末尾的下一个字符进行检查 ;有更好的方法吗?或者我走对了吗
- For Each objFont In ThisDrawing.TextStyles
- Select Case UCase(objFont.Name)
- Case "STANDARD"
- Case "*|STANDARD" ' eval if xrefed
- Case "TEP"
- Case "TEP-TITLE"
- Case "TEP-TITLE 3-16"
- Case "TEP-TITLE 1-8"
- Case Else
- MyFile.writeline vbTab & objFont.Name & vbTab & objFont.fontFile
- KillDaFile = True
- End Select
- Next objFont
|