4.207: Sample AutoLISP

Entity Operations (Under Construction)

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

AutoLISP file, Part 1

entop_03.lsp: : this program provides functions to operate on various entities.

Functions Defined (click button for dispatching to AutoCAD)

(c:demo)

: no demo available currently.

(entity_division_points entity number)

: returns a list of coordinates that are made by dividing the given entity by the given number. Currently it works on a line, arc, pline, 3dpoly and spline command. (May not work for AutoCAD earlier than R2000.) If the entity is nil, it prompts to select an entity. The coordinates returned are in WCS and 3D point format.

(setq points (entity_division_points nil 10 ))

(entity_instersection_points entity1 entity2)

: returns a list of coordinates that are made by intersecting the given entities. Currently it works on a combination of line, arc, ellipse, cirecle, pline, 3dpoly and spline. (May not work for AutoCAD earlier than R2000.) If flag is not nil, attempts are made to extend the line and curve to make intersections. If the entity is nil, it prompts to select entities. The coordinates returned are in WCS and 3D point format.

(setq points (entity_intersection_points nil nil nil))

(entity_vertices entity )

: returns a list of coordinates of the vetex points of the given entity. Currently it works on a line, arc, pline, 3dpoly and spline. For a line and an arc, simple returns the endpoints. (May not work for AutoCAD earlier than R2000.) If the entity is nil, it prompts to select an entity. The coordinates returned are in WCS and 3D point format.

(setq points (entity_vertices nil ))

(entity_center entity )

: returns the coordinates of the center of the given entity. Currently it works on an arc, circle, and ellipse. (May not work for AutoCAD earlier than R2000.) If the entity is nil, it prompts to select an entity. The coordinates returned are in WCS and 3D point format.

(setq point (entity_center nil))

(entity_type entity )

: returns the type name of the given entity. If the entity is nil, it prompts to select an entity.

(setq typename (entity_type nil ))

(entity_layer entity )

: returns the layer name of the given entity. If the entity is nil, it prompts to select an entity.

(setq layername (entity_layer nil ))

(entity_color entity )

: returns the color number of the given entity (0-256). Currently, it works only on index colors (0-256). If the number is 0, it means "BYBLOCK", and if it is 256, it means "BYLAYER". If the entity is nil, it prompts to select an entity. The coordinates returned are in WCS and 3D point format.

(setq colornum (entity_color nil ))

(entlast_list)

(entlast_list_init)

: (entlast_list) returns the list of entities created since the last issuing of the command (entlast_list_init). This command can prefarably be used with AutoCAD commands that makes multiple entities, such as array and divide since (entlast) only catches the last one.

(entlast_list_init)

(setq entlist (entlast_list))

Standard AutoCAD Commands

Education | Research | Who we are | Gallery | Bookmarks