Multipling quantity x feet and inches

[BrianTFC]

Hi All

 

What i'm looking to do is the following with a lisp routine.

 

pick 1st pick 2nd place answer

(10) 5'-0" = 50'

 

Thanks,

Brian

[Lee Mac]

Try this old program: Text Calculator

 

[ Desperately needs updating ]

[BrianTFC]

Lee,

 

I was thinking of something a little more simple like this lisp that Jeff Sanders wrote.

 

(defun C:MP()
 (setvar "cmdecho" 0)
 (while(setq pickF(entsel "\nFirst Item: "))
   (setq pickS(entsel "\nSecond Item: "))
   (if(and pickF pickS)
     (progn
       (setq valF(distof(cdr(assoc 1 (entget (car pickF))))))
       (setq valS(distof(cdr(assoc 1 (entget (car pickS))))))
       (setq valN(rtos(* valF valS)))
       (setq txHt(cdr(assoc 40 (entget (car pickF)))))
       (setq rtAn(cdr(assoc 50 (entget (car pickS)))))
       (command "text" (getpoint "\nInsertion Pt:") txHt (angtos rtAn) valN)
     )
   )
 )
 (princ)
)

 

Thanks Lee for your help.

Brian