how to create a new plumbing equipment with a cell?

thanks! last week ,i have ran some test and solve the problem

How to create a new Plumbing equipment by 3D cell

Since there is only one equipment is create by 3D cell: in file PlumbingEquipments.cel Vessel01 so all the change is made around it.

1. Create a new definition:

In C:/>Program File(x86)/Bentley/AECOsimBuildingDesigner V8i Ss5/AECOsimBuildingDesigner/datagroupsystem

Create new file CustomParamTankRec.xsd

  <?xml version="1.0" encoding="GB2312"?>

<xs:schema elementFormDefault="qualified" attributeFormDefault="unqualified" xmlns:xs="www.w3.org/.../XMLSchema">

   <xs:simpleType name="bEnumLookupType">

               <xs:restriction base="xs:string"/>

   </xs:simpleType>

   <xs:element name="CustomParamTankRec">

               <xs:complexType>

                           <xs:sequence>

                                      <xs:element name="CellSymbol" type="xs:string"/>

                                      <xs:element name="CellLib" type="xs:string"/>

                                      <xs:element name="EndType" type="xs:string"/>

                                      <xs:element name="ViewDisplay" type="xs:string"/>

                           </xs:sequence>

                           <xs:attribute name="Volume" type="xs:string" use="optional" default="10M3"/>

               </xs:complexType>

   </xs:element>

</xs:schema>

1. in file PlumbingTypes.xml add

<CustomCatalogType name="BMP_TankRec">

                           <AppControl>

                                      <Property app="MECH" name="Category" value="BMPCategory_Equipment"/>

                                      <Property app="MECH" name="MacroKey" value="TankRec"/>

                           </AppControl>

             </CustomCatalogType>

And

 <CatalogTypeExtension type="BMP_TankRec">

                           <InstanceDataDefinition defType="USER" definition="EndSpec6_222222"/>

                           <InstanceDataDefinition defType="USER" definition="CustomParamTankRec"/>

                           <InstanceDataDefinition defType="USER" definition="Properties"/>

                           <InstanceDataDefinition defType="USER" definition="InsulationSymbology"/>

             </CatalogTypeExtension>

1. in list vba file: BMP_Equipments.methods add

           <!--============================================================================-->

        <VBACatalogEntry name="TankRec">

                <Iso        method="[BMP_Equipments]BMP_EquimentEntryPoints.BMP_TankRec" />

                <Label      method="[BMP_Equipments]BMP_EquimentEntryPoints.BMP_TankRec" />

        </VBACatalogEntry>

        <!--============================================================================-->

1. In C:/>ProgramData/Bentley/AECOsimBuildingDesigner Ss5/Workspace/Buildingdataset/Dataset_CN/datagroupsystem file _Dataset_catalogtypeexts_Plumbing.xml add:

       <CatalogTypeExtension    type="BMP_TankRec">

            <InstanceDataDefinition    defType="USER"    definition="ObjectClassification"/>

            <InstanceDataDefinition    defType="USER"    definition="ObjectPhasing"/>

        </CatalogTypeExtension>

In file IFC_Overrides_catalogtypeexts.xml add:

 <CatalogTypeExtension type="BMP_TankRec">

                   <InstanceDataDefinition defType="USER" definition="IFC_Override"/>

          </CatalogTypeExtension>

1. In list datagroupcatalogs file PlumbingEquipment_lib.xml add:

 <CatalogItem type="BMP_TankRec" name="10cube">

                                            <RefData>

                                                              <Reference name="Icon" value="diffuserToprnd.rsc"/>

                                                              <Reference name="Shape" value="2"/>

                                            </RefData>

                                            <Defaults>

                                                              <Property definition="CustomParamTankRec" name="CustomParamTankRec/CellLib" value="water-tank.cel"/>

                                                              <Property definition="CustomParamTankRec" name="CustomParamTankRec/CellSymbol" value="10"/>

                                                              <Property definition="CustomParamTankRec" name="CustomParamTankRec/EndType" value="bw-;bw-;"/>

                                                              <Property definition="CustomParamTankRec" name="CustomParamTankRec/ViewDisplay" value="iso"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End1/@diameter" value="60"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End2/@diameter" value="60"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End3/@diameter" value="89"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End4/@diameter" value="89"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End5/@diameter" value="89"/>

                                                              <Property definition="EndSpec6_222222" name="EndSpec6_222222/End6/@diameter" value="60"/>

                                                              <Property definition="InsulationSymbology" name="InsulationSymbology/@color" value="4"/>

                                                              <Property definition="InsulationSymbology" name="InsulationSymbology/@levelName" value="level 2"/>

                                                              <Property definition="InsulationSymbology" name="InsulationSymbology/@style" value="0"/>

                                                              <Property definition="InsulationSymbology" name="InsulationSymbology/@weight" value="2"/>

                                                              <Property definition="Properties" name="Properties/@AirFlow" value="XSWPIPE"/>

                                                              <Property definition="Properties" name="Properties/@CatalogName" value=""/>

                                                              <Property definition="Properties" name="Properties/@Insulation" value=""/>

                                                              <Property definition="Properties" name="Properties/@InsulationThickness" value="0"/>

                                                              <Property definition="Properties" name="Properties/@Lining" value=""/>

                                                              <Property definition="Properties" name="Properties/@LiningThickness" value="0"/>

                                                              <Property definition="Properties" name="Properties/@Material" value=""/>

                                                              <Property definition="Properties" name="Properties/@PressureClass" value="Low"/>

                                                              <Property definition="Properties" name="Properties/@Status" value="New"/>

                                            </Defaults>

                    </CatalogItem>

1. Star program in VBA manager Load BMP_Equipments.mvba and open it in vb editor . In Modules : BMP_EquimentEntryPoints add:

   Public Sub BMP_TankRec _

( _

hfitting As Long _

)

    Dim oApp As New BMApplication

    Dim oCls As New ClsTankRec

    oCls.Create oApp.HandleToObj(hfitting)

End Sub

In Class modules export ClsVessel.cls and copy it rename to ClsTankRec.cls then open it replace all Vessel to TankRec then save it. Inport ClsTankRec.cls into Class modules save it and compile it.

1. Create the cell and the connection unit
2. 
3. 
4. The cell file must be with the same place with cell PlumbingEquipments.cel
5. Reatart the program place the equipment:

Keyin : bmech place componentbyname BMP_TankRec "10cube" dsc=Plumbing