X ,Y Corordinate display

Try this
;
;
;
(defun C:writco( / x tt)

(command "osmode" 33)
(setq x (getpoint "\nPick point : "))
(setq tt (strcat (rtos (car x)) " " (rtos (cadr x)) " " (rtos (caddr
x))))
(setq x (getpoint "\nText where ? : "))
(command "_text" x "" "" tt )
(terpri)
)
;
;
;
Good luck
Jochen
www.black-cad.de

 

In R14 & R2000i how do you display x y corodinates of specific points
on the drawing itself?

JPC

 

HiHo;
Use "Dim" "Ordinate"

 

HiHo;
Use "Dim" "Ordinate"

 

HiHo;
Use "Dim" "Ordinate"

 

Ron,

 

Thanks Jochen, but way over my head.

JPC

 

I tried Dim Ordinate and could not display xy corordinates of
different points. Could you take me through it step by step?

JPC

 

I use "ID" on the command line and then pick the point.
R. Wink

 

It shows xy corordinates in text box but not on the drawing as text.
I need to show the corordinates as text on the drawing.


JPC

 

On Wed, 10 Sep 2003 19:45:02 GMT, (John Callaway)
wrote:

I did what you said but got the following error when I tried to load
the lisp file in AutoCad R14
"Loading D:\Lisp\writco.lsp ...
Error: malformed list*Cancel*".
Below is file, maybe you can tell me where I went wrong.

(defun C:writco( / x tt)

(command "osmode" 33)
(setq x (getpoint "\nPick point : "))
(setq tt (strcat (rtos (car x)) " " (rtos (cadr x)) " " (rtos
(caddr>x))))
(setq x (getpoint "\nText where ? : "))
(command "_text" x "" "" tt )
(terpri)


JPC

 

On Fri, 12 Sep 2003 11:33:09 GMT, Michel

Thanks! It works! Is there an easy way to change the text size other
than using the modify scale command? Also what file do I load it into
so it runs every time I start auto cad?

JPC

 

or with autolisp:
(defun c:coord ()
(command "leader" (setq p (getpoint)) pause "" (rtos (car p)) (rtos
(cadr p)) ""))