First off, I would use SetVariable instead of SendCommand to set the variables. I made these changes in notepad for a find and replace so it might need some more cleanup but give this a shotPrivate Sub optarrowsixteenth_Click()
Dim TextStyle0 As AcadTextStyle
Dim newDimStyle As AcadDimStyle
Dim currDimStyle As AcadDimStyle
Set TextStyle0 = ThisDrawing.TextStyles.Add("DIMTXT")
TextStyle0.fontFile = "simplex.shx"
TextStyle0.Height = 0
ThisDrawing.SetVariable "TEXTSTYLE", "DIMTXT"
ThisDrawing.SetVariable "dimcen", 3 / 32
Dim varData As Variant
Dim DataType As Integer
sysVarName = "DIMSCALE"
varData = ThisDrawing.GetVariable(sysVarName)
Set newDimStyle = ThisDrawing.DimStyles.Add("My_Arch")
ThisDrawing.ActiveDimStyle = newDimStyle
ThisDrawing.SetVariable "DIMADEC", 2
ThisDrawing.SetVariable "DIMALT", "Off"
ThisDrawing.SetVariable "DIMALTD", 2
ThisDrawing.SetVariable "DIMALTF", 25.4
ThisDrawing.SetVariable "DIMALTRND", 0
ThisDrawing.SetVariable "DIMALTTD", 2
ThisDrawing.SetVariable "DIMALTTZ", 0
ThisDrawing.SetVariable "DIMALTU", 2
ThisDrawing.SetVariable "DIMALTZ", 0
ThisDrawing.SetVariable "DIMAPOST", ""
ThisDrawing.SetVariable "DIMASSOC", 1
ThisDrawing.SetVariable "DIMASZ", 1 / 8
ThisDrawing.SetVariable "DIMATFIT", 0
ThisDrawing.SetVariable "DIMAUNIT", 0
ThisDrawing.SetVariable "DIMAZIN", 2
ThisDrawing.SetVariable "DIMBLK", "_ArchTick"
ThisDrawing.SetVariable "DIMBLK1", "_ArchTick"
ThisDrawing.SetVariable "DIMBLK2", "_ArchTick"
ThisDrawing.SetVariable "DIMCEN", 0
ThisDrawing.SetVariable "DIMCLRD", 0
ThisDrawing.SetVariable "DIMCLRE", 0
ThisDrawing.SetVariable "DIMCLRT", 256
ThisDrawing.SetVariable "DIMDEC", 3
ThisDrawing.SetVariable "DIMDLE", 1 / 16
ThisDrawing.SetVariable "DIMDLI", 1 / 16
ThisDrawing.SetVariable "DIMDSEP", "."
ThisDrawing.SetVariable "DIMEXE", 1 / 16
ThisDrawing.SetVariable "DIMEXO", 1 / 16
ThisDrawing.SetVariable "DIMFIT", 5
ThisDrawing.SetVariable "DIMFRAC", 2
ThisDrawing.SetVariable "DIMGAP", 1 / 64
ThisDrawing.SetVariable "DIMJUST", "0"
ThisDrawing.SetVariable "DIMLDRBLK", ""
ThisDrawing.SetVariable "DIMLFAC", 1
ThisDrawing.SetVariable "DIMLIM", "OFF"
ThisDrawing.SetVariable "DIMLUNIT", 4
ThisDrawing.SetVariable "DIMLWD", -1
ThisDrawing.SetVariable "DIMLWE", -1
ThisDrawing.SetVariable "DIMPOST", ""
ThisDrawing.SetVariable "DIMRND", "1/16"
ThisDrawing.SetVariable "DIMSAH", "On"
ThisDrawing.SetVariable "_dimscale", "192"
ThisDrawing.SetVariable "DIMSD1", "OFF"
ThisDrawing.SetVariable "DIMSD2", "OFF"
ThisDrawing.SetVariable "DIMSE1", "OFF"
ThisDrawing.SetVariable "DIMSE2", "OFF"
ThisDrawing.SetVariable "DIMSHO", "ON"
ThisDrawing.SetVariable "DIMSOXD", "OFF"
ThisDrawing.SetVariable "DIMTAD", 1
ThisDrawing.SetVariable "DIMTDEC", 3
ThisDrawing.SetVariable "DIMTFAC", 1
ThisDrawing.SetVariable "DIMTIH", "OFF"
ThisDrawing.SetVariable "DIMTIX", "ON"
ThisDrawing.SetVariable "DIMTM", 0
ThisDrawing.SetVariable "DIMTMOVE", 1
ThisDrawing.SetVariable "DIMTOFL", "ON"
ThisDrawing.SetVariable "DIMTOH", "OFF"
ThisDrawing.SetVariable "DIMTOL", "OFF"
ThisDrawing.SetVariable "DIMTOLJ", 1
ThisDrawing.SetVariable "DIMTP", 0
ThisDrawing.SetVariable "DIMTSZ", 0.09375
ThisDrawing.SetVariable "DIMTVP", 0
ThisDrawing.SetVariable "DIMTXSTY", "DIMTXT"
ThisDrawing.SetVariable "DIMTXT", 0.09375
ThisDrawing.SetVariable "DIMTZIN", 0
ThisDrawing.SetVariable "DIMUNIT", 6
ThisDrawing.SetVariable "DIMUPT", "OFF"
ThisDrawing.SetVariable "DIMZIN", 3
ThisDrawing.SetVariable "TEXTSIZE", 18
ThisDrawing.SetVariable "DIMBLK", "ArchTick"
newDimStyle.CopyFrom ThisDrawing
End Sub
Bryco beat and topped me but Imma post anyway