Why 2.5 to become 2

[Adesu]

_$ (setq ss (ssget))
(setq ent (ssname ss 0))
(setq dxf (entget ent))
(setq majel (float (atoi (rtos (car (cdr (assoc 11 dxf)))2 2))))
(setq info40 (cdr (assoc 40 dxf)))
(setq minel (atoi (rtos (float (* majel info40))2 3)))
<Selection set: 65>
<Entity name: 164c1b8>
((-1 . <Entity name: 164c1b8>) (0 . "ELLIPSE") (330 . <Entity name:
164c0f8>) (5 . "67") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbEllipse") (10 0.0 0.0 0.0) (11 5.0 0.0 0.0) (210 0.0 0.0 1.0)
(40 . 0.5) (41 . 0.0) (42 . 6.28319))
5.0
0.5
2 >>>>>> it is must be 2.5

[Jesús Urrutia]

Hi David

(setq minel ( atoi (rtos (float (* majel ...

ATOF not atoi

Jesús


"Adesu" <mteybid@yuasabattery.co.id> escribió en el mensaje
news:41c93c98_3@newsprd01...

_$ (setq ss (ssget))
(setq ent (ssname ss 0))
(setq dxf (entget ent))
(setq majel (float (atoi (rtos (car (cdr (assoc 11 dxf)))2 2))))
(setq info40 (cdr (assoc 40 dxf)))
(setq minel (atoi (rtos (float (* majel info40))2 3)))
Selection set: 65
Entity name: 164c1b8
((-1 . <Entity name: 164c1b8>) (0 . "ELLIPSE") (330 . <Entity name:
164c0f8>) (5 . "67") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0")
(100 . "AcDbEllipse") (10 0.0 0.0 0.0) (11 5.0 0.0 0.0) (210 0.0 0.0 1.0)
(40 . 0.5) (41 . 0.0) (42 . 6.28319))
5.0
0.5
2 >>>>>> it is must be 2.5

[Jesús Urrutia]

Sorry
Adesu

(setq minel ( atoi (rtos (float (* majel ...

ATOF not atoi

Jesús
"Adesu" <mteybid@yuasabattery.co.id> escribió en el mensaje
news:41c93c98_3@newsprd01...

_$ (setq ss (ssget))
(setq ent (ssname ss 0))
(setq dxf (entget ent))
(setq majel (float (atoi (rtos (car (cdr (assoc 11 dxf)))2 2))))
(setq info40 (cdr (assoc 40 dxf)))
(setq minel (atoi (rtos (float (* majel info40))2 3)))
Selection set: 65
Entity name: 164c1b8
((-1 . <Entity name: 164c1b8>) (0 . "ELLIPSE") (330 . <Entity name:
164c0f8>) (5 . "67") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0")
(100 . "AcDbEllipse") (10 0.0 0.0 0.0) (11 5.0 0.0 0.0) (210 0.0 0.0 1.0)
(40 . 0.5) (41 . 0.0) (42 . 6.28319))
5.0
0.5
2 >>>>>> it is must be 2.5

[Adesu]

Hi Jesús Urrutia , oh.. yes that right,thanks.

Jesús Urrutia <jurrutia@udc.es> wrote in message
news:41c946ea$1_3@newsprd01...

Sorry
Adesu

(setq minel ( atoi (rtos (float (* majel ...

ATOF not atoi

Jesús
"Adesu" <mteybid@yuasabattery.co.id> escribió en el mensaje
news:41c93c98_3@newsprd01...
_$ (setq ss (ssget))
(setq ent (ssname ss 0))
(setq dxf (entget ent))
(setq majel (float (atoi (rtos (car (cdr (assoc 11 dxf)))2 2))))
(setq info40 (cdr (assoc 40 dxf)))
(setq minel (atoi (rtos (float (* majel info40))2 3)))
Selection set: 65
Entity name: 164c1b8
((-1 . <Entity name: 164c1b8>) (0 . "ELLIPSE") (330 . <Entity name:
164c0f8>) (5 . "67") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0")
(100 . "AcDbEllipse") (10 0.0 0.0 0.0) (11 5.0 0.0 0.0) (210 0.0 0.0
1.0)
(40 . 0.5) (41 . 0.0) (42 . 6.28319))
5.0
0.5
2 >>>>>> it is must be 2.5