社区 › VB › [讨论]扩展数据的使用

莫名 发表于 2004-6-17 00:11:00

[讨论]扩展数据的使用

扩展数据可以存贮对象的属性数据，可以扩展CAD的属性数据管理功能。
如何用扩展数据查找对象？如何创建、修改、删除扩展数据？如何查询对象的扩展数据？

雪山飞狐_lzh 发表于 2004-6-17 08:46:00

用扩展数据查找对象设置过滤器只能是1001组码
创建、修改、删除扩展数据用的都是SetXData方法
查询对象的扩展数据用GetXData方法

今晚打老虎 发表于 2004-6-17 10:08:00

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

雪山飞狐_lzh 发表于 2004-6-17 10:27:00

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

今晚打老虎 发表于 2004-6-17 11:08:00

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

flydyt 发表于 2004-7-22 10:57:00

为什么我这样写也可以呀,你多的哪些是干啥用的?
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

jxlsp 发表于 2008-1-8 18:54:00

交流学校中

sunny2008 发表于 2008-2-25 19:07:00

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

查看完整版本: [讨论]扩展数据的使用