Im having no luck finding a solution to this...
I have a script \/ \/
Procedure SymbolDistance;
Var X1,Y1,X2,Y2, Dist: Real;
S1, S2: String;
H1, H2, H3: Handle;
B1: Boolean;
Begin
PushAttrs;
B1:=GetCustomObjectInfo(S1, H1, H2, H3);
GetSymLoc(H1,X1,Y1);
Symbol(pSymbol,0,0,0);
GetSymLoc(GetObject(pTee),X2,Y2);
Dist:=Distance(X1,Y1,X2,Y2);
S2:=Num2StrF(Dist);
SetRField(H1, pRecord, pField, S2);
PopAttrs;
ResetObject(H1);
END;
Run(SymbolDistance);
Basically a Point Object tool, that inserts a symbol > measures a distance > puts it in a new symbols record field..
The object doesn't take the value once inserted. Though when moved will update the value in the Object info record field window.
BUT wont show the value in the text that is linked to the record field..
Any thoughts?