Scribd
Upload
39 views1 page

LISP Code

The document contains code that creates several geometric shapes in a CAD program. It creates lines, circles, arcs, and polylines by calling the entmake function and passing the appropriate parameters for each shape.

Uploaded by

Willard Musengeyi
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
39 views1 page

LISP Code

The document contains code that creates several geometric shapes in a CAD program. It creates lines, circles, arcs, and polylines by calling the entmake function and passing the appropriate parameters for each shape.

Uploaded by

Willard Musengeyi
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
You are on page 1/ 1

(defun c:eMake ()

(entmake '((0 . "LINE") (8 . "0") (10 120.059 117.517 0) (11 80.05900000000002


117.517 0)))
(entmake '((0 . "LINE") (8 . "0") (10 -9.940999999999988 117.5169999999999 0) (11
20.05900000000002 117.5169999999999 0)))
(entmake '((0 . "CIRCLE") (8 . "0") (10 31.42099999999999 137.853 0) (40 . 8)))
(entmake '((0 . "LINE") (8 . "0") (10 20.05900000000002 124.0960044700427 0) (11
80.05900000000002 124.0960044700427 0)))
(entmake '((0 . "ARC") (8 . "0") (10 31.11223482793258 211.1707547757516 0) (40 .
3) (50 . 0.784607371891959) (51 . 3.926200025481751)))
(entmake '((0 . "LINE") (8 . "0") (10 31.11186473953439 206.9251257350421 0) (11
28.98923762572476 209.0511126174103 0)))
(entmake '((0 . "LINE") (8 . "0") (10 35.35785914395003 211.1644100517247 0) (11
33.2352320301404 213.2903969340929 0)))
(entmake '((0 . "ARC") (8 . "0") (10 50.05900000000001 192.1939999999999 0) (40 .
24) (50 . 2.480731529854923) (51 . 2.230075867518793)))
(entmake '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0) (38 . 0) (39 . 0) (10 -19.80575652011484
209.617) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10 -19.80575652011484 214.8154) (40 .
0) (41 . 0) (42 . -1) (91 . 0) (10 -11.16575652011482 214.8154) (40 . 0) (41 . 0)
(42 . 0) (91 . 0) (10 -11.16575652011482 209.617) (40 . 0) (41 . 0) (42 . -1) (91 .
0)))
(entmake '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0) (38 . 0) (39 . 0) (10 120.7696426136327
209.8679972531816) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10 120.7696426136327
215.0663972531816) (40 . 0) (41 . 0) (42 . -1) (91 . 0) (10 129.4096426136327
215.0663972531816) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10 129.4096426136327
209.8679972531816) (40 . 0) (41 . 0) (42 . -1) (91 . 0)))
(entmake '((0 . "LINE") (8 . "0") (10 100.059 187.517 0) (11 130.1636863561493
198.4123136438507 0)))
(entmake '((0 . "ARC") (8 . "0") (10 125.059 212.517 0) (40 . 15) (50 .
5.05963811319797) (51 . 1.570796326794897)))
(entmake '((0 . "LINE") (8 . "0") (10 10.05900000000003 187.517 0) (11
-20.04568635614926 198.4123136438507 0)))
(entmake '((0 . "ARC") (8 . "0") (10 -14.94099999999999 212.517 0) (40 . 15) (50 .
1.570796326794897) (51 . 4.365139847571413)))

You might also like