Topic: Imperial String to Imperial distance

[SPDCad]

Does anyone have a lisp that will convert an imperial distance in the form of a string to the actual imperial distance.

example

input:  "18'2\" "
output:  18'-2"

I am requesting user input in a dialog box and the value is returned as a string not a number.

Any help would be greatly appreciated.

[whdjr]

This is probably your best bet:

Converts a string into a real number
(atof string)

Arguments

string

A string to be converted into a real number.

Return Values

A real number.

Examples

Command: (atof "97.1")
97.1
Command: (atof "3")
3.0
Command: (atof "3.9")

3.9

[MP]

I'm not sure I understand, but given --

Code: [Select]

(defun distanceof ( x  / result )
    (vl-catch-all-apply
       '(lambda ()
            (vl-some
               '(lambda (units) (setq result (distof x units)))
                (list (getvar "lunits") 4 5 2 1)
            )
        )
    )
    result
)
Perhaps --

Code: [Select]

(rtos (distanceof "18'2\"") 4 2)

=> "18'-2\""

[SPDCad]

(rtos (distanceof "18'2\"") 4 2)=> "18'-2\""

Thats its, I forgot about the DISTOF command!
Thanks MP.

:O)