[求助]：扩展属性数据

flydyt

是不是可以用扩展数据扩充实体属性，扩展完属性怎么在特性栏中显示修改呢？

自由的鱼

最初由 flydyt 发布
[B]是不是可以用扩展数据扩充实体属性，扩展完属性怎么在特性栏中显示修改呢？ [/B]

要用程序来修改！

flydyt

可不可以给一个例子。谢谢

liubz

扩展属性数据不能在特性栏显示，只能编程解析解决，
例：Public Function GetXDatas(ent As AcadEntity) As MyXData
'功能：返回扩展数据
'设置扩展属性：Code_代码；EntId_地物编码；eType_地物类型；GrpName、EntityCode_组名1、组名2
'   地物类型：         _单母线__|__ 双母线__
'               无附属 ______0__|________2__
'              _有附属 ______1__|________3__
'                 附属 ______4__|___________
'0:单母线无附属，无第4项属性
'1:单母线有附属，添加第4，5项属性，属性4为组名，属性5为地物动作码
'2:多母线无附属，添加第4，5项属性，属性4为组名，属性5为地物动作码
'3:多母线有附属，添加第4，5项属性，属性4为组名，属性5为地物动作码
'4:附属地物，添加第4，5项属性，属性4为组名，属性5为地物动作码

Dim xType As Variant
Dim xdata As Variant
Dim lngN As Integer

ent.GetXData MyAppName, xType, xdata    'MyAppName
   
If IsArray(xType) Then
    GetXDatas.AppName = UCase(xdata(0))         '应用程序名
    GetXDatas.Code = UCase(xdata(1))            '地物代码
    GetXDatas.myID = xdata(2)                   '地物编码
    GetXDatas.eType = xdata(3)                  '地物类型
    GetXDatas.GrpName = UCase(xdata(4))         '地物组名
    GetXDatas.EntityCode = xdata(5)             '地物类码
    lngN = (UBound(xType) - LBound(xType))      '
    If lngN = 6 Then
        GetXDatas.entSn = UCase(xdata(6))       '多母线组内编号
    ElseIf lngN = 7 Then
        GetXDatas.entSn = UCase(xdata(6))
        GetXDatas.attrValue = xdata(7)          '地物属性值
    End If
End If

End Function
’xType,存放数据类型 xdata    存放你的数据

flydyt

谢谢