|
发表于 2004-9-10 20:24:00
|
显示全部楼层
以下是在清华天河下,提取明细栏的数据的简短程序,图纸至少要初始化,有一个以上件号. Public Sub main()
Dim DName As String
Dim I As Integer
Dim mxb As AcadDictionary
Dim mxbobj As AcadObject
Dim mxbobj1 As AcadObject
Dim AAA As Variant
Dim BBB As Variant
Set mxb = ThisDrawing.Dictionaries(6)'''''''''''''取得字典对象:"TH_BOM_DIC"
Set mxbobj = mxb.Item(0)''''''''''''''''''''''''''''''''''''''''序号为1的数据
mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''''''''''取得数据
For I = 0 To UBound(BBB)
DName = DName + "|" + CStr(BBB(I))
Next I
MsgBox DName''''''''''''''''''''''''''''''''''''''''显示全部数据
BBB(18) = "XiuGai"''''''''''''''''''''''''''''''''''''''''修改其中一个数据
mxbobj.SetXData AAA, BBB''''''''''''''''''''''''写入数据
mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''重复以上过程
For I = 0 To UBound(BBB)
DName = DName + "|" + CStr(BBB(I))
Next I
MsgBox DName''''''''''''''''''''''这儿显示的数据就反映出是连续数据!!!!
End Sub
'但重新运行后,第一次显示的数据好象又是改过的?不明白?
再深入下去,PCCAD的明细栏中的数据在重新生成明细表后,没有被改动过.
我的主要目的是能提出PCCAD明细表的数据,利用自己的数据库中常用的数据进行输入和编辑,从而能提高工作效率. |
|