从模型空间获取所有属性块

Arizona · 发表于 2007-4-24 15:22:09

不知道你想要什么，但如果你评论出来，如果没有(aLayout。ModelType ),然后在它前面添加一个',并注释掉相应的结尾，如果您将获得每个块引用，
如果您只想要模型空间中的块，请使用我提供给您的内容，或者替换“如果没有(aLayout。ModelType)，然后“如果布局，则使用
。型号然后

copy

If Not (aLayout.ModelType) Then
      For Each aEntity In aLayout.Block 'Loop thru all entities
        'If the current entity is a block insertion
        If TypeOf aEntity Is AcadBlockReference Then
          Set aBlkRef = aEntity 'Cast the entity into a block ref
          'If the block insertion has attributes
          If aBlkRef.HasAttributes Then
            'Use a procedure to add block to dictionary
            'Need procedure for isolated error handling
            AddBlock BlockStore, aBlkRef.Name, aBlkRef.GetAttributes
          End If
        End If
      Next aEntity
    End If

Bryco · 发表于 2007-4-25 00:04:35

好吧bryco，如果你阅读上面的帖子，我现在还有一个问题。基本上我从建筑物的一个角落开始，然后将我的块镜像到另一边。这镜像了属性，所以我使用了一个交换值的例程，唯一的问题是它没有也交换标签。现在我需要交换标签以使这种方法工作，或者也许不是寻找标签，而是可以在块内寻找数值，因为所有的工作表名称都是数字的。有什么建议吗？