社区 › VB › 我是什么空间？

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

对的

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

我发现更容易将getblock函数设置为布尔函数
If not getblock（“UES”）然后转到InsertBlock设置b=thisdrawing。块（“UES”）

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

好的，我想我知道我需要做什么，但想知道是否有更好的方法&nbsp；下面的代码检查dwg中的字体，包括来自外部参照的字体&nbsp；下面引用的文本在我的文本文件中；“审计”；你可以看到3D-TTL-B一直被发现是错误的&nbsp；所以我试着使用一个通配符*|，但也失败了（我本以为会，但希望如此）&nbsp；所以我；思考；我应该使用Instr（）检查|&引用；字符，并使用字符串末尾的下一个字符进行检查&nbsp；有更好的方法吗？或者我走对了吗
      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 发表于 2008-7-21 15:30:20

嗯？我们&#039；我从&#039；我是什么空间；至&#039；审计#039；场景……你一开始到底想做什么？

查看完整版本: 我是什么空间？