GefClassFormat.ObjectID (property)

Gets and sets the object ID of the Class Object.

Syntax:

String = object.ObjectID
object.ObjectID = String

Description:

The ObjectID property is used to access the value of the $OBJECT public variable in the class object.

Example:

Sub DuplicateClassObj()

  Dim cimScreen As
GefObjectModel.GefScreen

Set cimScreen = CimGetScreen()

  Dim cimClassObj As
GefObjectModel.GefObject

  Dim cimClassObj2 As
GefObjectModel.GefObject

  Set cimClassObj =
cimScreen.Object.Objects.Item("TestClass")

  Set cimClassObj2 =
cimScreen.Object.Objects.AddClassObject( _

          cimClassObj.ClassFormat.Project,
_

          cimClassObj.ClassFormat.ObjectID,
_

          cimClassObj.ClassFormat.GraphicName)

  cimClassObj2.Top = 1200
  cimClassObj2.Left = 100
  cimScreen.Refresh False
End Sub