Setting Property (for a clueless lisper)

I want to set the arrowhead styles for dimensioning in LISP. Apparently
this is only available through VBA which I'm not very familiar with.

I want to set the style then save it as a default style (not modify an
existing dimension like the example in help).

I don't have any clue about proper syntax to use but I'm guessing it's
got to be pretty darn simple for this basic task.


Below is the basic info from the help file:
------------------------------------------
Arrowhead1Type Property
------------------------------------------
Specifies the type of arrowhead for the first end of the dimension line.

Signature

object.Arrowhead1Type

object Dim3PointAngular, DimAligned, DimAngular, DimDiametric, DimRotated
The object or objects this property applies to.

Arrowhead1Type acDimArrowheadType enum; read-write

acArrowDefault
acArrowDot
acArrowDotSmall
acArrowDotBlank
....etc...
acArrowUserDefined Read-only
System variables

This property overrides the value of the DIMBLK1 system variable for the
given dimension.

Remarks

The initial value for this property is acArrowDefault
When you use the Arrowhead1Block property to specify a block to use as a
custom arrowhead, this property will be set to acArrowUserDefined.

 

Here it is in html wich might format better.
------------------------------------------
Arrowhead1Type Property
------------------------------------------
Specifies the type of arrowhead for the first end of the dimension line.

Signature

object.Arrowhead1Type

object Dim3PointAngular, DimAligned, DimAngular, DimDiametric,
DimRotated
The object or objects this property applies to.

Arrowhead1Type acDimArrowheadType enum; read-write

acArrowDefault acArrowDot acArrowDotSmall acArrowDotBlank
....etc... acArrowUserDefined Read-only
System variables

This property overrides the value of the DIMBLK1 system variable for the
given dimension.

Remarks

The initial value for this property is acArrowDefault
When you use the Arrowhead1Block property to specify a block to use as a
custom arrowhead, this property will be set to acArrowUserDefined.

 

Sub CopyToCurrentDimStyle()
ThisDrawing.SetVariable "DIMLDRBLK", "."
ThisDrawing.ActiveDimStyle.CopyFrom ThisDrawing
End Sub