在CAD2002中如何对所绘图形进行（如材料等）分类汇总

tianliangle

[em00]

myfreemind

说详细一点！

tianliangle

就是这样的

tianliangle

比如画一个矩形表示一个予制件,它的配筋包括直径10mm的圆钢2根，每根长1m，直径8mm的圆钢2根，每根长1m，直径6mm的圆钢5根，每根长0.2m，(配筋图不画出来)现在我一共画了5个矩形,cad是否能把制作这5个予制件所用用的各种规格的钢筋进行分类汇总?

zfbj

这个问题可以用扩展词典来解决。

tianliangle

如何把这些相关的信息加到图形里去呢？能不能举个例子。谢谢。

myfreemind

setxdata

zfbj

根据帮助系统整理的一个例子：
'扩展数据的最简单实例
Sub Example_SetXdata()
    ' This example creates a line and attaches extended data to that line.
   
    ' Create the line
    Dim lineObj As AcadLine
    Dim startPt(0 To 2) As Double, endPt(0 To 2) As Double
    startPt(0) = 1#: startPt(1) = 1#: startPt(2) = 0#
    endPt(0) = 5#: endPt(1) = 5#: endPt(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
    ZoomAll

    ' Initialize all the xdata values. Note that first data in the list should be
    ' application name and first datatype code should be 1001
    Dim DataType(0 To 1) As Integer
    Dim Data(0 To 1) As Variant
    Dim reals3(0 To 2) As Double
    Dim worldPos(0 To 2) As Double
   
    DataType(0) = 1001: Data(0) = "Test_Application"
    DataType(1) = 1000: Data(1) = "设置附加信息的字符串"
   
    ' Attach the xdata to the line
    lineObj.SetXData DataType, Data
   
    ' Return the xdata for the line
    Dim xdataOut As Variant
    Dim xtypeOut As Variant
    lineObj.GetXData "", xtypeOut, xdataOut
   
    MsgBox xdataOut(1)
End Sub

tianliangle

感谢zfbj。
我需要好好琢磨一下，我对CAD知道的很少，才开始学习，真的谢谢你了。

tianliangle

如何把这些信息提取出来呢？