4.207: Sample AutoLISP

List Manipulation

4.207 | Tutorials and Samples
write requests to: takehiko@mit.edu
last revised : 2/5/01
LISPLOADERŠ Set Up

AutoLISP file

list_01.lsp

: This program demonstrates the use of AutoCAD commands,
car cdr append cons foreach mapcar apply
It provides a function to draw a parabolic arch, which is given by a simple formula,

   Y = - a XX + h

Functions Defined (click button for dispatching to AutoCAD)

(c:demo)

(pline_from_points_1 point_list)

: draw a pline from the given list of 2D points.
This version uses the AutoLISP function, repeat .

(pline_from_points_1 '( (0 0) (10 4) (2 9) ) )

(pline_from_points_2 point_list)

: draw a pline from the given list of 2D points.
This version employs a diminishing point list using the AutoLISP functions, while and cdr.

(pline_from_points_2 '( (12 0) (10 10) (18 19) ) )

(pline_from_points_3 point_list)

: draw a pline from the give list of 2D points.
This version uses the AutoLISP functions, apply and append.

(pline_from_points_1 '( (20 0) (19 12) (10 16) ) )

(draw_parabola wide high number_of_division)

: draws a parabola of given width and hight. The argument, number_of_division controls the number of points on the parabola connected by lines.
It uses the AutoLISP functions, mapcar, foreach, and nth.

(draw_parabola 10 20 12 )

Standard AutoCAD Commands

Education | Research | Who we are | Gallery | Bookmarks