Quote Originally Posted by kennet.sjoberg View Post
Hi "Longname" !
You did find a really old post, and I have not been here for a very long time.
But I will give you some help. There is two lines to change:

Change :
(if (setq ToSum (getint "Enter an integer (example 5 or -5 ) to add or subtract : " ) )
to :
(if (setq ToSum (getreal "Enter a real (example 5.001 or -5.001 ) to add or subtract : " ) )

And change :
(setq AttDxf (subst (cons 1 (itoa (+ (atoi (cdr (assoc 1 AttDxf ))) ToSum ))) (assoc 1 AttDxf ) AttDxf ) )
to :
(setq AttDxf (subst (cons 1 (rtos (+ (atof (cdr (assoc 1 AttDxf ))) ToSum ) 2 3 )) (assoc 1 AttDxf ) AttDxf ) )

; ) Happy Computing !

kennet
Hey, i tried with your lisp changes but it doesnt take an attribute value as a real number, so it subtracts it as an integer number.
Could you help me with this?