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

badwolf

我使用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