creating dimstyles

Anonymous — Wed, 06 Jun 2001 06:04:16 GMT

Does anyone know how to add a new dimstyle to a drawing and then alter the system variables and then save it? We have 4 dimstyles we need to have in the drawings and want to have an automation that makes sure all 4 are there if someone purges. Kind of like a no-brainer of import dimstyles.
Thanks.

Re: creating dimstyles

Anonymous — Wed, 06 Jun 2001 06:37:49 GMT

Using VBA methods, I have only been able to get the
style changes to apply as an override. Using a SendCommand allows the
overrides to be saved back to the parent style.

Application.ActiveDocument.ActiveDimStyle =
Application.ActiveDocument.DimStyles.Item(StyleName)

"Your modifications here"

Application.ActiveDocument.SendCommand "-dimstyle"
& vbCr & "SAVE" & vbCr & "StyleName" & vbCr & "YES"
& vbCr

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"brunbrun" <
href="mailto:cbrunner@wdae.com">cbrunner@wdae.com> wrote in message
href="news:f056457.-1@WebX.maYIadrTaRb">news:f056457.-1@WebX.maYIadrTaRb...
Does
anyone know how to add a new dimstyle to a drawing and then alter the system
variables and then save it? We have 4 dimstyles we need to have in the
drawings and want to have an automation that makes sure all 4 are there if
someone purges. Kind of like a no-brainer of import dimstyles.

Thanks.

Re: creating dimstyles

Anonymous — Wed, 06 Jun 2001 09:54:54 GMT

I created a dimstyle module for my program -- pretty much copied the way i
wrote it in LISP, but it works quite well. Here it is exactly (i know there
is some "repetitive setting" going on, but the end result creates me the
dimstyle i want). Also, our company draws in metric and dimensions in
inches or millimeters. Watch for word-wrap.

'-------------------------------------- Begin Dimstyle
module --------------------------------------

'Dimension style names
Public Const DIMSTYLE_FTFRAC As String = "Z-TMI-FEET-FRAC"
Public Const DIMSTYLE_INFRAC As String = "Z-TMI-INCH-FRAC"
Public Const DIMSTYLE_FTDEC As String = "Z-TMI-FEET-DEC"
Public Const DIMSTYLE_INDEC As String = "Z-TMI-INCH-DEC"
Public Const DIMSTYLE_MM0 As String = "Z-TMI-MM-0DEC"
Public Const DIMSTYLE_MM1 As String = "Z-TMI-MM-1DEC"
Public Const DIMSTYLE_MM2 As String = "Z-TMI-MM-2DEC"
Public Const DIMSTYLE_ANG As String = "Z-TMI-ANGLE"
Public Const DIMSTYLE_UNIT As String = "Z-TMI-UNITNO"

Public Sub SetDimstyle(ByVal DimstyleName As String)
On Error Resume Next

Dim Multiplier As Double
Dim objDimstyle As AcadDimStyle

Multiplier = 1
Set objDimstyle = ThisDrawing.DimStyles(DimstyleName)

'If the dimstyle doesn't exist, then make it
If objDimstyle Is Nothing Then
With ThisDrawing

'Dimstyle name
.SetVariable "DIMTXSTY", DimTextStyle.Name

'String variables
'.SetVariable "DIMPOST", "." * * * * * VARIES, SEE BELOW
.SetVariable "DIMAPOST", "."
.SetVariable "DIMBLK", "."
.SetVariable "DIMBLK1", "."
.SetVariable "DIMBLK2", "."

'Dimscale
.SetVariable "DIMSCALE", 1 '<-- override as needed outside of
module

'Real variables
.SetVariable "DIMASZ", Multiplier * 3
.SetVariable "DIMEXO", Multiplier * 0.8
.SetVariable "DIMDLI", Multiplier * 6.25
.SetVariable "DIMEXE", Multiplier * 1#
.SetVariable "DIMRND", Multiplier * 0#
.SetVariable "DIMDLE", Multiplier * 0#
.SetVariable "DIMTP", Multiplier * 0#
.SetVariable "DIMTM", Multiplier * 0#
.SetVariable "DIMTXT", Multiplier * 1.9
.SetVariable "DIMCEN", Multiplier * 0#
.SetVariable "DIMTSZ", Multiplier * 0.8
.SetVariable "DIMALTF", Multiplier * 1#
'.SetVariable "DIMLFAC" ,Multiplier * 1.0 * * * * * VARIES,
SEE BELOW
.SetVariable "DIMTVP", Multiplier * 1#
.SetVariable "DIMGAP", Multiplier * 0.5
.SetVariable "DIMTFAC", Multiplier * 0.7

