Try this
Code:(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))) )
|
Try this
Code:(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))) )
I'm gonna try this right now... I'll report back.
Thanks everyone, you're all being very helpfull.
-JP
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!!!
Try
Code:(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) )