I cleaning today, and found this routine I think I used a long time ago. Its alittle different than how we do things now. I was wondering how I could get it to act like this:
10 SPACES @ 9.0000 = 90.0
(Now this text override the dim <>)
Its close to what we do now, but how could I get it to read:
10 SPACES @ 9.0'=<>
(defun C:SPACE_COUNT (/ ename obj dim div total fract)
(setq ename (car (entsel "\nSelect dimension: ")))
(setq obj (vlax-ename->vla-object ename))
(setq dim (vla-get-measurement obj))
(if (not def)
(setq def 1))
(setq div (getdist (strcat "\nDivide into <" (rtos def) ">: ")))
(if (not div)
(setq div def)
(setq def div))
(setq total (/ dim div))
(setq fract (- total (fix total)))
(vla-put-textoverride
obj
(strcat (itoa (fix total))
" SPACES @ "
(rtos div)
" = "
(rtos (* (fix total) div) 2 1)))
(princ))
Thank you for any help!