Dim lisp for standard?

[Blindhole]

Does anyone have a lisp that creates the Standard Dim. Style?

[ccowgill]

Does anyone have a lisp that creates the Standard Dim. Style?
I have a lisp that will create a dimension style, you can modify it to match the standard style.

(defun c:dstyle
(/ dstylename cdimst)
(SETVAR "CMDECHO" 0)
(setq cdimst (getvar "dimstyle"))
(command "-style" "DIM" "Simplex.shx" 0 1 0 "" "" "")
(setvar "dIMADEC" 2) ;Angular decimal places
(command "dIMALT" "Off") ;Alternate units selected
(setvar "dIMALTD" 2) ;Alternate unit decimal places
(setvar "dIMALTF" 25.4000) ;Alternate unit scale factor
(setvar "dIMALTRND" 0.0000) ;Alternate units rounding value
(setvar "dIMALTTD" 2) ;Alternate tolerance decimal places
(setvar "dIMALTTZ" 0) ;Alternate tolerance zero suppression
(setvar "dIMALTU" 2) ;Alternate units
(setvar "dIMALTZ" 0) ;Alternate unit zero suppression
(setvar "dIMAPOST" "") ;Prefix and suffix for alternate text
(setvar "dIMASZ" 0.1500) ;Arrow size
(setvar "dIMATFIT" 3) ;Arrow and text fit
(setvar "dIMAUNIT" 1) ;Angular unit format
(setvar "dIMAZIN" 3) ;Angular zero supression
(setvar "dIMBLK" "Oblique") ;Arrow block name
(command "dIMBLK1" ".") ;First arrow block name
(command "dIMBLK2" ".") ;Second arrow block name
(setvar "dIMCEN" 0.0900) ;Center mark size
(setvar "dIMCLRD" 5) ;Dimension line and leader color
(setvar "dIMCLRE" 5) ;Extension line color
(setvar "dIMCLRT" 256) ;Dimension text color
(setvar "dIMDEC" 3) ;Decimal places
(setvar "dIMDLE" 0.0750) ;Dimension line extension
(setvar "dIMDLI" 0.3800) ;Dimension line spacing
(setvar "dIMDSEP" ".") ;Decimal separator
(setvar "dIMEXE" 0.0750) ;Extension above dimension line
(setvar "dIMEXO" 0.0625) ;Extension line origin offset
(setvar "dIMFRAC" 2) ;Fraction format
(setvar "dIMGAP" 0.0400) ;Gap from dimension line to text
(setvar "dIMJUST" 0) ;Justification of text on dimension line
(setvar "dIMLDRBLK" ".") ;Leader block name
(setvar "dIMLFAC" 1.0000) ;Linear unit scale factor
(command "dIMLIM" "Off") ;Generate dimension limits
(setvar "dIMLUNIT" 2) ;Linear unit format
(setvar "dIMLWD" -2) ;Dimension line and leader lineweight
(setvar "dIMLWE" -2) ;Extension line lineweight
(setvar "dIMPOST" "'") ;Prefix and suffix for dimension text
(setvar "dIMRND" 0.0000) ;Rounding value
(command "dIMSAH" "Off") ;Separate arrow blocks
(setvar "dIMSCALE" 1.0000) ;Overall scale factor
(command "dIMSD1" "Off") ;Suppress the first dimension line
(command "dIMSD2" "Off") ;Suppress the second dimension line
(command "dIMSE1" "Off") ;Suppress the first extension line
(command "dIMSE2" "Off") ;Suppress the second extension line
(command "dIMSOXD" "Off") ;Suppress outside dimension lines
(setvar "dIMTAD" 1) ;Place text above the dimension line
(setvar "dIMTDEC" 3) ;Tolerance decimal places
(setvar "dIMTFAC" 1.0000) ;Tolerance text height scaling factor
(command "dIMTIH" "Off") ;Text inside extensions is horizontal
(command "dIMTIX" "On") ;Place text inside extensions
(setvar "dIMTM" 0.0000) ;Minus tolerance
(setvar "dIMTMOVE" 2) ;Text movement
(command "dIMTOFL" "On") ;Force line inside extension lines
(command "dIMTOH" "Off") ;Text outside horizontal
(command "dIMTOL" "Off") ;Tolerance dimensioning
(setvar "dIMTOLJ" 1) ;Tolerance vertical justification
(setvar "dIMTP" 0.0000) ;Plus tolerance
(setvar "dIMTSZ" 0.0000) ;Tick size
(setvar "dIMTVP" 0.0000) ;Text vertical position
(command "dIMTXSTY" "DIM") ;Text style
(setvar "dIMTXT" 0.0800) ;Text height
(setvar "dIMTZIN" 0) ;Tolerance zero suppression
(command "dIMUPT" "Off") ;User positioned text
(setvar "dIMZIN" 12) ;Zero suppression
(setq dstylename "Standard")
(command "dimstyle"
"save"
dstylename
) ;_ end of command
(command "dimstyle"
"restore"
cdimst
) ;_ end of command
(SETVAR "CMDECHO" 0)
(PRINC)
) ;_ end of defun

[Blindhole]

Thank you, didnt want to re-invent the wheel.

Brian