Why 2.5 to become 2
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
Why 2.5 to become 2

 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization
Author Message
Adesu
Guest
Posted: Wed Dec 22, 2004 2:23 pm    Post subject: Why 2.5 to become 2 Reply with quote
_$ (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

Back to top
Jesús Urrutia
Guest
Posted: Wed Dec 22, 2004 2:40 pm    Post subject: Re: Why 2.5 to become 2 Reply with quote
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...
Quote:
_$ (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

Back to top
Jesús Urrutia
Guest
Posted: Wed Dec 22, 2004 3:05 pm    Post subject: Re: Why 2.5 to become 2 Reply with quote
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...
Quote:
_$ (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



Back to top
Adesu
Guest
Posted: Thu Dec 23, 2004 5:22 am    Post subject: Re: Why 2.5 to become 2 Reply with quote
Hi Jesús Urrutia , oh.. yes that right,thanks.

Jesús Urrutia <jurrutia@udc.es> wrote in message
news:41c946ea$1_3@newsprd01...
Quote:
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



Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB