[求助]：cad实体属性

flydyt

那位可以给一个利用xdata来修改cad扩展属性的例子。最好能够屏蔽cad实体本身的一些属性。
如果实现这个功能，扩展数据应该怎么组织。（我想把数据库中的字段设置成cad实体的属性，应该怎么组织数据。）谢谢

雪山飞狐(lzh)

本身属性是屏蔽不了的，可以编一个对话框读取XData，替代属性框
下列代码屏蔽双击事件，调用自己的处理程序，达到属性框相似功能
Private pUnLoadDbClick As Boolean
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
Dim ss As AcadSelectionSet
Dim pobj As AcadEntity
    Set ss = ThisDrawing.PickfirstSelectionSet
    Set pobj = ss(0)
    If ss.Count = 1 And pobj.EntityName = "AcDbBlockReference" Then
        If Not pUnLoadDbClick Then Application.UnloadArx "acdblclkedit.arx": pUnLoadDbClick = True
'此处处理自己的的实体，这里只给个例子
    Else
        If pUnLoadDbClick Then Application.LoadArx "acdblclkedit.arx": pUnLoadDbClick = False
    End If
End Sub

flydyt

是不是用vb就不能修改cad特性窗口，只能自己做一个。谢谢