topic Re: Remove spaces in bearing-distance LISP output in Visual LISP, AutoLISP and General Customization Forum

Remove spaces in bearing-distance LISP output

EBDBC3D — Fri, 06 Nov 2020 15:27:55 GMT

How can I remove spaces at the "N" and "E" in the output of this LISP routine? For example, to go from N 89°30’30” E 100.00' to N89°30’30”E 100.00'. Thanks!

Re: Remove spaces in bearing-distance LISP output

Kent1Cooper — Fri, 06 Nov 2020 15:56:28 GMT

Replace this line:

(setq brng (angtos ang 4 4))

with this, to strip the spaces out of it [nested, because (vl-string-subst) substitutes only the first instance]:

(setq brng (vl-string-subst "" " " (vl-string-subst "" " " (angtos ang 4 4))))

[That's specific to this case, assuming the string returned by (angtos) for Surveyor's Units (the first 4), which will have 2 and only 2 spaces in it. If you want to strip spaces out of something that might have any number of spaces, a (while) loop approach would be needed.]

Re: Remove spaces in bearing-distance LISP output

EBDBC3D — Fri, 06 Nov 2020 16:26:00 GMT

That worked - thanks!

Re: Remove spaces in bearing-distance LISP output

john.uhden — Sat, 07 Nov 2020 00:31:32 GMT

Checkout the UNITMODE system variable.