Topic: units question..

[Andrea]

Hi all..

I have this..

(setq val1 0.25)

(setq val2 (rtos val1))   ;;returns  "0.2500"
(setq val2 (rtos val1 2 )   ;;returns  "0.25000000"
(setq val2 (rtos val1 2 0))   ;;returns  "0"


so the question is...

how to get "0.25" without using (rtos val1 2 2)  ??

[Crank]

DIMZIN = 8

[Andrea]

DIMZIN ??

why using DIM variables ??
do I nee to change also LUPREC ??

Naaaahhh !!

Please can you explain exctly what DIMZIN affect ??

thanks.

[Serge J. Gianolla]

Since you work in decimal, check DIMZIN = 8
But if all you want to have is Val2 equal to Val1 then (setq Val2 Val1) or am i missing something!

[Serge J. Gianolla]

Rats, got beaten by Crank

[deegeecees]

From the AutoCAD Developers Help:

vl-string-right-trim Function
 
Removes the specified characters from the end of a string

(vl-string-right-trim character-set string)

Arguments

character-set

A string listing the characters to be removed.

string

The string to be stripped of character-set.

Return Values

A string containing a substring of string with all trailing characters in character-set removed.

Examples

_$ (vl-string-right-trim " \t\n" " STR \n\t ")
" STR"
_$ (vl-string-right-trim "1356789" "3CPO is not R2D267891")
"3CPO is not R2D2"
_$ (vl-string-right-trim " " "There are too many spaces here      ")
"There are too many spaces here"

[Andrea]

Since you work in decimal, check DIMZIN = 8
But if all you want to have is Val2 equal to Val1 then (setq Val2 Val1) or am i missing something!

Hey !! Hi, Serge..long time no talk..

in fact i need to compare ..(if (= val1 val2) ...

so if val1 is "0.25" and val2 is "0.25000000"..the result was nil.
sur i can do... (if (= (read val1) (read val2))....

but I dont want to convert for after reconvert again..see ?

thanks.

[Serge J. Gianolla]

I see, but when you are comparing with the read function, you are not converting and having to re-convert, comparison is done on the fly without changing the values from strings to reals! Capisci?

[Andrea]

I see Serge...

But I need also to put the result in a dialog box...

see ?

[Serge J. Gianolla]

OK, it appears that my good pal Andrea has a bit of hard time getting my explanation, so I'll try differently! Please, people who get upset when they don't see english words [you know who you are ] look somewhere else or keep your remarks for yourselves, thank you.
Andrea,
Quand tu compares les 2 values a l'aide de READ, il n'y a pas de conversion qui intervient. Tes 2 valeurs restent des chaines de characteres, et peuvent donc etre passees a ta boite de dialogue apres. Ca va mieux comme explications? Tu comprends la comprenance?

P.S: I was after ODCL2, but never mind. I started with ver 3, and so far so good. Ciao

[Andrea]

Serge,...

Maybe i'm not clear with my explaination to...
I don't have a problem to compare...

I have proble to show the result..
because I need to re-convert in string...

see ?

 

[CAB]

Perhaps this.

Code: [Select]

(setq rval1 0.25)
(setq rval2 0.25)

(setq $val1 (rtos rval1 2))
(setq $val2 (rtos rval2 2))

(setq $val1 (vl-string-right-trim "0" $val1))
(setq $val2 (vl-string-right-trim "0" $val2))

(= $val1 $val2)
0.25
0.25
"0.25000"
"0.25000"
"0.25"
"0.25"
T
_$