AutoLISP basics for automation in AutoCAD - Dashboard Guide

Dashboard Mode - AutoLISP basics for automation

Business Question

How can we use AutoLISP to automate repetitive drawing tasks in AutoCAD to save time and reduce errors?

Sample Data: Drawing Task Times (minutes)

Task	Manual Time	AutoLISP Time
Draw 10 Circles	15	3
Draw 5 Rectangles	10	2
Label 20 Points	20	4
Draw 3 Lines	8	1
Insert Blocks	12	3

Dashboard Components

• KPI Card: Total Manual Time
  Formula: Sum of Manual Time column
  Result: 65 minutes
• KPI Card: Total AutoLISP Time
  Formula: Sum of AutoLISP Time column
  Result: 13 minutes
• Bar Chart: Time Comparison per Task
  X-axis: Task names
  Y-axis: Time in minutes
  Two bars per task: Manual vs AutoLISP
• Table: Time Savings per Task
  Formula: Manual Time - AutoLISP Time
  Shows how many minutes saved per task

Layout

+----------------------+----------------------+
| Total Manual Time     | Total AutoLISP Time  |
|       (65 min)        |       (13 min)       |
+----------------------+----------------------+
|                                              |
|          Bar Chart: Time Comparison           |
|                                              |
+----------------------------------------------+
|                                              |
|          Table: Time Savings per Task         |
|                                              |
+----------------------------------------------+

Interactivity

A filter allows selecting specific tasks (e.g., only 'Draw' tasks). When a task filter is applied:

• KPI cards update to show total times for selected tasks only.
• The bar chart updates to show time comparison for filtered tasks.
• The savings table updates to show savings only for filtered tasks.

Self Check

If you add a filter to show only tasks with Manual Time greater than 10 minutes, which components update and how?

• KPI cards show totals only for tasks with Manual Time > 10 (e.g., 'Draw 10 Circles', 'Label 20 Points', 'Insert Blocks').
• Bar chart displays only these filtered tasks.
• Savings table shows savings for these tasks only.

Key Result

Dashboard compares manual vs AutoLISP automation times for drawing tasks, highlighting time savings.

Practice

1. What is the main purpose of using AutoLISP in AutoCAD?
(defun) is often used to define what?

easy

A. To export drawings to other formats

B. To manually draw shapes faster

C. To automate repetitive tasks by defining functions

D. To change the color of objects automatically

Solution

1. Step 1: Understand AutoLISP purpose

   AutoLISP is designed to automate tasks in AutoCAD to save time and reduce errors.

2. Step 2: Recognize (defun) usage

   (defun) defines a function that can be run as a command to automate tasks.

3. Final Answer:

   To automate repetitive tasks by defining functions -> Option C

4. Quick Check:

   Automation = Functions with (defun) [OK]

Hint: AutoLISP automates tasks using functions with defun [OK]

Common Mistakes:

• Thinking AutoLISP changes colors automatically
• Confusing manual drawing speed with automation
• Assuming AutoLISP exports files

2. Which of the following is the correct syntax to define a function named drawSquare in AutoLISP?

easy

A. defun drawSquare () (command "RECTANGLE")

B. (defun drawSquare [] (command "RECTANGLE"))

C. (defun drawSquare () command "RECTANGLE")

D. (defun drawSquare () (command "RECTANGLE"))

Solution

1. Step 1: Recall correct function syntax

   AutoLISP functions start with (defun functionName () ...) using parentheses for parameters.

2. Step 2: Check command usage inside function

   The (command "RECTANGLE") is correctly inside the function body.

3. Final Answer:

   (defun drawSquare () (command "RECTANGLE")) -> Option D

4. Quick Check:

   Correct parentheses and command call = (defun drawSquare () (command "RECTANGLE")) [OK]

Hint: Use parentheses () for parameters in defun [OK]

Common Mistakes:

• Using square brackets [] instead of parentheses
• Missing parentheses around defun
• Omitting parentheses around command

3. What will be the output when running this AutoLISP code?

(defun c:test ()
  (command "LINE" '(0 0) '(10 0) "")
  (princ "Line drawn")
)

medium

A. Draws a line from (0,0) to (10,0) and prints 'Line drawn'

B. Nothing happens because function is not called

C. Draws a circle instead of a line

D. Syntax error due to incorrect quotes

Solution

1. Step 1: Analyze the function definition

   The code uses (defun c:test () ...) to define a command named TEST, but does not call or execute it.

2. Step 2: Understand command and output

   Running this code only defines the function. No line is drawn, and no message is printed because the body is not executed. To run it, type TEST or (c:test).

3. Final Answer:

   Nothing happens because function is not called -> Option B

4. Quick Check:

   defun defines, does not run [OK]

Hint: defun defines functions/commands; they must be called to execute [OK]

Common Mistakes:

• Thinking function runs automatically without calling
• Confusing quotes causing syntax errors
• Assuming wrong command draws circle

4. Identify the error in this AutoLISP function:

(defun c:drawLine ()
  (command "LINE" (0 0) (10 10) "")
  (princ "Done")
)

medium

A. Points should be quoted lists, not bare numbers

B. Missing closing parenthesis for defun

C. Command name should be lowercase

D. princ cannot print strings

Solution

1. Step 1: Check point format in command

   AutoLISP requires points as quoted lists like '(0 0), not bare numbers (0 0).

2. Step 2: Verify parentheses and commands

   Parentheses are balanced, command name case is not an error, and princ prints strings correctly.

3. Final Answer:

   Points should be quoted lists, not bare numbers -> Option A

4. Quick Check:

   Points need quotes for lists [OK]

Hint: Use single quotes for coordinate lists '(x y) [OK]

Common Mistakes:

• Using unquoted coordinates causing errors
• Assuming case sensitivity for commands
• Thinking princ can't print strings

5. You want to create an AutoLISP function that draws a rectangle with width 20 and height 10 starting at point (5,5). Which code correctly automates this task?

hard

A. (defun c:drawRect ()
(command "RECTANGLE" '(5 5) '(25 15))
(princ "Rectangle drawn")
)

B. (defun c:drawRect ()
(command "RECTANGLE" (5 5) (20 10))
(princ "Rectangle drawn")
)

C. (defun c:drawRect ()
(command "RECTANGLE" '(5 5) '(20 10))
(princ "Rectangle drawn")
)

D. (defun c:drawRect ()
(command "RECTANGLE" '(0 0) '(20 10))
(princ "Rectangle drawn")
)

Solution

1. Step 1: Calculate rectangle corner points

   Starting at (5,5), width 20 means x=25, height 10 means y=15, so opposite corner is (25 15).

2. Step 2: Check correct point format and command

   Points must be quoted lists '(x y). (defun c:drawRect () (command "RECTANGLE" '(5 5) '(25 15)) (princ "Rectangle drawn") ) uses correct points and syntax.

3. Final Answer:

   (defun c:drawRect () (command "RECTANGLE" '(5 5) '(25 15)) (princ "Rectangle drawn") ) -> Option A

4. Quick Check:

   Correct points and quotes = (defun c:drawRect () (command "RECTANGLE" '(5 5) '(25 15)) (princ "Rectangle drawn") ) [OK]

Hint: Calculate corner points, use quoted lists '(x y) [OK]

Common Mistakes:

• Using unquoted points causing errors
• Using width/height as points instead of coordinates
• Starting rectangle at wrong point