[求助]：用VBA怎么样把Xdata删掉？

huangyanshi

问一个弱智问题，用VBA怎么样把Xdata删掉？

efan2000

重新设置只带应用程序名称的扩展数据。如：
dim xtype(0) as integer
dim xdata(0) as variant
xtype(0)=1001
xdata(0)=应用程序名称
object.setxdata xtype,xdata

huangyanshi

我想一点也不保留它的xdata数据，怎么办？

雪山飞狐(lzh)

这样就是一点也不保留它的xdata数据，你试试

huangyanshi

我的Xdata有50多个应用名，怎么办？而且应用名对于不同的实体而不同。

雪山飞狐(lzh)

Sub ClearXData()
Dim ss As AcadSelectionSet
Dim i As AcadRegisteredApplication
Dim j As AcadEntity
Dim ft(0) As Integer, fd(0)
ft(0) = 1001
Set ss = ThisDrawing.ActiveSelectionSet
For Each i In ThisDrawing.RegisteredApplications
fd(0) = i.Name
ss.Clear
ss.Select acSelectionSetAll, , , ft, fd
For Each j In ss
j.SetXData ft, fd
Next j
Next i
End Sub

huangyanshi

唉，看来没有直接的办法，还要罗列，循环，为什么不提供一个deleteXdata方法？
谢谢斑竹小弟。