FONT ID SCRIPT

[axiom]

CAN ANYONE HELP ME FIND A VECTORSCRIPT TO GIVE THE FONT ID OF TEXT IN A VECTORWORKS 9.5.2 DRAWING. I HAVE STUMBLED AROUND TRYING TO UNDERSTAND VECTORSCRIPT BUT HAVE FAILED

[MullinRJ]

axiom,

This script is not elegant, but it will give you the FontID of the first selected object, if it is of type TEXT.

For scripting questions, you would do better to post them in the VectorScript section of the board. I would not have seen your question in the LANDMARK section had the title not caught my eye on the main topic page.

HTH,

Raymond

Procedure GetFID;

{ Get a text object's Font ID. }

VAR

TxtHnd: Handle;

BEGIN

TxtHnd := FSActLayer;

if (TxtHnd<>nil) and (GetType(TxtHnd)=10) then

Message('FID = ', GetTextFont(TxtHnd, 0));

END; { End GetFID }

Run(GetFID);