Display insertion point coordinates in decimal feet

[BIG-AL]

Try this

(while (setq pt (getpoint "\nPick point press Enter to exit"))
(setq x (/ (car pt) 12.0))
(setq y (/ (cadr pt) 12.0))
(alert (strcat "point is x= " (rtos x 2 2) " y= " (rtos y 2 2)))
)

[jpcadconsulting347236]

I'm gonna try this right now... I'll report back.

Thanks everyone, you're all being very helpfull.

-JP

[jpcadconsulting347236]

OK, that seems to work perfectly. I will jam this into the full code, test and post it in case it might be helpful to anyone.

Thanks again!!!

[BIG-AL]

Try

(defun c:btest ()
(setvar 'attdia 0)
(setvar 'attreq 1)
(while (setq p (getpoint "\n Specify point :"))
(setq x (strcat "X: " (rtos (/ (car p) 12.0) 2 2)) y (strcat "Y: " (rtos (/ (cadr p) 12.0)  2 2)))
  (command "_.-insert"
           "aaa"
        p
        1
	1
        0
       X
       Y
  )
)
(princ)
)