[讨论]扩展数据的使用

莫名

扩展数据可以存贮对象的属性数据，可以扩展CAD的属性数据管理功能。


如何用扩展数据查找对象？如何创建、修改、删除扩展数据？如何查询对象的扩展数据？

雪山飞狐_lzh

用扩展数据查找对象设置过滤器只能是1001组码


创建、修改、删除扩展数据用的都是SetXData方法





查询对象的扩展数据用GetXData方法

今晚打老虎

斑竹给个1001组码过滤的例子~~~~~~

雪山飞狐_lzh

Public Sub Test()
On Error Resume Next
Dim pnt(2) As Double, dot(2) As Double
Dim xt(3) As Integer, xd(3) As Variant
Dim ft(0) As Integer, fd(0) As Variant
Dim ss As AcadSelectionSet
Dim obj As AcadLine
Set obj = ThisDrawing.ModelSpace.AddLine(pnt, dot)
xt(0) = 1001: xd(0) = "Test"
xt(1) = 1002: xd(1) = "{"
xt(2) = 1001: xd(2) = "Test1"
xt(3) = 1002: xd(3) = "}"
ThisDrawing.RegisteredApplications.Add "Test1"
obj.SetXData xt, xd
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ft(0) = 1001: fd(0) = "Test1"
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub

今晚打老虎

谢了斑竹，献花一朵~~~~~

jxlsp

为什么我这样写也可以呀,你多的哪些是干啥用的?

Public Sub Test()

Dim pnt(2) As Double, dot(2) As Double

Dim xt(1) As Integer, xd(1) As Integer

Dim obj As AcadLine

dot(0)=1:dot(1)=1

Set obj = ThisDrawing.ModelSpace.AddLine(pnt, dot)
xt(0) = 1001: xd(0) = "test"
xt(1) = 1070: xd(1) = 6002
obj.SetXData xt, xd

End sub

sunny2008

交流学校中

bingfengxuanlan

雪山飞狐_lzh 发表于 2004-6-17 10:27
Public Sub Test()On Error Resume NextDim pnt(2) As Double, dot(2) As DoubleDim xt(3) As Integer, xd( ...

飞狐，您好，如果要给一条直线增加一个属性，属性名为“频率”，大小默认为100，可以修改大小，请问用 C#该如何实现啊，我是用vs2008+CAD2010，非常感谢！