Get/Set Assembly Properties from AutoCAD Mechanical by API

By Barbara Han

When creating a new drawing in AcadM 2013 and running the command "_ampartrefedit" with option "_a" (assembly properties). A dialog shows up and the user can add/define properties. Some of our partner need to access to those property data using API.

The assembly property is associated with the model space block table record. So you can first get the model space ID and use API AcmBOMManager::getPartData() to get the assembly property data. This API is provided by SymBBAuto type library. For AutoCAD Mechanical 2013, you need to add reference to SymBBAuto 4.0 type library.

The following are two VBA samples that you can refer to:

Sub setgetAssemblyAttributes() ' Set reference to symbol Manager Dim oSymBBMgr As McadSymbolBBMgr Set oSymBBMgr = Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr") ' Set reference to BOM Manager Dim oBoMMgr As McadBOMMgr Set oBoMMgr = oSymBBMgr.BOMMgr ' Check if the assembly properties have been initialized ' Get the assembly attributes from current database modelspace Dim vdata As Variant vdata = oBoMMgr.GetPartData(ThisDrawing.ModelSpace) If VarType(vdata) = vbEmpty Then 'Create the data to be assigned ' Define double array of strings to hold column name and values Dim sData(0 To 10, 0 To 1) As String sData(0, 0) = "NOTE": sData(0, 1) = "MyNote" sData(1, 0) = "STANDARD2": sData(1, 1) = "text for standard2" sData(2, 0) = "DIM": sData(2, 1) = "10" sData(3, 0) = "DESCR2": sData(3, 1) = "10" sData(4, 0) = "PRICE": sData(4, 1) = "100" sData(5, 0) = "MASS": sData(5, 1) = "101" sData(6, 0) = "MATERIAL": sData(6, 1) = "IS:2062" sData(7, 0) = "VENDOR": sData(7, 1) = "XYZ" sData(8, 0) = "DESCR": sData(8, 1) = "text for description" sData(9, 0) = "MATERIAL2": sData(9, 1) = "GOLD" sData(10, 0) = "STANDARD": sData(10, 1) = "text for standard" ' Assign the data to current database modelspace Call oBoMMgr.SetPartData(ThisDrawing.ModelSpace, sData) Else ' print the existing data Dim j As Integer For j = LBound(vdata) To UBound(vdata) Debug.Print vbTab + vdata(j, LBound(vdata, 2)) + vbTab _ + vbTab + vbTab + vdata(j, UBound(vdata, 2)) + vbCrLf Next End If End Sub

Sub modAssemblyAttributes() ' Set reference to symbol Manager Dim oSymBBMgr As McadSymbolBBMgr Set oSymBBMgr = Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr") ' Set reference to BOM Manager Dim oBoMMgr As McadBOMMgr Set oBoMMgr = oSymBBMgr.BOMMgr ' Get the assembly attributes from current database modelspace Dim vdata As Variant vdata = oBoMMgr.GetPartData(ThisDrawing.ModelSpace) If VarType(vdata) <> vbEmpty Then ' Modify material Dim j As Integer For j = LBound(vdata) To UBound(vdata) If vdata(j, LBound(vdata, 2)) = "MATERIAL" Then vdata(j, UBound(vdata, 2)) = "SILVER" Exit For End If Next ' apply modified material Call oBoMMgr.SetPartData(ThisDrawing.ModelSpace, vdata) End If End Sub