MullinRJ
I am not real smart on scripts. I have only used ones the people have shared in this forum. I have never written my own. Here is the script I have. Can you tell me how to add your suggestions?
Thanks a bunch.
Heath
PROCEDURE XYText;
VAR
objectHand, recordHand, wallHand : HANDLE;
objectName : STRING;
X, Y : REAL;
BEGIN
IF GetCustomObjectInfo(objectName, objectHand, recordHand, wallHand) THEN BEGIN {Get Object info}
SetObjectVariableBoolean (objectHand,800,TRUE); {Let the text style be changed by the user from outside}
GetSymLoc(objectHand, X, Y); {Get Object Position}
END;
Locus(0,0); {Something to see, won't print}
TextOrigin (0,0); {Set text position, note the object internal coordinate system)}
FillPat(0); {Set Fill to None}
BeginText;
Concat('E ',Num2StrF(X),' N ',Num2StrF(Y),'' ) {Note there is no ; at the end of this line}
EndText;
END;
RUN (XYText);