extracting PIO name

[LarryO]

OK, so I have come to realize that

GetSymName(Objh)

is not going to give me the name of the PIO but can't seem to find the correct function.

Now this is not a Name as in Named objects but the name of the type of PIO if that makes any sense. Like the 'Angle' and 'Eye Bolt' PIO's.

Anyone know which function is required?

Thanks

[Miguel Barrera]

All plugin objects have a record with the name of the plugin so you would need to get a handle to this record. In older versions, the parametric record would be the last one but now you can get a handle directly with GetParametricRecord.

PROCEDURE GetPio;
VAR 
pX,pY: REAL;
objHdl: HANDLE;
pioName: STRING;

FUNCTION GetPioName(pioHdl: HANDLE): STRING;
VAR
	recTot: INTEGER;
	recHdl: HANDLE;
BEGIN
IF GetType(pioHdl) = 86 THEN
	BEGIN
	recHdl:= GetParametricRecord(pioHdl);

{ or this code if an older version}
{		recTot:= NumRecords(pioHdl);
	recHdl:= GetRecord(pioHdl,recTot);
}
	GetPioName:= GetName(recHdl);
	END
ELSE
	GetPioName:= '';
END;
BEGIN
GetPt(pX,pY);
objHdl:= PickObject(pX,pY);
IF (objHdl <> NIL) THEN
BEGIN
pioName:= GetPioName(objHdl);
IF Len(pioName) > 0 THEN
	Message(pioName)
ELSE
	Message('Not a plug-in object');
END
ELSE
ClrMessage;
END;
Run(GetPio);

[LarryO]

Thanks Miguel

That was the little tidbit that I needed.