4.207: Sample AutoLISP

Repetition and Conditional

4.207 Tutorials and Samples
write requests to: takehiko@mit.edu
last revised : 2/5/01

AutoLOADERŠ Set Up

AutoLISP file

repeat_01.lsp: : this program provides a function to draw a row of domed bays.

Functions Defined (click button for dispatching to AutoCAD)

(c:demo): : draws various repetitions of circles and pentagons.
(loop1 number_of_repetition): : draws a row of circles using AutoLISP command, REPEAT; (loop1 5 )
(loop2 number_of_repetition): : draws a row of pentagons using AutoLISP command, WHILE; (loop2 5 )
(loop3 xpos ypos radius number_of_repetition x_increment): : draws a row of alternating circles and pentagons using AutoLISP command, if; (loop3 0 10 1 5 3 )
(loop4 xpos ypos xwidth radius x_increment y_increment number_of_rows number_of_columns): : draws a matrix of pentagons bays with nested loops; (loop4 0 15 1 3 3 5 5 )

Standard AutoCAD Commands