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.
Registered forum members do not see this ad.
Nearly got it!!!! Thanks!!!
Last thing..... Need an arrow pointing to the point which the coordinate states
How about simply:
Code:(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 I.e
Copy and paste that into notepad? Or is there more to that?
This is the code I'm using.Code:(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 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.