社区 › 编程申请 › 在CAD2002中如何对所绘图形进行（如材料等）分类汇总

tianliangle 发表于 2003-7-14 21:51:00

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

myfreemind 发表于 2003-7-15 23:23:00

说详细一点！

tianliangle 发表于 2003-7-17 20:32:00

就是这样的

tianliangle 发表于 2003-7-17 20:52:00

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

zfbj 发表于 2003-7-18 07:22:00

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

tianliangle 发表于 2003-7-18 21:55:00

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

myfreemind 发表于 2003-7-18 23:38:00

setxdata

zfbj 发表于 2003-7-19 00:15:00

根据帮助系统整理的一个例子：
'扩展数据的最简单实例
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 发表于 2003-7-20 07:24:00

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

tianliangle 发表于 2003-7-23 21:58:00

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

查看完整版本: 在CAD2002中如何对所绘图形进行（如材料等）分类汇总