[求助] 修改CAD2006机械版部件数据

he_ll

9pt 10pt 11pt 12pt 13pt 15pt

我使用AutoCAD2006 type lib、autodesk mcadauto2.0 type lib 和 autodesk symbbauto2.0 type lib, 可以修改bom序号和数量,但是修改不了部件的数据，请高手介绍一种方法，用arx也行，拜谢！！！

vb修改程序如下：
Dim acadApp As acadApplication
Dim mcadApp As McadApplication

Dim idoc As IMcadDocument
Dim ibom As IMcadBOMItem

Set acadApp = GetObject(, "AUTOCAD.Application.16")
Set mcadApp = acadApp.GetInterfaceObject("Mcad.Application")

Set idoc = mcadApp.ActiveDocument
Dim mpart As IMcadPartList

Set mpart = idoc.HostDocument.ModelSpace.Item(13) '此处取得IMcadPartList对象

'修改bom序号和数量
mpart.ItemList(3).Quantity = 88
mpart.ItemList(3).ItemNumber = "33"
mpart.Update

'修改部件数据
mpart.ItemList(3).Data(1, 1) = "dsfsf" '此处取一个部件属性进行修改，无效？？？
mpart.Update

还有如何获取mbomstandard对象, 有一个addcolum方法可能可以增加一个部件信息.

ccaadd

哪位高手有修改标准件数据的方法吗？——求助

修改引用件程序如下，给各位也分享一下：

    Dim acadapp As AcadApplication
    Dim mcadApp As McadApplication
   
    Dim idoc As IAcadDocument
   
   
    Set acadapp = GetObject(, "AUTOCAD.Application.16")
   
    Set mcadApp = acadapp.GetInterfaceObject("Mcad.Application")
   
    Set idoc = acadapp.ActiveDocument
   
    Dim mpartref As McadPartReference
    Set mpartref = idoc.ModelSpace.Item(4)  '此处取到一个引用件mcadpartref对象

    Dim symbb As McadSymbolBBMgr
    Set symbb = acadapp.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")

    Dim bommgr As McadBOMMgr
    Set bommgr = symbb.bommgr

    Dim pdata() As String

    pdata = mpartref .Data

    pdata(0, 1) = "aaaa"
    pdata(1, 1) = "bbbbbb"

    。。。。

    bommgr.SetPartData mbom, pdata
    acadapp.Update

联系MSN: hellilu@gmail.com,,谢谢