How to create a lisp program displaying coordinates

[bharthts01]

Hi Guys,

I'm fairly new to this 'lisp' program. I'm a trainee setting out engineer and have a question.

How do I display both eastings and northings coordinates on one line?
My senior engineer has it on his Auto CAD but got it done from somebody else and he doesn't know how to do it.

See Image - Shows coordinates X and Y



This is how it should be - Please note I typed them coordinates in myself



Any help would be greatly appreciated

Taj.

[MSasu]

I believe you should provide more details on your issue. Are you looking to modify an existing routine? Then you should post at least an excerpt from it – the part that manages those coordinates insertion.
Basically, those coordinates should be strings, so the function you were looking for is STRCAT.

[bharthts01]

I believe you should provide more details on your issue. Are you looking to modify an existing routine? Then you should post at least an excerpt from it – the part that manages those coordinates insertion.
Basically, those coordinates should be strings, so the function you were looking for is STRCAT.

This is how I get coordinates, dimensions > ordinates. This displays the eastings and northings of the point.



This looks very messy to me, all I want to know is how do I make it so instead of it displaying it like above, which looks very messy and can get quite confusing.



Does that make sense? Sorry, not very good on CAD

[Tiger]

To display coordinates like that you are most likely using a Lisp of some sort, a Lisp is a custom-made command that someone have created for you sometime in the past. If the peeps here don't get to look at the routine behind the command, there is not much they can help you with - besides writing a brand new routine which is unneccesary since you have one that works almost as you want.

[bharthts01]

To display coordinates like that you are most likely using a Lisp of some sort, a Lisp is a custom-made command that someone have created for you sometime in the past. If the peeps here don't get to look at the routine behind the command, there is not much they can help you with - besides writing a brand new routine which is unneccesary since you have one that works almost as you want.

I think I should reword the thread,

I know in order for me to view coordinates in the second image I have to use a lisp program.
The question is, how do I do this?

I see where I'm creating confusion though.

[Tiger]

Somewhere in the Lisp-routine there is code that determines how the text is displayed - if you can post the actual lisp routine then it is very likely that you can get help in changing the code.

[bharthts01]

(defun c:ne ()(setvar "osmode" 1)
(setq ne1 (getpoint"\nPick point..."))
(setvar "osmode" 0)
(if (/= ne1 nil)(go_ne)(princ"\nInvalid Location !"))
(princ)
)
(setq tx-ht 0.5)
(defun go_ne ()(setvar "luprec" 2)
(setq prmt (strcat "Enter TEXT HEIGHT<"(rtos tx-ht)">: "))
(princ prmt)
(setq x-ht (getreal))(if (= x-ht nil)(setq x-ht tx-ht))
(setq tx-ht x-ht)
(setq e-x (car ne1))(setq xx (rtos e-x))
(setq n-y (cadr ne1))(setq yy (rtos n-y))
(tx-f)
)
(defun tx-f ()
(setq vx (strcat " E " xx))
(setq vy (strcat " N " yy))
(command "text" "j" "ml" ne1 x-ht "0" vy)
(command "text" "j" "ml" ne1 x-ht "90" vx)
)

This is what I've been told would work.

[bharthts01]

Also how do I implement this? Make it actually work? I've saved the program but when it comes to opening the program it never works.
I type in (load "myprog") and it comes up with "error load failed".

[Tiger]

I can't help you with the re-write of the program, but I can give you a handy link on How To Use A Lisp-Routine.

[MSasu]

This is because AutoCAD isn't able to locate that file - you should either add container folder in Options --> Files --> Support Files Search Path list or input the loading path (please note the double back-slashes):

(load "C:\\MyLispTool\\myprog")