[VBA程序]：请教一下，如何查看图形中所有的块，并炸开

jhx1980224

请教一下，如何查看图形中所有的块，并炸开，谢谢各位大虾

雪山飞狐(lzh)

炸开用Explode 方法
“查看图形中所有的块”什么意思？

jhx1980224

就是找出现有图形中所有的块，然后将他们都炸开，用vba实现

yj821005

我也有个问题，请问斑竹我的块是有属性值的，但是一炸开属性值就会变成属性标记啊，如何解决？

雪山飞狐(lzh)

先把属性转化为单行文本，再炸开，最后将属性标记删除

yj821005

斑竹能举个例子不，比如有一个名为BlockSample的块，里面有一个属性，怎么样将属性转化为单行文本呢？“再炸开，最后将属性标记删除 ”的意思是再炸开的时候是不是同时出现刚才转化的文本和属性标记?谢谢

雪山飞狐(lzh)

Sub tt()
On Error Resume Next

    Dim obj As AcadBlockReference
    ThisDrawing.Utility.GetEntity obj, pnt
    Dim oText As AcadText
    For Each i In obj.GetAttributes
        Set oText = ThisDrawing.ModelSpace.AddText(i.TextString, i.InsertionPoint, i.Height)
        oText.Layer = i.Layer
        oText.Alignment = i.Alignment
        oText.TextAlignmentPoint = i.TextAlignmentPoint
        oText.StyleName = i.StyleName
    Next i
   
    For Each j In obj.Explode
        If TypeOf j Is AcadAttribute Then j.Delete
    Next j
   
    obj.Delete
   
End Sub

yj821005

斑竹，我运行到oText.TextAlignmentPoint = i.TextAlignmentPoint
出错，把这句注释掉后，可以运行，但是有的数据存在有的数据就不存在了，是啥原因？谢谢

雪山飞狐(lzh)

有加On Error Resume Next，你去掉了么？

yj821005

嗯，去掉了，可以了，但是这是为什么呢？遇到错误就继续执行，但是为什么不加的时候有些字会丢失呢？

雪山飞狐(lzh)

Alignment为靠左时TextAlignmentPoint为空，这时赋值语句会出错，所以要加上