**CAD Automation** refers to the use of scripts, macros, or software programs to automate repetitive tasks in **Computer-Aided Design (CAD)** tools like AutoCAD, SolidWorks, CATIA, or Fusion 360. The goal is to increase productivity, reduce human errors, and speed up the design process.

Common Use Cases of CAD Automation:

* Batch drawing generation
* Parametric modeling
* Auto dimensioning or annotation
* Automated BOM (Bill of Materials) creation
* Drawing conversions (e.g., DWG to PDF)
* Standard part insertion

---

Sample Program: AutoCAD Automation Using AutoLISP

AutoLISP is a dialect of Lisp used for writing programs to automate tasks in AutoCAD.

### Example: AutoLISP Program to Draw a Rectangle

lisp

(defun c:drawRect ( / pt1 length width pt2 pt3 pt4)

 (setq pt1 (getpoint "\nEnter starting point: "))

 (setq length (getreal "\nEnter length: "))

 (setq width (getreal "\nEnter width: "))

 (setq pt2 (list (+ (car pt1) length) (cadr pt1)))

 (setq pt3 (list (+ (car pt1) length) (+ (cadr pt1) width)))

 (setq pt4 (list (car pt1) (+ (cadr pt1) width)))

 (command "LINE" pt1 pt2 pt3 pt4 pt1 "")

 (princ "\nRectangle drawn.")

)

### How to Run:

1. Open AutoCAD.
2. Load the .lsp file via APPLOAD.
3. Type drawRect in the command line.

---

Sample: SolidWorks CAD Automation Using VBA

SolidWorks can be automated using VBA (Visual Basic for Applications).

### Example: Create a New Part and Draw a Circle on a Sketch

vb

Sub CreatePartWithCircle()

 Dim swApp As Object

 Dim Part As Object

 Dim SketchManager As Object



 Set swApp = Application.SldWorks

 Set Part = swApp.NewPart

 Set SketchManager = Part.SketchManager



 SketchManager.InsertSketch True

 SketchManager.CreateCircleByRadius 0, 0, 0, 0.05

 SketchManager.InsertSketch True



 Part.ViewZoomtofit2

End Sub