CollectionItem.Families

オブジェクトのすべてのファミリ名をStringのArrayを戻します。

set oItem = CreateObject("XSI.CollectionItem")
oItem.Value = "Camera"
logmessage "object belongs to families:" & oItem.Families