Bryco 发表于 2008-7-18 18:53:38

正确。

Bryco 发表于 2008-7-18 19:26:34

我发现将getblock函数设为布尔值更容易。
如果不是getblock("UES ")，则转到insert block
set b = this drawing . blocks(" UES ")

Bryco 发表于 2008-7-21 15:21:47

好的，我想我知道我需要做什么，但我想知道是否有更好的方法。下面的代码检查dwg中有哪些字体，包括来自Xrefs的字体。下面引用的文本在我对dwg的文本文件“审计”中，您可以看到3D-TTL-B|一直被发现是错误的。所以我尝试使用通配符*|也失败了（我预计会失败，但希望如此）。所以我“认为”我应该使用Instr（）来检查“|”字符，并使用字符串末尾的下一个char进行检查。有更好的方法吗？还是我走在正确的轨道上？
      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

Bryco 发表于 2008-7-21 15:22:25

顺便说一句，Seant，你很准时，它完美地解决了我的问题

SEANT 发表于 2008-7-21 15:30:20

嗯？我们已经从“我是什么空间”变成了“审计”场景......你到底想做什么？
页: 1 [2]
查看完整版本: 我有多大空间？