'Integer variables
.SetVariable "DIMTOL", 0
.SetVariable "DIMLIM", 0
.SetVariable "DIMTIH", 0
.SetVariable "DIMTOH", 0
.SetVariable "DIMSE1", 0
.SetVariable "DIMSE2", 0
.SetVariable "DIMTAD", 1
.SetVariable "DIMZIN", 11
.SetVariable "DIMALT", 0
.SetVariable "DIMALTD", 2
.SetVariable "DIMTOFL", 1
.SetVariable "DIMSAH", 1
.SetVariable "DIMTIX", 0 ' <- dimension text forced
inside 0=off, 1=on
.SetVariable "DIMSOXD", 0
.SetVariable "DIMCLRD", 0 ' <- dimension line color
.SetVariable "DIMCLRE", 0 ' <- dimension extension line
color
.SetVariable "DIMCLRT", 0 ' <- dimension text color
'.SetVariable "DIMUNIT" , 2 * * * * * VARIES, SEE BELOW
'.SetVariable "DIMDEC" , 0 * * * * * VARIES, SEE BELOW
.SetVariable "DIMTDEC", 2
.SetVariable "DIMALTU", 2
.SetVariable "DIMALTD", 2
.SetVariable "DIMALTTD", 2
.SetVariable "DIMAUNIT", 0
.SetVariable "DIMJUST", 0
.SetVariable "DIMSD1", 0
.SetVariable "DIMSD2", 0
.SetVariable "DIMTOLJ", 1
.SetVariable "DIMTZIN", 0
.SetVariable "DIMALTZ", 11
.SetVariable "DIMALTTZ", 0
.SetVariable "DIMFIT", 3
.SetVariable "DIMUPT", 0
.SetVariable "DIMFRAC", 0

'Dimstyle specific
Select Case DimstyleName
Case DIMSTYLE_FTFRAC
.SetVariable "DIMLFAC", 1 / 25.4
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 4
.SetVariable "DIMDEC", 3
.SetVariable "DIMALTD", 0
.SetVariable "DIMALTF", 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_INFRAC
.SetVariable "DIMLFAC", 1 / 25.4
.SetVariable "DIMPOST", """"
.SetVariable "DIMUNIT", 5
.SetVariable "DIMDEC", 3
.SetVariable "DIMALTD", 0
.SetVariable "DIMALTF", 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_FTDEC
.SetVariable "DIMLFAC", 1 / 25.4
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 3
.SetVariable "DIMDEC", 2
.SetVariable "DIMALTD", 0
.SetVariable "DIMALTF", 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_INDEC
.SetVariable "DIMLFAC", 1 / 25.4
.SetVariable "DIMPOST", """"
.SetVariable "DIMUNIT", 2
.SetVariable "DIMDEC", 2
.SetVariable "DIMALTD", 0
.SetVariable "DIMALTF", 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_MM0
.SetVariable "DIMLFAC", 1
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 2
.SetVariable "DIMDEC", 0
.SetVariable "DIMALTD", 2
.SetVariable "DIMALTF", 1 / 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_MM1
.SetVariable "DIMLFAC", 1
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 2
.SetVariable "DIMDEC", 1
.SetVariable "DIMALTD", 2
.SetVariable "DIMALTF", 1 / 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_MM2
.SetVariable "DIMLFAC", 1
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 2
.SetVariable "DIMDEC", 2
.SetVariable "DIMALTD", 2
.SetVariable "DIMALTF", 1 / 25.4
.SetVariable "DIMALTU", 2
.SetVariable "DIMAPOST", ""

Case DIMSTYLE_ANG
.SetVariable "DIMLFAC", 1
.SetVariable "DIMPOST", ""
.SetVariable "DIMUNIT", 2
.SetVariable "DIMDEC", 1

Case DIMSTYLE_UNIT
.SetVariable "DIMBLK1", "OPEN90"
.SetVariable "DIMBLK2", "OPEN90"
.SetVariable "DIMTSZ", 0
.SetVariable "DIMASZ", 2.5
.SetVariable "DIMPOST", ""
.SetVariable "DIMTIX", 1
.SetVariable "DIMTXT", 2
.SetVariable "DIMTXSTY", UnitTextStyle.Name

End Select
Set objDimstyle = ThisDrawing.DimStyles.Add(DimstyleName)

objDimstyle.CopyFrom ThisDrawing
End With
End If
ThisDrawing.ActiveDimStyle = objDimstyle
End Sub

topic creating dimstyles in VBA Forum

creating dimstyles

Re: creating dimstyles

Re: creating dimstyles