Need Help With Lisp Plus Dim

[sieuhongho]

Thank you to read my thread

I have this code to plus dim and export to excel ...

 

(defun c:ccd(/ gtt dt sdt ent id str)
(setq dt (ssget '((0 . "DIMENSION")))
sdt (sslength dt)
id 0
gtt 0
str "="
)
(repeat sdt
(setq
 ent (ssname dt id)
    id (1+ id)
 gtt (+ gtt (gt1 ent) )
str (strcat str  (Rtos (gt1 ent) 2 0 ) "+")
 )
)
(Lisped (substr str 1 (1- (strlen str))))
(princ (rtos gtt 2 0 ))
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun gt1(ent / so)
(if (wcmatch(cdr(assoc 1 (entget ent)))"")
 (setq so (cdr(assoc 42 (entget ent))))
 (setq so (atof(cdr(assoc 1 (entget ent)))))
 )
)

this code work great but can someone fix

to round up around 10

example : 3316--->3320 .... ; 3321--->3320 .

Thank you for your help

Edited July 9, 2018 by SLW210
Code Tags

[rlx]

see : http://www.lee-mac.com/round.html

 

 

 (defun LM:roundm ( n m ) (* m (atoi (rtos (/ n (float m)) 2 0))))

 

 

 (LM:roundm 135.13 10)

-> 140

 (LM:roundm 134.13 10)

-> 130

[Roy_043]

If I look at the code I see that rtos is used. This should correctly round the gtt value. Maybe the OP is confused by the dimensions in the dwg?

For example:

distance 1 = 4.6; dimension value = 5

distance 2 = 3.5; dimension value = 4

 

4.6 + 3.5 = 8.1; rounded value = 8

[Roy_043]

Disregard my previous post. I have misread the OP.

[sieuhongho]

see : http://www.lee-mac.com/round.html

 

 

 (defun LM:roundm ( n m ) (* m (atoi (rtos (/ n (float m)) 2 0))))

 

 

 (LM:roundm 135.13 10)

-> 140

 (LM:roundm 134.13 10)

-> 130

 

Thank you for reply my post .

But im a newbie .

Would u do me favor , add ur code to my code .

Thank you very much

[SLW210]

Please read the Code Posting Guidelines and have your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here