(DEFUN C:HENGRLDRS ()
(IF
;;;  (AND (NOT (TBLSEARCH "BLOCK" "DIMARO"))
   (EQ (GETVAR "DWGTITLED") 1)
;;;  ) ;_ end of AND
   (PROGN
     (ENTMAKE
       '((0 . "BLOCK") (2 . "DIMARO") (70 . 64) (10 0.0 0.0 0.0))
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 0.0 0.0 0.0)
                (11 -0.947368 0.157895 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.118421 0.0)
                (11 -0.236842 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.473684 0.0 0.0)
                (11 -0.947368 0.0789474 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.0394737 0.0)
                (11 -0.710526 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.710526 0.0 0.0)
                (11 -0.947368 -0.0394737 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.0789474 0.0)
                (11 -0.473684 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.236842 0.0 0.0)
                (11 -0.947368 -0.118421 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.157895 0.0)
                (11 0.0 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.118421 0.0)
                (11 -0.947368 -0.0789474 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.0394737 0.0)
                (11 -0.947368 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.0789474 0.0)
                (11 -0.947368 0.0394737 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.118421 0.0)
                (11 -0.947368 0.157895 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -1.0 0.0 0.0)
                (11 -0.947368 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "ENDBLK")))
   ) ;_ end of progn
) ;_ end of if
(if
  (and
    (setq styldf (tblsearch "style" "standard"))
    (EQ (STRCASE (CDR(ASSOC 3 styldf))) "TXT.SHX")
  )
  (COMMAND "-STYLE" "STANDARD" "ROMANS.SHX" 0 1 0 "N" "N" "N")
)
  (SETVAR "DIMADEC"   2)		;  Angular decimal places
  (SETVAR "DIMALT"    0)		;  Alternate units selected
  (SETVAR "DIMALTD"   2)		;  Alternate unit decimal places
  (SETVAR "DIMALTF"   25.4)		;  Alternate unit scale factor
  (SETVAR "DIMALTRND" 0.00)		;  Alternate units rounding value
  (SETVAR "DIMALTTD"  2)		;  Alternate tolerance decimal places
  (SETVAR "DIMALTTZ"  3)		;  Alternate tolerance zero suppression
  (SETVAR "DIMALTU"   2)		;  Alternate units
  (SETVAR "DIMALTZ"   3)		;  Alternate unit zero suppression
  (SETVAR "DIMAPOST"  "")		;  Prefix and suffix for alternate text
  (SETVAR "DIMASZ"    0.0625)		;  Arrow size
  (IF (<=(ATOF(GETVAR"ACADVER"))15.5)
    (SETVAR "DIMASO" 1)
    (SETVAR "DIMASSOC" 2)		;  Associative dimensions (newer versions use DIMASSOC)
  )
  (SETVAR "DIMATFIT"  3)		;  Arrow and text fit
  (SETVAR "DIMAUNIT"  0)		;  Angular unit format
  (SETVAR "DIMAZIN"   2)		;  Angular zero supression
  (SETVAR "DIMBLK" "DIMARO")		;  Arrow block name
;;;  (IF (EQ (GETVAR "DIMBLK") "")		;  Arrow block name
;;;    NIL
;;;    (COMMAND "DIMBLK" ".")
;;;  )
  (SETVAR "DIMBLK1" "DIMARO")		;  First arrow block name
;;;  (IF (EQ (GETVAR "DIMBLK1") "")	;  First arrow block name
;;;    NIL
;;;    (COMMAND "DIMBLK1" ".")
;;;  )
  (SETVAR "DIMBLK2" "DIMARO")		;  Second arrow block name
