Scribd
Upload
12 views1 page

Code

This document is a LISP routine for AutoCAD that sets the drawing units to feet and creates a specific geometric layout. It includes commands to draw a closed polyline, rectangles, circles, and an arc with specified coordinates. The routine concludes by printing a message indicating the drawing is complete.

Uploaded by

spanganiban
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
12 views1 page

Code

This document is a LISP routine for AutoCAD that sets the drawing units to feet and creates a specific geometric layout. It includes commands to draw a closed polyline, rectangles, circles, and an arc with specified coordinates. The routine concludes by printing a message indicating the drawing is complete.

Uploaded by

spanganiban
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

(defun c:ACT04C ()

(command "UNITS" 2) ; Set units to feet

;; Outer Polyline
(command "PLINE"
'(0 0)
'(8.25 0)
'(8.25 2.9)
'(0 2.9)
"C") ; Close polyline

;; Rectangles (example dimensions and positions, adjust as needed)


(command "LINE" '(0.75 0.75) '(2 0.75))
(command "LINE" '(2 0.75) '(2 1.25))
(command "LINE" '(2 1.25) '(0.75 1.25))
(command "LINE" '(0.75 1.25) '(0.75 0.75))

;; Circles
(command "CIRCLE" '(2 2) 1.25)
(command "CIRCLE" '(6.25 1.25) 1.0)

;; Arcs
(command "ARC" '(4 1.25) '(4.6 1.85) '(5.2 1.25)) ; Sample arc, adjust
coordinates as needed

(princ "\nDrawing complete. File: NAME_ACT04C")


)

You might also like