Turn text into stake - possible?
Hi all,
I've never used Vectorscript (but do have a compsci degree and could cobble together code if need be!) but I was wondering if you think it would be possible to achieve the below, and if so if you have any tips on where to start.
I would like to take a landscape site survey (AutoCAD DWG import) and turn the text fields for spot heights into stakes, where the value of the text would become the stakes Z value.
For ease, I think the location of the stake
This should get you started. It creates 3D loci not stakes, but maybe someone else will offer that bit:
Procedure ReplaceTextWith3DLoci;
Procedure DoIt(h1 : HANDLE);
VAR
pX, pY, rAng : REAL;
r1 : REAL;
Flag : BOOLEAN;
i1 : INTEGER;
s1 : STRING;
BEGIN
s1 := GetText(FSActLayer);
i1 := Pos(' ', s1);
IF i1 = 1 THEN Delete(s1, i1, 1);
i1 := Pos(' ', s1);
IF i1 > 0 THEN BEGIN
Insert('.', s1, i1);
Delete(s1, i1 + 1, 1);
END;
