Our DevBlog for AutoCAD and other platform technology APIs.

Our DevBlog for Revit, Navisworks, AEC and BIM technology APIs. Please enable JavaScript if you would like to comment on this blog. If vdata(j, LBound(vdata, 2)) = 'MATERIAL' ThenĬall oBoMMgr.SetPartData(ThisDrawing.ModelSpace, vdata) + vbTab + vbTab + vdata(j, UBound(vdata, 2)) + vbCrLf ' Assign the data to current database modelspaceĬall oBoMMgr.SetPartData(ThisDrawing.ModelSpace, sData)ĭebug.Print vbTab + vdata(j, LBound(vdata, 2)) + vbTab _ SData(10, 0) = 'STANDARD': sData(10, 1) = 'text for standard' SData(8, 0) = 'DESCR': sData(8, 1) = 'text for description' SData(1, 0) = 'STANDARD2': sData(1, 1) = 'text for standard2' ' Define double array of strings to hold column name and values Vdata = oBoMMgr.GetPartData(ThisDrawing.ModelSpace) ' Get the assembly attributes from current database modelspace ' Check if the assembly properties have been initialized Set oSymBBMgr = Application.GetInterfaceObject('SymBBAuto.McadSymbolBBMgr') The following are two VBA samples that you can refer to: For AutoCAD Mechanical 2013, you need to add reference to SymBBAuto 4.0 type library. This API is provided by SymBBAuto type library. So you can first get the model space ID and use API AcmBOMManager::getPartData() to get the assembly property data. The assembly property is associated with the model space block table record. Some of our partner need to access to those property data using API.

A dialog shows up and the user can add/define properties. When creating a new drawing in AcadM 2013 and running the command '_ampartrefedit' with option '_a' (assembly properties).

Autocad 2019 mechanical