GetObject Example

Using Programming Languages other than VBA

Sub Example_GetObject()
	' This example creates a dictionary and adds
	' a custom object to that dictionary. It then
	' returns the object using GetObject.

	Dim dictObj As AcadDictionary
	Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")

	' Load the ARX application that defines the custom object.
	' Note: The application listed here does not exist and
	' will cause an error when run. Change the application name
	' to the path and name of your ARX Application.
	On Error GoTo ERRORHANDLER
	ThisDrawing.Application.LoadArx ("MyARXApp.dll")

	' Create the custom object in the dictionary
	Dim keyName As String
	Dim className As String
	Dim customObj As AcadObject

	keyName = "OBJ1"
	className = "CAsdkDictObject"

	Set customObj = dictObj.AddObject(keyName, className)

	' Find the object
	Dim tempObj As Object
	Set tempObj = dictObj.GetObject(keyName)

ERRORHANDLER:
	MsgBox Err.Description, , "GetObject Example"

End Sub





   Comments?