OPM Formula to catch Name to cell name

Cell Name is a Microstation property and OPM doesnt have control over it because its not available in OPM Schema. But if you try to rename the CellName from Element Info by Double Clicking the name "SP-3" it takes that name into your Cell Name property. So OPM is not doing a good job of reading the actual cell name and putting it on the Microstation Cell Name property. You can fix this by writing an MDL application which will 1) scan every component in the DGN 2) Read Its Name/TAG property 3) Write it on the Cell Name property. 

Hi Sir

can you show me some code for this? I just need a short sample and then I can deep in further myself.

If that possible?

You need to do something like below.

ScanCriteria* pScanCriteria = mdlScanCriteria_create();

mdlScanCriteria_addSingleElementTypeTest (pScanCriteria, CELL_HEADER_ELM);
mdlScanCriteria_setReturnType (pScanCriteria, MSSCANCRIT_RETURN_FILEPOS, FALSE, TRUE);
mdlScanCriteria_setRangeTest (pScanCriteria, NULL); //no range test
mdlScanCriteria_setModel (pScanCriteria, ACTIVEMODEL);
/* loop through all Titel cell elements in file */
do
{

//once you get a cell name here..you need to use EC Framework APIs to extract the EC data and get the Name of the element.

and then use MDL APIs for changing the cell name Property.

}

Thanks a lot, I will try it later.

Hello Yuanwu,

Here is the MVBA code for your reference.

Sub FillCellNameAsTag()
    Dim Mycell As CellElement
    
    Dim ee As ElementEnumerator
    Dim sc As New ElementScanCriteria
    
    sc.ExcludeAllTypes
    sc.IncludeType msdElementTypeCellHeader
    Set MyEnum = ActiveModelReference.Scan(sc)
    
    Do While MyEnum.MoveNext
        Set Mycell = MyEnum.Current
        Select Case GetCellProperty(Mycell, "SUPPORT_NAME")
               Case "NotAvailable"
               Case Else
                    SetCellProperty Mycell, "CellName", GetCellProperty(Mycell, "NAME")
        End Select
    Loop
End Sub

Function GetCellProperty(CellEle As Element, PropertyNameString As String) As String
    Dim OPH As PropertyHandler
    Set OPH = CreatePropertyHandler(CellEle)
    On Error Resume Next
    GetCellProperty = "NotAvailable"
    OPH.SelectByAccessString (PropertyNameString)
    GetCellProperty = OPH.GetValue
End Function

Sub SetCellProperty(CellEle As Element, PropertyNameString As String, PropertyValue As String)
    Dim OPH As PropertyHandler
    Set OPH = CreatePropertyHandler(CellEle)
    OPH.SelectByAccessString (PropertyNameString)
    OPH.SetValue PropertyValue
End Sub