(DEFUN C:DSTYLE()
(SETVAR "CMDECHO" 0)

;(SETQ DWGDS (GETVAR "DIMSCALE"))
(setvar "dimtol" 1)
(DEFUN C:DUP() (SETVAR "DIMTOL" 1)(SETVAR "DIMCLRT" 0)
               (setvar "dimse1" 0)(setvar "dimse2" 0) )

(IF (TBLSEARCH "DIMSTYLE" "AA") 
    (PROGN (COMMAND "DIM" "RES" "AA" )(C:DUP) (COMMAND "SA" "AA" "y" "EXIT"))
    (PROGN
    (SETVAR "DIMTP" 0.0005)
    (SETVAR "DIMTM" 0.0005)
    (COMMAND "DIM" "SA" "AA" "EXIT")
    )  )

(IF (TBLSEARCH "DIMSTYLE" "BB") 
    (PROGN (COMMAND "DIM" "RES" "BB" )(C:DUP)(COMMAND "SA" "BB" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.001)
(SETVAR "DIMTM" 0.001)
(COMMAND "DIM" "SA" "BB" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "CC") 
    (PROGN (COMMAND "DIM" "RES" "CC" )(C:DUP)(COMMAND "SA" "CC" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.002)
(SETVAR "DIMTM" 0.002)
(COMMAND "DIM" "SA" "CC" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "DD") 
    (PROGN (COMMAND "DIM" "RES" "DD" )(C:DUP)(COMMAND "SA" "DD" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.003)
(SETVAR "DIMTM" 0.003)
(COMMAND "DIM" "SA" "DD" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "EE") 
    (PROGN (COMMAND "DIM" "RES" "EE" )(C:DUP)(COMMAND "SA" "EE" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.005)
(SETVAR "DIMTM" 0.005)
(COMMAND "DIM" "SA" "EE" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "FF") 
    (PROGN (COMMAND "DIM" "RES" "FF" )(C:DUP)(COMMAND "SA" "FF" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.031)
(SETVAR "DIMTM" 0.031)
(COMMAND "DIM" "SA" "FF" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "GG") 
    (PROGN (COMMAND "DIM" "RES" "GG" )(C:DUP)(COMMAND "SA" "GG" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.062)
(SETVAR "DIMTM" 0.062)
(COMMAND "DIM" "SA" "GG" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "AH") 
    (PROGN (COMMAND "DIM" "RES" "AH" )(C:DUP)(COMMAND "SA" "AH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.0005)
(SETVAR "DIMTM" 0.0000)
(COMMAND "DIM" "SA" "AH" "EXIT")
     ))

(IF (TBLSEARCH "DIMSTYLE" "HA") 
    (PROGN (COMMAND "DIM" "RES" "HA" )(C:DUP)(COMMAND "SA" "HA" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.0000)
(SETVAR "DIMTM" 0.0005)
(COMMAND "DIM" "SA" "HA" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "BH") 
    (PROGN (COMMAND "DIM" "RES" "BH" )(C:DUP)(COMMAND "SA" "BH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.001)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "BH" "EXIT")
     ))

(IF (TBLSEARCH "DIMSTYLE" "HB") 
    (PROGN (COMMAND "DIM" "RES" "HB" )(C:DUP)(COMMAND "SA" "HB" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.001)
(COMMAND "DIM" "SA" "HB" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "CH") 
    (PROGN (COMMAND "DIM" "RES" "CH" )(C:DUP)(COMMAND "SA" "CH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.002)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "CH" "EXIT")
     ))

(IF (TBLSEARCH "DIMSTYLE" "HC") 
    (PROGN (COMMAND "DIM" "RES" "HC" )(C:DUP)(COMMAND "SA" "HC" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.002)
(COMMAND "DIM" "SA" "HC" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "DH") 
    (PROGN (COMMAND "DIM" "RES" "DH" )(C:DUP)(COMMAND "SA" "DH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.003)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "DH" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "HD") 
    (PROGN (COMMAND "DIM" "RES" "HD" )(C:DUP)(COMMAND "SA" "HD" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.003)
(COMMAND "DIM" "SA" "HD" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "EH") 
    (PROGN (COMMAND "DIM" "RES" "EH" )(C:DUP)(COMMAND "SA" "EH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.005)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "EH" "EXIT")
     ))

(IF (TBLSEARCH "DIMSTYLE" "HE") 
    (PROGN (COMMAND "DIM" "RES" "HE" )(C:DUP)(COMMAND "SA" "HE" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.005)
(COMMAND "DIM" "SA" "HE" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "FH") 
    (PROGN (COMMAND "DIM" "RES" "FH" )(C:DUP)(COMMAND "SA" "FH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.031)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "FH" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "HF") 
    (PROGN (COMMAND "DIM" "RES" "HF" )(C:DUP)(COMMAND "SA" "HF" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.031)
(COMMAND "DIM" "SA" "HF" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "GH") 
    (PROGN (COMMAND "DIM" "RES" "GH" )(C:DUP)(COMMAND "SA" "GH" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.062)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "GH" "EXIT")
      ))

(IF (TBLSEARCH "DIMSTYLE" "HG") 
    (PROGN (COMMAND "DIM" "RES" "HG" )(C:DUP)(COMMAND "SA" "HG" "y" "EXIT"))
    (PROGN
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.062)
(COMMAND "DIM" "SA" "HG" "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "REF") 
    (PROGN (COMMAND "DIM" "RES" "REF" )(C:DUP)(SETVAR "DIMTOL" 0)(COMMAND "SA" "REF" "y" "EXIT"))
    (PROGN (SETVAR "DIMTOL" 0)
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.000)
(SETVAR "DIMPOST" "<> REF.")
(COMMAND "DIM" "SA" "REF" "DIMPOST" "." "EXIT")
    ))

(IF (TBLSEARCH "DIMSTYLE" "Hh") 
    (PROGN (COMMAND "DIM" "RES" "HH" )(C:DUP)(SETVAR "DIMTOL" 0)(COMMAND "SA" "HH" "y" "EXIT"))
    (PROGN (SETVAR "DIMTOL" 0)
(SETVAR "DIMTP" 0.000)
(SETVAR "DIMTM" 0.000)
(COMMAND "DIM" "SA" "HH" "EXIT")
    ))

(SETVAR "CMDECHO" 1)
); END STYLE