How to create a lisp program displaying coordinates

[bharthts01]

Nearly got it!!!! Thanks!!!

Last thing..... Need an arrow pointing to the point which the coordinate states

[eldon]

It is good to re-invent the wheel every now and again, but for the more idle amongst us, this thread seemed to cover the current topic several years ago.

[Lee Mac]

How about simply:

(defun c:dimo ( / p )
    (while (setq p (getpoint "\nSpecify Point <Exit>: "))
        (command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p)) "\\XY=" (rtos (cadr p))) "\\")
    )
    (princ)
)

[bharthts01]

How about simply:

(defun c:dimo ( / p )
    (while (setq p (getpoint "\nSpecify Point <Exit>: "))
        (command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p)) "\\XY=" (rtos (cadr p))) "\\")
    )
    (princ)
)

Is that the full code?

[Lee Mac]

Is that the full code?

Huh? .........

[bharthts01]

Is that the full code I.e
Copy and paste that into notepad? Or is there more to that?

[Lee Mac]

That's it.

[bharthts01]

(defun c:ne( / oldOsmode e-x n-y ne1 prmt tx-ht vx vy x-ht xx yy )
 (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 2 0))
  (setq n-y (cadr ne1))
  (setq yy (rtos n-y 2 0))
  (tx-f)
 )
 
 (defun tx-f()
  (setq vx (strcat " E " xx))
  (setq vy (strcat " N " yy))
  (command "_.TEXT" "_J" "_ML" ne1 x-ht 0.0 (strcat vx " / " vy))
 )
 
 (setq tx-ht 0.5)
 (setq oldOsmode (getvar "OSMODE"))
 (setvar "osmode" 427)
 (setq ne1 (getpoint "\nPick point..."))
 (setvar "osmode" 0)
 (if (/= ne1 nil)
  (go_ne)
  (princ "\nInvalid Location !")
 )
 (setvar "OSMODE" oldOsmode)
 (princ)
)

This is the code I'm using.



This is what it looks like (highlighted with the red bubble).

I'm after one last thing, which is the 'line/point' which the coordinate is stating.
As shown on the left.

[Lee Mac]

Did you try my code?

[bharthts01]

Did you try my code?

What command is it?