;;;  (IF (EQ (GETVAR "DIMBLK2") "")	;  Second arrow block name
;;;    NIL
;;;    (COMMAND "DIMBLK2" ".")
;;;  )
  (SETVAR "DIMCEN"    0.045)		;  Center mark size
  (SETVAR "DIMCLRD"   256)		;  (BYLAYER)  Dimension line and leader color
  (SETVAR "DIMCLRE"   256)		;  (BYLAYER)  Extension line color
  (SETVAR "DIMCLRT"   6)		;  (magenta) Dimension text color
  (SETVAR "DIMDEC"    2)		;  Decimal places
  (SETVAR "DIMDEC" 2)			;  Decimal places
  (SETVAR "DIMDLE" 0.00)		;  Dimension line extension
  (SETVAR "DIMDLI" 0.1875)		;  Dimension line spacing
  (SETVAR "DIMDSEP" ".")		;  Decimal separator
  (SETVAR "DIMEXE" 0.03125)		;  Extension above dimension line
  (SETVAR "DIMEXO" 0.03125)		;  Extension line origin offset
  (SETVAR "DIMFRAC" 0)			;  Fraction format
  (SETVAR "DIMGAP" 0.045)		;  Gap from dimension line to text
  (SETVAR "DIMJUST" 0)			;  Justification of text on dimension line
  (SETVAR "DIMLDRBLK" "DIMARO")		;  Leader block name
;;;  (IF (EQ (GETVAR "DIMLDRBLK") "")	;  Leader block name
;;;    NIL
;;;    (COMMAND "DIMLDRBLK" ".")
;;;  )
  (SETVAR "DIMLFAC" -1.00)		;  Linear unit scale factor
  (SETVAR "DIMLIM" 0)			;  Generate dimension limits
  (SETVAR "DIMLUNIT" 2)			;  Linear unit format (4=Architectural)
  (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.00)		;  Rounding value
  (SETVAR "DIMSAH"   0)			;  Separate arrow blocks
  (SETVAR "DIMSD1"   0)			;  Suppress the first dimension line
  (SETVAR "DIMSD2"   0)			;  Suppress the second dimension line
  (SETVAR "DIMSE1"   0)			;  Suppress the first extension line
  (SETVAR "DIMSE2"   0)			;  Suppress the second extension line
  (SETVAR "DIMSOXD"  0)			;  Suppress outside dimension lines
  (SETVAR "DIMTAD"   0)			;  Place text above the dimension line
  (SETVAR "DIMTDEC"  2)			;  Tolerance decimal places
  (SETVAR "DIMTFAC"  1.00)		;  Tolerance text height scaling factor
  (SETVAR "DIMTIH"   1)			;  Text inside extensions is horizontal
  (SETVAR "DIMTIX"   0)			;  Place text inside extensions
  (SETVAR "DIMTM"    0.00)		;  Minus tolerance
  (SETVAR "DIMTMOVE" 0)			;  Text movement
  (SETVAR "DIMTOFL"  0)			;  Force line inside extension lines
  (SETVAR "DIMTOH"   1)			;  Text outside horizontal
  (SETVAR "DIMTOL"   0)			;  Tolerance dimensioning
  (SETVAR "DIMTOLJ"  1)			;  Tolerance vertical justification
  (SETVAR "DIMTP"    0.00)		;  Plus tolerance
  (SETVAR "DIMTSZ"   0.00)		;  Tick size
  (SETVAR "DIMTVP"   0.00)		;  Text vertical position
  (SETVAR "DIMTXSTY" "STANDARD")	;  Text style
  (SETVAR "DIMTXT"   0.0625)		;  Text height
  (SETVAR "DIMTZIN"  3)			;  Tolerance zero suppression
  (SETVAR "DIMUPT"   0)			;  User positioned text
  (SETVAR "DIMZIN"   8)			;  Zero suppression
  (IF (AND (TBLSEARCH "DIMSTYLE" "HENGRLEADER") (<(GETVAR "EXPERT")5))
    (COMMAND "-DIMSTYLE" "SAVE" "HENGRLEADER" "Y")
    (COMMAND "-DIMSTYLE" "SAVE" "HENGRLEADER")
  ) ;_ end of IF
) ;_ end of DEFUN


;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;