Viewport name (eg. for symbols)

[Kool Aid]

Since objects in a viewport (annotation) are not on any layer, it seems that the only way to get them reported is to have a data record which is populated by a command.

PROCEDURE ViewPortName; { ? Petri Sakkinen 2009 } 

PROCEDURE GetIt (h : HANDLE);
VAR theViewport : HANDLE; vpName : STRING; 
BEGIN
theViewport := GETVPGROUPPARENT(GETPARENT(h));  
vpName := GETNAME(theViewport); 
MESSAGE(vpName); 
END;

BEGIN
FOREACHOBJECT(GetIt, (INVIEWPORT & (S='Your symbol'))); 
END; 

RUN(ViewPortName); 

Luckily my frustrated user I referred to elsewhere already has a record for revision data, so she only needed to add a field for the layer/viewport.

Instead of messaging, the real thing writes the vpName to this ?Location? field.

As a solution: satisfactory; as a need: nonsense! (Or whatever expression Nero Wolfe might use. Phooey?)

Edited October 21, 2009 by Kool Aid