OPM Formula to catch Name to cell name

Hi You,

Thank you for raising your query in Bentley Plant Forum. 

From the image, I understand that you want to update the value of Cell Name with Tag Information, while the cell name will remain constant based on the cell being used.

Can you please provide us the reason behind this requirement.

Regards | Swapnil Joshi

Hi Sir

The reason is because I found the model will always show as a name "Cell" in our review model tree, e.g. Navisworks.

but if I give a name to the cell, the cell name will be shown in the model tree, instead of "Cell".

But in this case we have define the cell name manually both in OPM TAG and Element properties. that is double work.

So I wondering if I can add some ECexpression etc within Class Editor, to let the Cell Name = TAG. that will be perfect!

Do you understand?

查看帮助修改相应的getvalue获取不同类型的属性。

追加了一个属性， 现在都能实现了， 谢谢！谢谢！

您好，现在我想在OPM里获取参考模型的相关信息然后我在DO 循环前加了一个FOR循环用来对每个Attachment进行Scan, 新的代码如下， 调试时在Set Mycell = MyEnum.Current 出现报错说是类型不匹配，麻烦您帮忙看看。

Sub FillCellNameAsTag()
    Dim Mycell As CellElement
    Dim ee As ElementEnumerator
    Dim sc As New ElementScanCriteria
	
	dim oAtt as Attachment ‘新加变量
    
    sc.ExcludeAllTypes
    sc.IncludeType msdElementTypeCellHeader
	
	For For Each oAtt In ActiveModelReference.Attachments
		Set MyEnum = ActiveModelReference.Scan(sc)
    
		Do While MyEnum.MoveNext
			Set Mycell = MyEnum.Current ’调试时这里报错说 “Type mismatch”，
			Select Case GetCellProperty(Mycell, "SUPPORT_NAME")
				   Case "NotAvailable"
				   Case Else
						ActiveModelReference.AddElement GetCellProperty(Mycell, "NAME") '此处改为放置文本
			End Select
		Loop
	Next
    
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

有一些别的元素也在msdelementtypecellheader，但其又不是cell。找到这个元素，然后排除掉在赋值。

你好，另有一个问题对于Cell里面嵌套Cell的名称怎么用VBA修改它？默认是Graphics, 怎么修改让它与主Cell名称一致？

你好，另有一个问题对于Cell里面嵌套Cell的名称怎么用VBA修改它？默认是Graphics, 怎么修改让它与主Cell名称一致？

搜索关键字GetSubElements