I can not make it work. I would like to suppress Feature in model.
Sub Macro2()
Dim asynconn As New pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
Dim model As IpfcModel
Dim mdlsolid As IpfcSolid
Dim feature As IpfcFeature
Dim suppressop As IpfcSuppressOperation
Dim operations As New CpfcFeatureOperations
Set conn = asynconn.Connect("", "", ".", 5)
Set session = conn.session
Set model = session.CurrentModel
Set mdlsolid = session.CurrentModel
Set feature = mdlsolid.GetFeatureById(19018)
Set suppressop = feature.CreateSuppressOp() not sure if this is ok
operations.Append (suppressop) method or Dataobjekt not founded
mdlsolid.ExecuteFeatureOps(operations, null) expect =
conn.Disconnect (2)
End Sub
