Skip to content

GetObject.md

Latest commit

 

History

History
99 lines (82 loc) · 3.7 KB

GetObject.md

File metadata and controls

99 lines (82 loc) · 3.7 KB
Raw

GetObject

Description

Function GetObject returns a handle to a named object. If the name does not exist, NIL is returned.

FUNCTION GetObject(name : STRING): HANDLE;
def vs.GetObject(name):
    return HANDLE

Parameters

Name Type Description
name STRING Object name.

Remarks

(_c\ 2008.03.26): Quoting Charles two years ago (comment below): "....in case the behavior of GetObject is ever changed to return only results from the main name list...". Today it is the opposite: GetObject will first parse the NameList and only if it doesn't find anything there, it will parse the LayerList.

Back to Charles' example, having a class and a layer with the same name, GetObject will always find the class.

GetObject('xxx') { only a class called "xxx" is present > returns the class }
GetObject('xxx') { only a layer called "xxx" is present > returns the layer }
GetObject('xxx') { both a class and a layer called "xxx" are present > returns the class! }

(Charles Chandler, 2006.12.7): If there is a layer and also something else (such as a class, viewport, symbol, etc.) in the document with the same name, GetObject will find the layer, and there is no way to force GetObject to see past the layer to return the handle to the other like-named object. The function below can be used to get around this. If you actually want the handle to a layer, you should probably use GetLayerByName instead of GetObject, in case the behavior of GetObject is ever changed to return only results from the main name list.

FUNCTION GetObjectByName(nameOfObject :STRING) :HANDLE;
{Returns the handle to an object in the name list.}
VAR
    h1, h2 :HANDLE;
    tmpName :STRING;
BEGIN
    h1 := GetObject(nameOfObject);
    IF h1 <> NIL THEN BEGIN
        IF GetType(h1) = 31 THEN BEGIN
            {It's a layer, so temporarily rename it, and try again.}
            h2 := h1;
            tmpName := nameOfObject;
            WHILE GetObject(tmpName) <> NIL DO 
                tmpName := Concat('tmp', tmpName);

            SetName(h2, tmpName);
            h1 := GetObject(nameOfObject);
            SetName(h2, nameOfObject);
        END;
    END;
    GetObjectByName := h1;
END;

Examples

BEGIN
	formatH := GetObject (pluginName);
	IF pMethod = GetCustomObjectChoice (pluginName, 'pMethod', 2) THEN method := 2
	ELSE method := 1;

ELSE
	traverseFolder (FInFolder (GetObject (gFolderName)));

BEGIN
bsb := GetCustomObjectInfo(parmName, parmHand, parmRecordHand, wallHand);
IF parmHand = NIL THEN parmHand := GetObject(parmName);
	CASE theButton OF
	kDoorHandlesBtn:
		BEGIN
		DoorHandSymName := GetRField(parmHand, parmName, '__DoorHandle');
if gObjHandle == None:
	gObjName 	= 'Interior-Elevation Marker';
	gObjHandle	= vs.GetObject( gObjName )	# get format, it is important for tool events!!

if className != '':
	# Make sure GCOI returns true, or else youll get a bunch of warnings from SetCLUseGraphic, Is__ByClass, etc.
	h = vs.GetObject( className )
	if h != 0:
		objType	= vs.GetTypeN( h )
		if objType == 94:
			vs.NameClass( className )

if gObjHandle == None:
	gObjName = 'Roadway (Curved)'
	gObjHandle	= vs.GetObject( gObjName )	# get format, it is important for tool events!!

See also in tutorials: 21. Hello Worksheet — Create and Populate, 22. Selected Objects → Worksheet Rows, 23. Count Objects by Criteria (Formula-Driven), 24. Auto-Populating Database Row

Version

Availability: from All Versions

Category