Topic: Modifying an old routine

[MSTG007]

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'=<>

Code: [Select]

(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!

[Jeff_M]

replace these 2 lines:

             " = "
       (rtos (* (fix total) div) 2 1)))

with:

             " = <>"
       ))

[cmwade77]

replace these 2 lines:

             " = "
       (rtos (* (fix total) div) 2 1)))

with:

             " = <>"
       ))

You beat me to it....lol

[MSTG007]

just want to point this out. After seeing that, I do feel alittle dumb lol. I should have caught that one.

Ok got one more for you. I am trying to get the value "9" to show up in the label as 9.0'. Any ideas?

[roy_043]

DIMLUNIT=2
DIMDEC=1
DIMPOST=<>'