Drawing Units - Lisp

[mike.mccall]

Let me start off by saying that I know absolutely nothing about writing lisps or code.

I need a simple (LOL) lisp that will open the drawing units dialog box, set the type to engineering, set the precision to 0'-0.00000", set the angle type to decimal degrees, set the angle precision to 0.00, set insertion scale to inches and finally set the lighting units to American.

How difficult would this be to create?

AutoCAD 2016 & up

Thanks for any & all help

Mike

[BIG-AL]

about this hard

look into insunits & lightingunits

(defun civ_units ()
(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(SETQ LUNITSS (GETVAR "LUNITS"))
(SETQ LUPRECC (GETVAR "LUPREC"))
(SETQ AUNITSS (GETVAR "AUNITS"))
(SETQ AUPRECC (GETVAR "AUPREC"))

(SETVAR "LUNITS" 2)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)
(SETVAR "LUPREC" 0)
(SETVAR "AUNITS" 0)
(SETVAR "AUPREC" 0)
)

(defun old_civ_units ()
(SETVAR "LUNITS" lunitss)
(SETVAR "ANGBASE" angbasee)
(SETVAR "ANGDIR" angdirr)
(SETVAR "LUPREC" luprecc)
(SETVAR "AUNITS" aunitss)
(SETVAR "AUPREC" auprecc)
)

[madcadder]

Mike,

If you take Big Al's code and change it to

(defun c:civ_units (/)

then you can type it in at the command and set it when you want (or reset it)

about this hard

look into insunits & lightingunits

(defun civ_units ()
(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(SETQ LUNITSS (GETVAR "LUNITS"))
(SETQ LUPRECC (GETVAR "LUPREC"))
(SETQ AUNITSS (GETVAR "AUNITS"))
(SETQ AUPRECC (GETVAR "AUPREC"))

(SETVAR "LUNITS" 2)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)
(SETVAR "LUPREC" 0)
(SETVAR "AUNITS" 0)
(SETVAR "AUPREC" 0)
)

(defun old_civ_units ()
(SETVAR "LUNITS" lunitss)
(SETVAR "ANGBASE" angbasee)
(SETVAR "ANGDIR" angdirr)
(SETVAR "LUPREC" luprecc)
(SETVAR "AUNITS" aunitss)
(SETVAR "AUPREC" auprecc)
)

[mike.mccall]

Awesome! Thank you

[mike.mccall]

Not getting the results I was hoping for. See screenshot of what I am trying to achieve with the lisp.

[Tom Beauford]

Set INSUNITS to 1 for inches
Set LIGHTINGUNITS to 1 for American

[mike.mccall]

With a little bit of trial and error, I was able to get my lisp work.

(defun c:civ_units (/)
(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(SETQ LUNITSS (GETVAR "LUNITS"))
(SETQ LUPRECC (GETVAR "LUPREC"))
(SETQ AUNITSS (GETVAR "AUNITS"))
(SETQ AUPRECC (GETVAR "AUPREC"))
(SETQ LIGHTINGUNITS (GETVAR "LIGHTINGUNITS"))
(SETQ INSUNITS (GETVAR "INSUNITS"))

(SETVAR "LUNITS" 3)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)
(SETVAR "LUPREC" 5)
(SETVAR "AUNITS" 0)
(SETVAR "AUPREC" 2)
(SETVAR "LIGHTINGUNITS" 1)
(SETVAR "INSUNITS" 1)
)

(defun old_civ_units ()
(SETVAR "LUNITS" lunitss)
(SETVAR "ANGBASE" angbasee)
(SETVAR "ANGDIR" angdirr)
(SETVAR "LUPREC" luprecc)
(SETVAR "AUNITS" aunitss)
(SETVAR "AUPREC" auprecc)
(SETVAR "LIGHTINGUNITS" lightingunits)
(SETVAR "INSUNITS" insunits)
)

Thanks again for your guidance.