如何去除扩展属性？

szj612

例如:  用 ent.SetXData Ty, v 添加的属性，其中Ty(0)="aaa"
    我想把这个属性去掉，用 ent.GetXData "aaa", Ty, v 得不到返回值

zzyong00

1. Public Sub DeleteAllObjXData()             '删除多个对象的所有扩展数据                       
   
2.    
   
3.     Dim SSet As AcadSelectionSet
   
4.     For Each SSet In ThisDrawing.SelectionSets
   
5.         If SSet.name = "SS1" Then
   
6.             ThisDrawing.SelectionSets.Item("SS1").Delete
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10.     Set SSet = ThisDrawing.SelectionSets.Add("SS1")
    
11.     SSet.SelectOnScreen
    
12.     ' 定义扩展数据变量以保存扩展数据信息
    
13.     Dim XdataType As Variant
    
14.     Dim xdata     As Variant
    
15.     Dim xd        As Variant
    
16.    
    
17.     Dim DataType(0) As Integer
    
18.     Dim Data(0)      As Variant
    
19.    
    
20.     '定义索引计数器
    
21.     Dim xdi       As Integer
    
22.     xdi = 0
    
23.     ' 遍历选择集中的对象
    
24.     ' 并检索对象的扩展数据
    
25.     Dim strAppName As String
    
26.     Dim objEnt        As AcadEntity
    
27.     strAppName = ""
    
28.     For Each objEnt In SSet
    
29.         xdi = 0
    
30.         ' 检索 appName 扩展数据类型和值
    
31.         objEnt.GetXData strAppName, XdataType, xdata
    
32.         ' 如果未初始化 xdataType 变量，
    
33.         ' 则没有可供该图元检索的 appName 扩展数据
    
34.         If VarType(XdataType) <> vbEmpty Then
    
35.             For Each xd In XdataType
    
36.                 If StrComp(XdataType(xdi), "1001", vbTextCompare) = 0 Then
    
37.                     DataType(0) = 1001
    
38.                     Data(0) = xdata(xdi)
    
39.                     objEnt.SetXData DataType, Data
    
40.                 End If
    
41.                 xdi = xdi + 1
    
42.             Next xd
    
43.         End If
    
44.         ThisDrawing.Utility.Prompt "消除扩展数据成功！" & vbCrLf
    
45. 
    
46.     Next objEnt
    
47. End Sub

Public Sub DeleteAllObjXData()             '删除多个对象的所有扩展数据                       <br />     <br />     Dim SSet As AcadSelectionSet<br />     For Each SSet In ThisDrawing.SelectionSets<br />         If SSet.name = "SS1" Then<br />             ThisDrawing.SelectionSets.Item("SS1").Delete<br />             Exit For<br />         End If<br />     Next<br />     Set SSet = ThisDrawing.SelectionSets.Add("SS1")<br />     SSet.SelectOnScreen<br />     ' 定义扩展数据变量以保存扩展数据信息<br />     Dim XdataType As Variant<br />     Dim xdata     As Variant<br />     Dim xd        As Variant<br />     <br />     Dim DataType(0) As Integer<br />     Dim Data(0)      As Variant<br />     <br />     '定义索引计数器<br />     Dim xdi       As Integer<br />     xdi = 0<br />     ' 遍历选择集中的对象<br />     ' 并检索对象的扩展数据<br />     Dim strAppName As String<br />     Dim objEnt        As AcadEntity<br />     strAppName = ""<br />     For Each objEnt In SSet<br />         xdi = 0<br />         ' 检索 appName 扩展数据类型和值<br />         objEnt.GetXData strAppName, XdataType, xdata<br />         ' 如果未初始化 xdataType 变量，<br />         ' 则没有可供该图元检索的 appName 扩展数据<br />         If VarType(XdataType) <> vbEmpty Then<br />             For Each xd In XdataType<br />                 If StrComp(XdataType(xdi), "1001", vbTextCompare) = 0 Then<br />                     DataType(0) = 1001<br />                     Data(0) = xdata(xdi)<br />                     objEnt.SetXData DataType, Data<br />                 End If<br />                 xdi = xdi + 1<br />             Next xd<br />         End If<br />         ThisDrawing.Utility.Prompt "消除扩展数据成功！" & vbCrLf<br /> <br />     Next objEnt<br /> End Sub

szj612

谢谢楼上的热心解答!

szj612

好久没有登录了，真的没有看到楼上的回复，不知zzyong00大侠还在吗？顺便请教一下加分如何操作？

szj612

szj612 发表于 2015-12-7 17:01
谢谢楼上的热心解答!

分已加，但愿你能看到，很惭愧，在论坛上问了很多问题，从来没有给谁加过分，我一直以为那是管理员的事

zzyong00

szj612 发表于 2019-3-25 00:13
分已加，但愿你能看到，很惭愧，在论坛上问了很多问题，从来没有给谁加过分，我一直以为那是管理员的事

开个玩笑，当真了