Lisp Routine To Change Drawing Setup Dialog Box Values?

[Elektrik]

I have tried some routines to chance drawing units from inches to milimeters. It seem the unit is changed in my drawing, but it remains as inches in Drawing Setup dialog box. Thanks in advance.

[Emmanuel Delay]

(setvar "INSUNITS" 4)

 

 

[mhupp]

This is what loads every time I open a drawing.

 

(setvar 'cmdecho 0)
(setvar 'INSUNITS 1)        	; Sets the Drawing units to inches (4 for mm)
(setvar 'THICKNESS 0) 	    	; Sets THICKNESS TO 0
(setvar 'CECOLOR "BYLAYER") 	; Sets color property to "BYLAYER."
(setvar 'CELTYPE "BYLAYER") 	; Sets linetype property to "BYLAYER."
(setvar 'CELWEIGHT -1)      	; Sets the lineweight to "BYLAYER."
(setvar 'CELTSCALE 1)       	; Sets the LTScale of new objects to 1.
(setvar 'plinetype 2)       	; convents all 2D polylines to optimized polylines  
(setvar 'auprec 4) 	        ; angular unit percision 0.0000
(setvar 'luprec 4) 	        ; linear unit percision 0.0000
(setvar 'selectionmodes 0)  	; Set Selection mode to 0
(setvar 'lunits 2)   	    	; Set Linear units to Decimal
(setvar 'perspective 0)	    	; Turn off Perspective view in current viewport
(setvar 'saveformat 8)		; Set save to 2010 DXF
(setvar 'nomutt 1)
(vl-cmdf "_.Style" "Standard" "Consolas" "" "" "" "" "")
(setvar 'nomutt 0)
(setvar 'cmdecho 1)