DIMSCALE

hi,

i know there are a lot of posted messages already on this, but i still haven't found a solution for my problem.

For Each dimST In ThisDrawing.DimStyles
If dimST.Name = "BBS_LABELS" Then
ThisDrawing.ActiveDimStyle = dimST
Next
ThisDrawing.SetVariable "DIMSCALE", sc

when i do this, it creates an override with the new sc factor ,but the original stays the same. I want the original to change with the sc factor. How do i do that?

thanks in advance,

Emmanuel

' draw temporary dimline
On Error GoTo ErrorHandler
p1 = ThisDrawing.Utility.GetPoint(, vbCr & "Specify first extension line origin: ")
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "Specify second extension line origin: ")
Data(3) = p1
On Error Resume Next
Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(p1, p2, p2)

 

Use the CopyFrom method

--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica

haven't found a solution for my problem.

original stays the same. I want the original to change with the sc factor.
How do i do that?

 

Add this line after setting the scale variable:

dimST.CopyFrom ThisDrawing

 

hi,

The dimstyle still won't change. It does create an override, but when i create a new dimension, it uses the 'mother' version and not the override. Either way, i don't want to use overrides, i simply want the 'mother' version to change. How can i do that???

here's the code...

For Each dimST In ThisDrawing.DimStyles
If dimST.Name = "BBS_LABELS" Then ThisDrawing.ActiveDimStyle = dimST
Next
ThisDrawing.SetVariable "dimscale", sc
dimST.CopyFrom ThisDrawing

.....

Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(p1, p2, p2)
dimobj.Layer = "BBS_BARLBL_DIM1"
dimobj.SetXData DataType, Data
dimobj.StyleName = "BBS_LABELS"

 

CopyFrom. It is all documented in the VBA Guide.

--
R. Robert Bell


hi,

The dimstyle still won't change. It does create an override, but when i
create a new dimension, it uses the 'mother' version and not the override.
Either way, i don't want to use overrides, i simply want the 'mother'
version to change. How can i do that???

here's the code...

For Each dimST In ThisDrawing.DimStyles
If dimST.Name = "BBS_LABELS" Then
ThisDrawing.ActiveDimStyle = dimST
Next
ThisDrawing.SetVariable "dimscale", sc
dimST.CopyFrom ThisDrawing

.....

Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(p1, p2, p2)
dimobj.Layer = "BBS_BARLBL_DIM1"
dimobj.SetXData DataType, Data
dimobj.StyleName = "BBS_LABELS"