AutoLISP lesson #6 - NUMBERS & LETTERS
Mathematical expression format
1 + 2 = X
In AutoLISP it would be written as:
(+ 1 2) ;Returns 3
As you should know by now, all lists in AutoLISP start with a function and the remainder of the list is the arguments to the function. Math in AutoLISP is no different. If you want to add two numbers you first give the function name which is "+" then you give the numbers you want the addition performed on. The rest of the math function works the same way.
(/ 4 2) ;Returns 2
(* 4 2) ;Returns 8
(- 4 2) ;Returns 2
If you get confused at first just try to visualize the operator placed between the two numbers that follow the operator.
AutoLISP has many functions built right in for using numbers and strings. Learning to use numbers & strings is the single most important thing you can do to increase your productivity by using LISP. Most of the programs you write will be calculating numbers & telling the user what you calculated.
The AutoLISP functions for dealing with numbers are listed below.
Predefined mathematic functions
+ The addition operator.
(+ 2 4) ;Returns 6
- The subtraction operator.
(- 4 2) ;Returns 2
* The multiplication operator.
(* 4 2) ;Returns 8
/ The division operator.
(/ 4 2) ;Returns 2
1+ Adds one to a number.
(1+ 2.0) ;Returns 3
1- Subtracts one from a number.
(1- 2.0) ;Returns 1
min Gets the minimum number from a list of numbers.
(min 3 2 6 8) ;Returns 2
max Gets the maximum number from a list of numbers.
(max 3 2 6 8) ;Returns 8
abs Returns the absolute value of a number.
(abs 1) ;Returns 1
(abs -1) ;Returns 1
sqrt Returns the square root of a number.
(sqrt 9) ;Returns 3
exp Returns e raised to the power of a number. e is the constant 2.71828.
(exp 1.0) ;Returns 2.71828
(exp 2.0) ;Returns 7.38905
expt Returns a number raised to the power of another number.
(expt 2 3) ;Returns 8
(expt 2 4) ;Returns 16
log Returns the natural log of a number.
(log 10) ;Returns 2.30259
(log 20) ;Returns 2.99573
gcd Returns the greatest common denominator of two integer numbers.
(gcd 12 24) ;Returns 6
rem Returns the remainder of the division of two numbers.
(rem 10 3) ;Returns 1
sin Returns the sine of a number in radians.
(sin 90) ;Returns 0.893997
cos Returns the cosine of a number in radians.
(cos 45) ;Returns 0.525322
atan Returns the arctangent of a number in radians.
(atan 45) ;Returns 1.548578
Numbers
Magic numbers
The use of magic numbers should be avoided if at all possible. There's nothing "magic" about magic numbers. The magic part comes in when you go back later to modify a program that works, and you find literal numbers everywhere but have no idea what they are. It makes it much easier to read and modify a program if constants with GOOD names are used instead of numbers. Remember when naming your constants to give them names that describe what they are. PI is a good example of a constant name, it tells exactly what it is.
The value PI has been made a constant in AutoLISP, because it is used so frequently when calculating angles. All you need to do to get the value of PI is type PI into your formulas.
Type conversions
(/ 1 2) ;Returns 0
(/ 1 2.0) ;Returns 0.5
As you can see from the examples, an integer returns the result of the division as the integer portion of the result and leaves off the decimal portion. This is handy at times but can be a real "gotcha" if that's not what you had in mind. The best way to make sure this doesn't happen to you is to do the type conversions yourself, that way you know what you are dealing with.
Strings
Predefined String Functions
Note: Arguments enclosed in brackets [] are optional.
angtof (angtof string [mode])
(angtof "45.00" 0) ;Returns 0.785398
Converts a string, which represents an angle in the display format, specified by mode, into a floating-point value. The return value will be expressed in radians if ANGTOF succeeds, else nil will be returned. The mode argument specifies the units in which the string is formatted. The value should match the values used by the AUNITS system variable. If mode is left out, ANGTOF uses the current setting of the AUNITS system variable. The possible values allowed for use with ANGTOF are shown below.
Mode value String format
0 Degrees
1 Degrees/Minutes/Seconds
2 Grads
3 Radians
4 Surveyor's units
Input to ANGTOF must be in a format acceptable as input to an AutoCAD command.
angtos (angtos angle [mode [precision]])
(angtos 0.785398 0 4) ;Returns "45.0000"
(angtos -0.785398 0 4) ;Returns "315.0000"
Converts an angle in radians (a real number) to a string according to the values of "mode" and "precision". Mode and precision follow the same rules as applied to ANGTOF. The mode table shown above may be used.
Once again if the "mode" argument or the "precision" argument are not given, AutoLISP will use the current values of AUNITS and AUPREC respectively, to format the string.
As you can see in the examples, negative values can be entered and will be converted to positive angles.
Remember that the angle conversion are relative to the ANGBASE, so if you are trying to convert arbitrary angles you must add the angle between ANGBASE and your angle to get the angle to convert correctly.
If you select a mode of 4 (surveyor's units), the UNITMODE variable will affect the conversion to a string. If UNITMODE=0, spaces are included in the string ("N 45d E"); if UNITMODE=1, no spaces are used in the string ("N45dE").
read (read "string") ;Returns the string string
(read "(a b c)") ;Returns the list (a b c)
(read "(a b c) (d)") ;Returns the list (a b c)
(read "25.4") ;Returns the real number 25.4
(read "4") ;Returns the integer 4
(read "4 12.5") ;Returns the integer 4
Returns the first list or atom obtained from the string. The string cannot contain blanks except within a list or string. Read attempts to convert the string into the closest data type. If it cannot figure out what data type to convert to it will return nil.
strcase (strcase "string" [which]) ;If [which] is nil Returns
;STRING else if [which] is not
;nil returns string.
(strcase "String") ;Returns "STRING"
(strcase "String") ;Returns "string"
Returns a copy of a string with all the characters converted to either upper or lower case. If the "which" argument is omitted all characters are converted to uppercase. If "which" is supplied and non-nil STRCASE converts the characters to lowercase.
strcat (strcase "string1" "string2");Returns "string1string2"
Returns the concatenation of one or more strings. For those of you who don't know, "concatenation" simply means it combines the two strings into one string.
strlen (strlen "string") ;Returns 6
(strlen "string1" "string2");Returns 14
Returns the length, in characters, of a string. If more than one string is given it returns the sum of all the string lengths.
substr (substr "string" start [length])
(substr "string" 3 3) ;Returns ring
(substr "string" 3) ;Returns ring
Returns a sub-string of a string. It starts at "start" and goes on for [length]. If length is unspecified it returns the remainder of the string.
ascii (ascii "abc") ;Returns 97
(ascii "ABC") ;Returns 65
(ascii "a") ;Returns 97
(ascii "A") ;Returns 65
(ascii "Bite") ;Returns 66
Returns the conversion of the first character of a string into its ASCII character code.
atof (atof "25.4") ;Returns the real number 25.4
(atof "4") ;Returns the real number 4.0
Returns the conversion of a string into a real value.
atoi (atoi "25.4") ;Returns the integer 25
(atoi "12.8") ;Returns the integer 12
Returns the conversion of a string into an integer.
chr (chr 66) ;Returns "B"
(chr 65) ;Returns "A"
Returns the conversion of an integer representing an ASCII character code into a single-character string.
itoa (itoa 65) ;Returns "65"
(itoa -23) ;Returns "-23"
Returns the conversion of an integer into a string.
rtos (rtos number [mode [precision]])
(rtos 24.375621 2 3) ;Returns "24.375"
Returns the conversion of a real number into a string. The mode argument corresponds to the LUNITS system variable in AutoCAD. The precision corresponds to the LUPREC system variable. The unit mode values are set as follows.
Mode Value String format
1 Scientific
2 Decimal
3 Engineering (feet and decimal inches)
4 Architectural (feet and fractional inches)
5 Fractional
If you omit the units RTOS uses the current settings of LUNITS and LUPREC to format the string.
String considerations
\\ Backslash character
\" Double quote character
\e Escape character
\n Newline character
\r Return character
\t Tab character
\nnn Character whose octal code is nnn
As you notice all the escape code use a backslash as the first character. This means that in AutoLISP you cannot use a backslash by its self. If you use a backslash such as in a path string the backslash will be ignored and all the characters will be run together. The following example illustrates this point.
(setq path "c:\acad\lisp") ;Returns "c:acadlisp"
Be careful not to do this in your lisp programs. You must use the forward slash when entering paths.
Prompts
(prompt "\nPlease pick insertion point...\nor press enter to exit.")
This would be perfectly acceptable to the AutoLISP interpreter and it would put the correct prompts to the screen. They would look like the following.
command:Please pick insertion point...
command:or press enter to exit.
command:
The better way to write the line would be as follows.
Either:
(prompt "\nPlease pick insertion point...")
(prompt "\nor press enter to exit.")
Or:
(prompt (strcat "\nPlease pick insertion point ..."
"\nor press enter to exit."))
You would get the same output to the screen, but the program code is much more readable. When writing informative prompts to the user of your program, many times you will need to use STRCAT to get string and information all tied together for output to the screen. This can also get messy if you don't pay attention to how you code it.
(setq Val1 "Dave")
(prompt (strcat "\nI think " Val1 " is a very nice person!"))
The example above shows a way to code the prompt, but once again I think can do better.
(prompt (strcat "\nI think "
Val1
"is a very nice person."))
The second way takes a little more typing but if you do many of these type prompts, you will find they are much easier to see what strings are being brought together. It becomes increasingly important as you bring more variables into the strings.