Adylov Timur,

' Create Generalization function
Function CreateGeneralization(ByVal model As PdCommon.BaseObject,ByVal Parent As PdCommon.BaseObject, ByVal Child As PdCommon.BaseObject ) As PdCommon.BaseObject
Dim gnr As PdCommon.BaseObject ' .Generalization
Try
gnr = model.CreateObject(PdOOM_Generalization,"Generalizations",-1,True)
gnr.SetAttribute("ParentObject",Parent)
gnr.SetAttribute("ChildObject",Child)
'gnr.SetAttribute("Comment",Description)
Catch ex As Exception
MsgBox("Ошибка создания Generalization " & Parent.GetAttributeText("Name") & " и " & Child.GetAttributeText("Name"), MsgBoxStyle.Critical)
Return Nothing
exit Function
End Try
Return gnr
End Function

Adylov Timur,

Попробуй Sym = Diagram.AttachObject(ObjectPD)